A’ASALAMU’ALAIKUM WR.WB.
Dalam pertemuan kali ini sya akan membahas tentang penjualan di program
pascal....
Dalam pembuatan
program di pascal sangat lah mudah, untuk itu perhatikan langkah-langkah
pembuatannya ae sob.
1.Buka aplikasi
pascal anda.
2.tuliskan kode
program nya.
MASUKAN KODE PROGRAMNYA
program penjualan ;
uses crt ;
type
jual = record
kasir : string [10];
kk : string [20];
makanan: string [20];
hrgmkn: integer;
minuman: string [20];
hrgmnm : integer ;
Totalbayar : integer ;
over : integer ;
end;
var
sis : array [1..2] of jual;
i,j : integer;
begin
clrscr;
for i := 1 to 2 do
begin
writeln('kasir : ');
readln(sis[i].kasir);
writeln('kode kasir : ');
readln(sis[i].kk);
writeln('makanan : ');
readln(sis[i].makanan);
writeln('harga makanan: ');
readln(sis[i].hrgmkn);
writeln('minuman : ');
readln(sis[i].minuman);
writeln('harga minuman : ');
readln(sis[i].hrgmnm);
begin
sis[i].over:=(sis[i].hrgmkn)+(sis[i].hrgmnm);
end;
writeln;
end;
for j:=1 to 2 do
begin
with sis [j] do begin
writeln(' WARUNG SERBA ADA MBAK
WATI ');
writeln;
writeln;
write(' Jl.proklamasi no.45 jake - Taluk
Kuantan ');
writeln;
write('=========================================================================');
readln;
writeln('kasir : ',kasir);
writeln('kode kasir : ',kk);
writeln('makanan : ',makanan);
writeln('hrgmkn: ',hrgmkn);
writeln('minuman : ',minuman);
writeln('hrgmnm : ',hrgmnm);
writeln('Total bayar :
',over);readln;
writeln;
end;
end;
end.
3.setelah code
selesai di tulis klik comple,lalu ada plihan nya pilih comple.
Setelah di compile program yang anda buat sama
dengan gambar dibah ini
Berakti program yang anda buat sukses
4.untuk menjalan
programnya klik Run ada plihan pilih dan klik Run.
Tulis di program yang telah
jalan seperti ini:
2 kali
pengimputan yang berbeda.
Kasir
Wiro (tekan
enter)
Kode kasir
001 (tekan enter)
Makanan
Minas (tekan
enter)
Harga makanan
12000 (tekan
enter)
Minuman
Teh es (tekan
enter)
Harga minuman
5000 (tekan
enter)
Kasir
Wiro (tekan
enter)
Kode kasir
001 (tekan enter)
Makanan
Minas (tekan
enter)
Harga makanan
10000 (tekan
enter)
Minuman
Teh telur (tekan
enter)
Harga minuman
10000 (tekan
enter)
Untuk menampilkan
seperti di gambar anda Cuma tekan Enter sebanyak 2 kali
Sekian dan Terimah Kasih
0 Response to "MENBUAT PROGRAM PENJUALAN DI PASCAL "
Post a Comment