RUMUS PADA PASCAL

1.    Isi Bola

Uses crt;

Var r,ib : real;

Begin

Clrscr;

Textattr:=white;

Writeln(‘ Menghitung isi bola’);

Write (‘  r:=’); readln (r);

                 Ib:= ¾*3.14*r*r;

Writeln (‘   ib= ‘, ib :4:2);

Readln;

End.

1.    Menghitung Luas lingkaran

Uses crt;

Var luasl,r : real;

Begin

Textattr:=yellow;

Writeln(‘Menghitung Luas Lingkaran’);

Write(‘ Jari-Jari =’);

Readln (r);

Luasl:=3.14*r*r;

Writeln(‘Luas Lingkaran = ’, luasl:0:2);

Readln;

End.

1.    Konfersi suhu celcius à  fahrenheat

Uses crt;

Var c,f : real;

Begin

Clrscr;

Textattr:=Yellow;

Writeln(‘ Konfersi suhu celcius à fahrenheat ’);

Write(‘        c=’);readln (c);

                    F:=9/5*c+325 ;

Writeln(‘      f=’, f :4:2);

Readln;

End.

1.    Konfersi suhu celcius à kelvin

Uses crt;

Var c,k : real;

Begin

Clrscr;

Textattr:= white;

Writeln(‘ Konfersi celcius – kelvin ‘);

Write (‘c=’); readln (c);

          K:= c+273.15;

Writeln(‘k=’, k:4:2);

Readln;

End.

1.    Konferi suhu celcius à reamur

Uses crt;

Var c,r : real;

Begin

Clrscr;

Textattr:= yellow;

Writeln(‘ Konfersi celcius – reamur ‘);

Write (‘c=’); readln (c);

          R:= 4/5*c;

Writeln(‘r=’, r:4:2);

Readln;

end. 

1