Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Kasir;
- uses crt;
- var nama_barang : array[1..20] of string;
- harga : array[1..20] of real;
- banyak : array[1..20] of byte;
- kata,grs :string;
- x,y,i,j :byte;
- Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;
- begin
- clrscr;
- grs:='===============================================================';
- kata:='Program Kasir';
- 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 Belanja');
- gotoxy(x,5);write(grs);
- gotoxy(x,6);writeln('| No | Nama Barang | Harga Satuan | Banyak | Jumlah Harga |');
- 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+25,7+i);write('|');
- gotoxy(x+28,7+i);readln(Harga[i]);
- gotoxy(x+28,7+i);writeln(Harga[i]:10:2);
- gotoxy(x+41,7+i);write('|');
- gotoxy(x+44,7+i);readln(Banyak[i]);
- gotoxy(x+50,7+i);write('|');
- Jum_Harga:=Harga[i]*Banyak[i];
- gotoxy(x+53,7+i);writeln(Jum_Harga:10:2);
- gotoxy(x+65,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:='Faktur Penjualan';
- 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+53,8+j+1);write(Total_Harga:10:2);
- gotoxy(x,8+j+2);write('Discount :');
- gotoxy(x+53,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+53,8+j+4);write(Total_Bayar:10:2);
- gotoxy(x,8+j+5);write('Uang diBayar');
- gotoxy(x+53,8+j+5);readln(Uang);
- gotoxy(x+53,8+j+5);writeln(Uang:10:2);
- gotoxy(x,8+j+6);Write(grs);
- gotoxy(x,8+j+7);write('Uang Kembali');
- gotoxy(x+53,8+j+7);write(Uang-Total_Bayar:10:2);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement