CONTOJ PROGRAM ATM DI PASCAL
Program ABDIMAULANA_141510123;
Const max = 20;
Type antrian = Record
nama: string;
uang: real;
depan,belakang: 0..max;
End;
Type pointer = ^recpoint;
recpoint = Record
nama: string;
uang: real;
berikutnya: pointer;
End;
Var stack,awal,akhir: pointer;
q: antrian;
namain: string;
uangin: real;
saldo,tambahsaldo,pengambilan: real;
i,cacah,pelanggan: byte;
lagi: boolean;
pw,pw1,hapusmana: string;
carihapus: string;
pilih: 1..8;
Function habis(q:antrian): boolean;
Begin
If saldo<50000 Then habis := true
Else habis := false;
End;
Function kosong(q:antrian): boolean;
Begin
If q.belakang=0 Then kosong := true
Else kosong := false;
End;
Function penuh(q:antrian): boolean;
Begin
If q.belakang=max Then penuh := true
Else penuh := false;
End;
Procedure tambah(Var q:antrian; n:String);
Begin
pw1 := 'sleman';
If pw<>pw1 Then
writeln('Maaf password yang Anda masukkan salah ....')
Else
Begin
write('nominal penambahan saldo ATM = ');
readln(tambahsaldo);
saldo := saldo+tambahsaldo;
End;
End;
Procedure push_antri(Var s:pointer; r:String);
Var baru: pointer;
Begin
If penuh(q) Then writeln('antrian sudah penuh')
Else
If habis(q) Then writeln('uang di ATM habis')
Else
Begin
inc(q.belakang);
New(Baru);
Baru^.nama := r;
Baru^.Berikutnya := Nil;
If s = Nil Then
Begin
s := Baru ;
akhir := baru;
inc(cacah);
End
Comments
Post a Comment