Contoh Program Penghitung Biaya Telepon pada Pascal

Berikut akan saya bagikan source code untuk membuat contoh program penghitung biaya telepon pada Bahasa Pemrograman Pascal,, berikut source codenya..

program biaya_telepon;
uses crt;
var lb,by:integer;
begin
clrscr;
writeln('    PENGHITUNG BIAYA TELEPON    ');
writeln('================================');
write('Lama Bicara (detik)     = ');readln(lb);
writeln('Biaya per detik        =rp 500 ');
writeln;
by:=lb*500;
writeln('Biaya telepon = ',by);
writeln;
writeln('========= Terima Kasih =========');
readln;
end.


untuk download programnya,, silahkan download (DISINI)