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
Posting Komentar