MATERI TIK kelas XI bahasa pemrograman - Ulangan harianku

• Program Lingkaran

Uses wincrt;

var

r,d,l,k : real ;

Begin

writeln (‘Program Lingakaran’) ;

writeln (‘masukkan jari-jari’) ; readln (r) ;

                d: = r+r ;

                l:=3.14*r*r ;

                k:= 3.14*d ;

writeln (‘diameternya: ;d:2:2);

write (‘luas:’,l:2:2);

write (‘keliling:’,k:2:2);

end.

• For To Do

Uses wincrt

var

i:integer;

Begin

For i : 5 to 10 do

writeln (i*i);

end.

• Repeat Until

Uses wincrt

var

i:integer;

Begin

i:=0;

Repeat

i:=3*0.6666667;

writeln (3*i);

until i>=486;

end.