TURBO PASCAL

Ulangan Harian TIK (TURBO PASCAL)

    a)      Tabung dengan input (jari-jari,tinggi) dan output (luas dan volume)

Uses wincrt ;

Var

r,t,L,v, sm : real ;

Begin

Writeln ( ‘program tabung ‘ ) ;

Write     ( ‘masukkan jari-jari : ‘ ) ; Readln (r) ;

Write     ( ‘masukkan tinggi : ‘ ) ; Readln (t) ;

         L  : = 2*3,14*r ;

         V : = 3,14*r²*t ;

Writeln ( ‘ Luasnya : , L : 2 : 2) ;

Write     ( ‘ keliling : , k : 2 : 2) ;

end.

    b)     For – to – do

Perulangan (4-7-10-13-16-19)

Uses wincrt ;

Var

I : integer ;

Begin

For ; : 1 to 6 do

Writeln 3*i t 1

end.

    c)     While do (5-25-125-625-3125)

Uses wincrt ;

Var

i : integer ;

Begin

i : = i*5 ;

write (i) ;

end ; end.