FRIENDSHIP FOREVER

While do


Uses wincrt;
var
a:real;
Begin
a:=1;
while a<= 1296 do
Begin
a:=a*6;
writeln (a:4:0);
end;
end.

download aplikasinya disini.


Uses wincrt;
var
a:real;
Begin
a:=-4;
while a<= 6 do
Begin
a:=a+2 ;
writeln (a:2:0);
end;
end।

download disini.


Rumus Persegi.

Uses wincrt;
var
s,dg,l,k:real;
Begin
write('masukkan sisi:');readLn (s);
dg := sqrt (s*s+s*s);
L := s*s ;
k := 4*s;
writeln ('diagonalnya:', dg : 4 :0);
writeln ('Luasnya:', L :4:0);
writeln ('Kelilingnya:',k : 4 :0);
end.

Download disini.