CONTOH PROCEDURE ( PASCAL)
program Bank;
uses crt;
var
p : integer;
sm : longint;
saldo : longint;
setoran : longint;
tarikan : longint;
procedure cek ();
begin
writeln ('Saldo anda sebesar : RP. ',saldo);
end;
procedure setor (tunai: longint);
begin
writeln ('Saldo Awal anda sebesar : Rp. ',saldo);
writeln ('Setoran anda sebesar : Rp. ',tunai);
saldo := saldo + tunai;
writeln ('--------------------------------------------------+');
writeln ('Saldo Akhir anda sebesar: Rp. ',saldo);
end;
procedure tarik (tt: longint);
begin
writeln ('Saldo awal anda sebesar : Rp. ',saldo);
writeln ('Tarikan anda sebesar : Rp. ',tt);
if ((saldo-tt) >= sm) then
begin
saldo := saldo - tt;
writeln ('------------------------------------------------------------- -');
writeln ('Saldo akhir anda sebesar : Rp. ',saldo);
end
else
begin
writeln ('Saldo anda tidak mencukupi');
end;
end;
begin
clrscr;
randomize;
saldo := random (1000000);
sm := 100000;
repeat
writeln ('=========BANK TEL-U========');
writeln ('MENU UTAMA :');
writeln ('1. Cek Saldo');
writeln ('2. Setor ');
writeln ('3. Tarik tunai ');
writeln ('4. Keluar ');
writeln ('pilihan anda : '); readln(p);
case p of
1 : begin
cek();
end;
2 : begin
write ('Jumlah setoran : Rp. '); readln(setoran);
setor(setoran);
end;
3 : begin
write ('Jumlah tarikan : Rp. '); readln(tarikan);
tarik(tarikan);
end;
4 : begin
writeln ('Terima kasih telah menggunakan jasa BANK TEL-U');
end;
end;
writeln ('Press Enter to continue. . .');
readln;
until (p=4);
end.
SEMOGA BERMANFAAT
TEL-U ? siiapppa nii ?
ReplyDeleteAngkatan 2014
ReplyDelete