CORETAN KU

Berikut adalah input programnya:

Program Kasir;

Uses WinCrt;

Var

nama_barang : array[1..20] of string;

harga : array[1..20] of real;

banyak : array[1..20] of byte;

kata,grs :string;

namakasir : string;
tanggal :string;

x,y,i,j :byte;

Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;

Begin



clrscr;

grs:='=>=>=>=>=>=>===================================================<=<=<=<=<=<=';


kata:='=>=>=>=>=> ABADI NAN JAYA STORE <=<=<=<=<';

x:=round((78-length(kata))/2);

gotoxy(x,2);writeln(kata);

x:=round((78-length(grs))/2);

gotoxy(x,3);write(grs);

{-----------------------------}

gotoxy(x,4);write('Data Belanjaan');

gotoxy(x,5);write(grs);

gotoxy(x,6);writeln('| No |   NamaBarang   | HargaSatuan | Banyak | JumlahHarga |');

gotoxy(x,7);write(grs);

{--------------------------------------------------------------------}

i:=0;

Total_Harga:=0;

repeat

i:=i+1;

gotoxy(x,7+i);write('| ',i);

gotoxy(x+5,7+i);write('|');

gotoxy(x+7,7+i);readln(Nama_barang[i]);

if Nama_Barang[i] <>'' then begin

gotoxy(x+23,7+i);write('|');

gotoxy(x+27,7+i);readln(Harga[i]);

gotoxy(x+24,7+i);writeln(Harga[i]:10:2);

gotoxy(x+38,7+i);write('|');

gotoxy(x+42,7+i);readln(Banyak[i]);

gotoxy(x+47,7+i);write('|');

Jum_Harga:=Harga[i]*Banyak[i];

gotoxy(x+48,7+i);writeln(Jum_Harga:10:2);

gotoxy(x+62,7+i);writeln('|');

Total_Harga:=Total_Harga+Jum_Harga ; end;

until nama_barang[i]='';

{--------------------------------------------------------------------}

disc:=0;

if (Total_Harga> 10000) and (Total_Harga<100000) then

disc:=0.05 * Total_Harga

else

if (Total_Harga>= 100000 ) then

disc:=0.1 *Total_Harga;

{--------------------------------------------------------------------}

kata:='ABADI NAN JAYA STORE';

y:=round((78-length(kata))/2);

gotoxy(y,2);writeln(kata);

j:=i-1;

gotoxy(x,8+j);write(grs);

gotoxy(x,8+j+1);write('Total Belanja :');

gotoxy(x+48,8+j+1);write(Total_Harga:10:2);

gotoxy(x,8+j+2);write('Discount :');

gotoxy(x+48,8+j+2);write(disc:10:2);

gotoxy(x,8+j+3);write(grs);

gotoxy(x,8+j+4);write('Total Bayar setelah discount :');

Total_Bayar:=Total_Harga-disc;

gotoxy(x+48,8+j+4);write(Total_Bayar:10:2);

gotoxy(x,8+j+5);write('UangPembayaran :');

gotoxy(x+48,8+j+5);readln(Uang);

gotoxy(x+48,8+j+5);writeln(Uang:10:2);

gotoxy(x,8+j+6);Write(grs);

gotoxy(x,8+j+7);write('UangKembali');

gotoxy(x+48,8+j+7);write(Uang-Total_Bayar:10:2);

gotoxy(x,10+j+6);Write(grs);
writeln;
writeln('       ABADI NAN JAYA STORE');
writeln('       Jl.Raya Ora Buntu km 18 Kota Bersih ');
write('       Tanggal : ');readln(tanggal);
write('       Kasir : '); read(namakasir);
writeln('       ---------------------------------------------------------------');
writeln('                    "Maturnuwun Sampun Mampir :)"');

end.

Dan ini hasil outputnya:

Maturnuwun sampun mampir,semoga bermanfaat.