A. Program Lingkaran dalam turbo pascal
Uses wincrt;
var
r,d,L,k : real;
begin
writeln ('program lingkaran');
write ('masukkan jari-jari : ') ; readln (r) ;
d : 2 * r ;
L : = 3,14* r * r ;
k : = 2* 3,14 * r ;
writeln ('luasnya :, L:5:5');
write ('kelilingnya :, k:5:5');
write ('diameternya:,d:5:5');
end.
B. Pola Bilangan (25,36,49,64,81,100)
Uses wincrt
var
i : integer ;
Begin
For i : = 5 to 10 do
writeln ( 1*1 ) ;
end.
C. Pola Bilangan (2,6,18,54,162,486)
Uses wincrt
var
i : integer ;
Begin
i : = 0.67 ;
repeat
i : = i * 3 ;
writeln ( i ) ;
until i = 486 ;
end.
