Turbo Pascal (TP71)


Turbo Pascal

Nih saya kasih contoh program “Turbo Pascal”


a. Program penjumlahan 2 bilangan


 program penjumlahan2bilangan;
uses crt;
var
J1,B2,B1:real;
begin
clrscr;
write('B1=');readln(B1);
write('B2=');readln(B2);
J1:=B1+B2;
writeln('jumlah',J1:10:0,'');
readkey;
end.


b. Program mengitung keliling lingkaran


program menghitung_keliling_lingkaran;
uses crt;
var
keliling,r:real;
begin
clrscr;
write('r=');readln(r);
keliling:=2*22/7*r;
writeln('jumlah',keliling:10:0,'');
readkey;
end.


Komentar

Postingan populer dari blog ini

Lirik lagu Sealed with a Kiss, dan artinya

Muḥammad bin Mūsā al-Khawārizmī

CHARLES BABBAGE sang Penemu mesin hitung