Program PDAM

konnichiwa minnaa-saaan \(´▽`)/
genki desuka? ah, hope ya'll okey (‎◦'ںˉ◦)

well..langsung aja minna-san, dibawah ini ↓ adalah kodingan campuran :p
hehehehe...maksudnya kodingan dibawah ini memuat unsur berurutan, kondisi (lebih dari satu) dan perulangan, see ? campuran kn ? :p :p
hehehe..
-take deep breathe- ˘•˘
oke minna-san cekitout langsung !
feel free to ask kalo ada yang gk dimengerti ~(‾▿‾~)~(‾▿‾)~(~‾▿‾)~
jyaa ~ naa...



program PDAM;
uses wincrt;


const
tarif_pakai=100;


var
kelas,ulang:char;
tot_bayar,biaya_beban, biaya_pakai,jumlah_pakai:real;
No_langganan, Nama, Alamat :string;


begin
ulang:='y';
while ulang = 'y' do begin {ini bagian perulangan}

gotoxy(30,1);write('PDAM MENANG MATARAM ');
writeln;
writeln;

write('No. Langganan : ');readln(no_langganan);
write('Nama : ');readln(nama);
write('Alamat : ');readln(alamat);
write('Kelas : ');readln(kelas);
write('Jumlah Pemakaian : ');readln(jumlah_pakai);

{ini bagian kondisi}
if kelas = 'a' then biaya_beban:=100000
else
if kelas = 'b' then biaya_beban:=50000
else
if kelas = 'c' then biaya_beban:=40000
else
biaya_beban:=0;
{end bagian kondisi}


{ini bagian berurutan}
biaya_pakai:=Jumlah_pakai*tarif_pakai;
tot_bayar:=biaya_pakai+biaya_beban;
{end of bagian berurutan}

clrscr;
writeln('No. Langganan : ',no_langganan);
writeln('Nama : ',nama);
writeln('Alamat : ',alamat);
writeln('Kelas : ',kelas);
writeln('Total Pembayaran : ',tot_bayar:0:0);

writeln;
write('Input data Lagi? ');readln(ulang);
clrscr;
end;
end.