Part 3 : Program Wartel;

Uses wincrt;
Var
LA,SU,BA,JA :integer;
a,b,c,d,j,m,x,t :integer;
Begin
gotoxy (17,1); write ('************************************************');
gotoxy (17,2); write ('*** Program Menghitung Biaya Telpon Wartel ***');
gotoxy (17,3); write ('************************************************');
gotoxy (5,5); write ('Masukkan waktu memulai telepon {00.00} : '); readln (a);
gotoxy (51,5); write ('.');

gotoxy (52,5); write (''); readln (b);
gotoxy (5,6); write ('Masukkan waktu mengakhiri telepon {00.00} : '); readln (c);
gotoxy (51,6); write ('.');
gotoxy (52,6); write (''); readln (d);
gotoxy (5,7); writeln ('Pilih kota tujuan telepon anda : ');
gotoxy (5,8); writeln ('1. Lamongan');
gotoxy (5,9); writeln ('2. Surabaya');
gotoxy (5,10); writeln ('3. Bandung');
gotoxy (5,11); writeln ('4. Jakarta');
gotoxy (5,12); write ('Kota Tujuan anda adalah {masukkan nomor 1-4} : '); readln (x);
j:=((c-a)*60)+(d-b);
case x of
1:Begin
LA:=100;
t:=LA*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Lamongan');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
2:Begin
SU:=500;
t:=SU*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Surabaya');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
3:Begin
BA:=1000;
t:=BA*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Bandung');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
4:Begin
JA:=1200;
t:=JA*j;
gotoxy (5,14); writeln ('Lama pembicaraan ',j,' menit');
gotoxy (5,15); writeln ('Tujuan Surabaya');
gotoxy (5,16); writeln ('Biaya yang harus di bayar adalah Rp. ',t);
End;
end;
end.

Hasil :