type data = record
nama,jenis: string;
lamaharga,lama,scan,hitam,warna,teh,total,jam,menit: integer;
end;
type
warnet = array [1..100] of data;
var
wdata:warnet;
n:integer;
nota:integer;
//total:integer;
//////==prosedur mengisi data==///////
procedure isidata(var wdata:warnet; n:integer);
var
i:integer;
X:INTEGER;
begin
X:=1;
for i :=1 to n do
begin
writeln('');
writeln('Data Ke : ',X);
X:=X+1;
writeln('');
write('Nama Anda : '); readln(wdata[i].nama);
writeln('====Jenis Pemakaian===' );
writeln('1. Internet' );
writeln('2. Pengetikan' );
writeln('3. Game Online' );
writeln('======================' );
write('Ketikan Jenis Pemakaian : '); readln(wdata[i].jenis);
wdata[i].jenis:=upcase(wdata[i].jenis);
write('Lama Waktu Pemakaian (menit) : '); readln(wdata[i].lama);
write('Banyaknya Yang Di Scan : '); readln(wdata[i].scan);
write('Banyaknya Yang Di Print Hitam : '); readln(wdata[i].hitam);
write('Banyaknya Yang Di Print Berwarna : '); readln(wdata[i].warna);
write('Banyaknya Teh Botol : '); readln(wdata[i].teh);
writeln();
end;
end;
/////////akhir Procedure Isidata////////////////
//////==prosedur menampilkan data==/////////
procedure tampildata(var wdata:warnet; n:integer);
var
i:integer;
hargastandar:integer;
jam:integer;
sisalama:integer;
begin
//cari harga lama ngerental//
for i :=1 to n do
begin
hargastandar:=0;
wdata[i].lamaharga:=0;
//pertama membagi dulu lama pemakian//
if wdata[i].lama div 15=0 then
sisalama:= 1
else
sisalama:= wdata[i].lama div 15 ;
//tutup//
//pemilihan jenis//
if wdata[i].jenis='INTERNET' then
begin
hargastandar:=1000;
wdata[i].lamaharga:=sisalama*hargastandar;
end;
if wdata[i].jenis='GAME ONLINE' then
begin
hargastandar:=1250;
wdata[i].lamaharga:=sisalama*hargastandar;
end;
if wdata[i].jenis='PENGETIKAN' then
begin
hargastandar:=500;
wdata[i].lamaharga:=sisalama*hargastandar;
end;
//tutup//
end;
//convert lama pemakian ke satuan jam//
for i :=1 to n do
begin
jam:=wdata[i].lama div 60;
sisalama:=wdata[i].lama mod 60;
wdata[i].jam:=jam;
wdata[i].menit:=sisalama;
end;
//cari total hrga//
for i :=1 to n do
begin
wdata[i].total:= wdata[i].scan*1000 + wdata[i].warna*500 + wdata[i].hitam*300 + wdata[i].teh*3000+wdata[i].lamaharga;
end;
/////////////yang akan ditampilkan/////////////////////////
clrscr;
gotoxy(3,3);writeln('==============================================================================');
gotoxy(3,4);writeln('No Nama Jenis Waktu Lembar Lembar Lembar Teh Total ');
gotoxy(3,5);writeln(' Pemakai Pemakaian Pemakaian Scan Hitam berwarna Botol Bayar ');
gotoxy(3,6);writeln('==============================================================================');
for i:= 1 to n do
begin
gotoxy(3,6+i);writeln(i);
gotoxy(6,6+i);writeln(wdata[i].nama);
gotoxy(16,6+i);writeln(wdata[i].jenis);
gotoxy(28,6+i);writeln(wdata[i].jam,' Jam ',wdata[i].menit,'M');
gotoxy(39,6+i);writeln(wdata[i].scan);
gotoxy(47,6+i);writeln(wdata[i].hitam);
gotoxy(56,6+i);writeln(wdata[i].warna);
gotoxy(66,6+i);writeln(wdata[i].teh);
gotoxy(73,6+i);writeln('Rp.',wdata[i].total);
end;
end;
/////////akhir Procedure tampildata////////////////
begin
writeln('===================================================================');
writeln(' PROGRAM HITUNG BIAYA');
WRITELN(' RENTAL KOMPUTER');
writeln('===================================================================');
write('No.Nota : '); readln(nota);
write('Jumlah Pemakaian : '); readln(n);
isidata(wdata,n);
readln();
tampildata(wdata,n);
readln();
end.
semoga bisa bermanfaat dan ingat jgn maen copas ja,,tp pahami juga supaya pinter.
0 Response to "Program Warnet"
Posting Komentar