Program Gabungan

Penerapan Prosedur dalam pascal for windows.

program ini saya buat dengan menggunakan TPW 1.5
berikut contoh script nya.

program gabungan;
uses wincrt;
var
a,b,c: real;
pilihan_huruf,lagi: char;
pilihan,masuk,keluar,sisa,y,n,i,umur,tahun,tanggal,beli: integer;
harga,bersih,kotor,jumlah,total,subtotal,diskon,bayar,pajak: real;
nama,kode,tempat,bulan,hobi,makan,minum:string;

procedure luas_lingkaran;
begin
write(' masukan jari-jari lingkaran : ');readln(a);
c:= 22/7*a*a;
end;
procedure luas_persegi_panjang;
begin
write(' masukan panjang : ');readln(a);
write(' masukan lebar : ');readln(b);
c:=a*b;
end;
procedure luas_segitiga;
begin
write(' masukan alas : ');readln(a);
write(' masukan tinggi : ');readln(b);
c:=1/2*a*b;
end;
procedure hasil;
begin
writeln(' hasil : ',c:0:0,' cm2');
end;

procedure jual;
begin
y:=9;
jumlah:=0;
n:=0;
write(' berapa banyaknya barang yang masuk? => ');readln(n);
writeln;
writeln(' PT. KADANG UNTUNG ');
writeln(' Jl. Ngayayay Gang Bohay No.555, Rangkasbitung ');
writeln('===============================================================================');
writeln(' No. Nama Kode Jumlah sisa Harga Hasil Pajak Hasil ');
writeln(' Barang Barang masuk|keluar barang Barang Kotor Bersih');
writeln('-------------------------------------------------------------------------------');
i:=1;
repeat
gotoxy(2,y);writeln(i);
gotoxy(6,y);;readln(nama);
gotoxy(15,y);readln(kode);
gotoxy(24,y);readln(masuk);
gotoxy(31,y);readln(keluar);
sisa:=masuk-keluar;
gotoxy(38,y);writeln(sisa);
gotoxy(47,y);readln(harga);
kotor:=keluar*harga;
gotoxy(57,y);writeln(kotor:0:0);
if kotor > 100000 then
pajak:=0.1*kotor
else
pajak:=0;
gotoxy(66,y);writeln(pajak:0:0);
bersih:=kotor-pajak;
gotoxy(74,y);write(bersih:0:0);
jumlah:=jumlah+bersih;
y:=y+1;
i:=i+1;
until i=n;
y:=y+1;
gotoxy(65,y);writeln(' Jumlah : ',jumlah:0:0);
end;

procedure biodata;
begin
write(' Nama : ');readln(nama);
write(' Tempat Lahir : ');readln(tempat);
write(' Tanggal Lahir : ');readln(tanggal);
write(' Bulan Lahir : ');readln(bulan);
write(' Tahun Lahir : ');readln(tahun);
write(' Umur : ');readln(umur);
write(' Hobi : ');readln(hobi);
write(' Makanan Favorit : ');readln(makan);
write(' Minuman Favorit : ');readln(minum);
end;

procedure pembelian;
begin
subtotal:=0;
jumlah:=0;
pajak:=0;
diskon:=0;
write(' berapa banyak barang yang di beli : ');readln(n);
writeln(' -------------------------------------');
for i:=1 to n do
begin
write(' Nama Barang : ');readln(nama);
write(' Kode Barang : ');readln(kode);
write(' Harga Satuan : Rp. ');readln(harga);
write(' Beli : ');readln(beli);
jumlah:=harga*beli;
writeln(' Jumlah : Rp. ',jumlah:0:2);
subtotal:=subtotal+jumlah;
writeln(' ==============================');
end;
writeln(' Subtotal : Rp. ',subtotal:0:2);
if subtotal >= 500000 then
diskon := 0.1*subtotal
else
if subtotal > 250000 then
diskon := 0.05*subtotal
else
diskon := 0;
writeln(' Diskon : Rp. ',diskon:0:2);
total:=subtotal-diskon;
writeln(' Total : Rp. ',total:0:2);
write(' Bayar : Rp. ');readln(bayar);
bersih:=bayar-total;
writeln('===============================');
writeln(' Kembali : Rp. ',bersih:0:2);
end;

procedure menu;
begin
writeln;
writeln(' 1. Ulangi Program');
writeln(' 2. Ke Menu Utama');
writeln(' --------------------');
write(' masukan pilihan => ');readln(n);
end;

begin
writeln;
writeln;
writeln(' This Program has Made by ');
writeln(' ----------------------------------- ');
writeln(' Royan D'algren ');
writeln;
writeln(' Please Enjoy it !!! ');
writeln(' ====================================== ');
writeln;
writeln;
write(' press enter to continue');
readln;
lagi:='y';
while lagi='y' do
begin
clrscr;
writeln;
writeln(' MENU ');
writeln(' --- select one --- ');
writeln;
writeln(' 1. Luas');
writeln(' 2. Penjualan');
writeln(' 3. Biodata');
writeln(' 4. Pembelian');
writeln(' 5. Exit');
writeln;
writeln(' --------------------');
write(' masukan pilihan => ');readln(pilihan);
case pilihan of
1 : begin
clrscr;
n:=1;
while n=1 do
begin
clrscr;
writeln;
writeln(' a. Luas Lingkaran');
writeln(' b. Luas Persegi Panjang');
writeln(' c. Luas Segitiga');
writeln(' --------------------');
write(' masukan pilihan => ');readln(pilihan_huruf);
if pilihan_huruf='a' then
begin
clrscr;
writeln;
luas_lingkaran;
hasil;
end;
if pilihan_huruf='b' then
begin
clrscr;
writeln;
luas_persegi_panjang;
hasil;
end;
if pilihan_huruf='c' then
begin
clrscr;
writeln;
luas_segitiga;
hasil;
end;
menu;
end;
end;
2 : begin
clrscr;
n:=1;
while n=1 do
begin
clrscr;
jual;
menu;
end;
end;
3 : begin
clrscr;
n:=1;
while n=1 do
begin
clrscr;
writeln;
biodata;
menu;
end;
end;
4 : begin
n:=1;
while n=1 do
begin
clrscr;
writeln;
pembelian;
menu;
end;
end;
5 : begin
writeln(' --------------------');
write(' press enter for exit');
readln;
donewincrt;
end;
end;
end;
read;
donewincrt;
end.

yang belum mempunyai programnya bisa di donlot disini.
dan program yang telah jadi dapat di donlot disini.