Selasa, 15 November 2011

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.