Minggu, Januari 31, 2010

latihan pemograman pascal 11

latihan pemograman pascal 11


Buat Program dengan ketentuan sbb:

1. Buat record dengan nama kue yang berisi kode,nm,hrg,jb,total.

2. Buat procedure dengan nama input. Untuk menginput data.

3. Buat Procedure dengan

nama tampil

Ketentuan soal :

Untuk kode Kue:

Jika kode A maka nama Kue “Brownies”, harga 2000

Jika kode B maka nama Kue “Tart”, harga 1500

Jika kode C maka nama Kue “Bolu”, harga 1000

Total = harga x jumlah beli

Total bayar = total + total bayar



jawaban :



uses crt;

type reckue=record

kode,nm:string;

hrg,jb,total:real;

end;

var

kue:array[1..50] of reckue;

tbyr:real;

i,jd:byte;

lagi:char;

label awal,akhir;

procedure input; {Procedure Input}

begin

clrscr;

write('masukan jumlah data:');readln(jd);

for i:=1 to jd do

begin

with kue[i] do

begin

writeln('data ke-',i);

write('masukan kode kue:');readln(kode);

if kode='A' then

begin

nm:='Brownies';

hrg:=2000;

end

else

if kode='B' then

begin

nm:='Tart';

hrg:=1500;

end

else

begin

nm:='bolu';

hrg:=1000;

end;

writeln('nama kue:',nm);

writeln('harga:',hrg:2:0);

write('masukan jumlah beli :');readln(jb);

end;

end;

end;

procedure tampil; {Procedure Tampil}

begin

clrscr;

writeln(' TOKO KUE "RAMAI PENGUNJUNG"');

writeln(' JL. KAlibat Timur No.37');

writeln('======================================================');

writeln('no kode nama harga jumlah total');

writeln('=======================================================');

tbyr:=0;

for i:=1 to jd do

begin

with kue[i] do

begin

total:=hrg*jb;

tbyr:=total+tbyr;

end;

end;

for i:=1 to jd do

begin

with kue[i] do

begin

writeln(i:1,kode:3,nm:5,hrg:6:0,jb:8:0,total:10:0);

end;

end;

writeln('=============================================================');

writeln('total bayar :',tbyr:2:0);

end;

begin {Program Utama}

awal:

clrscr;

input; {Pemanggilan Procedure input}

tampil; {Pemanggilan Procedure tampil}

writeln;

write('mau input data lagi[Y/T]=');readln(lagi);

if (lagi='Y') or (lagi='y') then

goto awal

else

goto akhir;

akhir:

readln;

end.


SIMPAN DALAM FLASHDISH, NAMA FOLDER NAMA ANDA, NAMA FILE TUGAS_11