Cara Membuat Program Kasir Dengan Pascal

Untuk membuat progam kasir sederhana berikut codingnya :

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; 
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 data-blogger-escaped-data-blogger-escaped-div="" data-blogger-escaped-data-blogger-escaped-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. 

Output :

If You Enjoyed This, Take 5 Seconds To Share It

• Facebook
• Twitter
• Google+
• StumbleUpon
• Digg
• Delicious
• LinkedIn
• Reddit
• Technorati