Rumus kalkulator sederhana

uses crt;
var x,y,hasil:real;
jawab:char;
begin
  write ('masukan angka ke-1:');readln (x);
  write ('pilih operator: (+)/(-)/(*)/(/)');readln (jawab);
  write ('masukan angka ke-2:');readln (y);
  if ( jawab= '+') then
  begin
    hasil:= x+y
  end;
  if ( jawab = '-') then
  begin
    hasil:= x-y
  end;
  if ( jawab = '*') then
  begin
    hasil:= x*y
  end;
  if (jawab='/') then
  begin
    hasil:= x/y
  end;
  write ('hasilnya: ',(hasil):5:2);
end.

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