Program Bank | Ngoding Pascal

Berikut ini merupakan kodingan sederhana untuk membuat sebuah program bernama while yang mengunakan gabungan fungsi antara : while, case of dan if.
Silakan di pelajari dan manfaatkan dengan bijak.
Bagi yang belum mengerti, bisa bertanya di komentar. Tq ^^

program bank;
uses crt;

var

saldo,tabung,tarik:longint;
pilihan:char;

begin
clrscr;
saldo:=1000000;
writeln('Selamat datang di Program bank oleh henry zhuo :)');
writeln('Saldo awal anda : Rp 1000000');
writeln('====================================');
writeln('Menu');
writeln('a. Cek saldo');
writeln('b. Tabung');
writeln('c. Tarik');
writeln(' i. Maksimal batas penarikan adalah 10 juta');
writeln(' ii. Saldo akhir tidak boleh kurang dari saldo minimal 100.000');
writeln('d. Keluar');


write('Masukkan pilihan anda : ');readln(pilihan);
while pilihan<>'d' do

begin
case pilihan of
'a' : begin
writeln('Saldo anda sebesar : Rp. ',saldo);
read;
end;
'b' : begin
write('Masukkan jumlah uang yang ingin anda tabung : ');readln(tabung);
saldo:=saldo+tabung;
write('Saldo anda saat ini : ',saldo);readln;
end;
'c' : begin
write('Masukkan jumlah uang yang ingin anda tarik : ');readln(tarik);
if (saldo-tarik)<100000 then writeln('Saldo akhir anda kurang dari saldo minimal, penarikan tidak bisa dilakukan.') else if tarik>10000000 then
write('Maksimal penarikan adalah 10 juta, silakan input kembali uang yang ingin anda tarik')
else
begin
saldo:=saldo-tarik;
writeln('Penarikan berhasil, saldo anda saat ini ',saldo);
end;
end;

end;
write('Masukkan pilihan anda : ');
readln(pilihan);
end;
if pilihan='d' then
begin
writeln('terimakasih telah mengunakan layanan bank hendri');
readln;

end;

end.

## NOte : sedikit catatan saat sbagai Mahasiswa di Tel U.