contoh program matematika sederhana pada pascal

PROGRAM MATEMATIKA;

uses wincrt;

var sisi_a,sisi_b,tinggi,luas:real;

begin

     writeln('              ## LUAS TRAPESIUM ##           ');

     writeln;

     writeln;

     write('masukkan sisi a =');readln(sisi_a);

     write('masukkan sisi b =');readln(sisi_b);

     write('masukkan tinggi =');readln(tinggi);

     Luas:=(sisi_a+sisi_b)/2*tinggi;

     writeln;

     writeln('Luas Trapesium adalah =',luas:0:2);

end

program rani;

uses wincrt;

var pilihan ,g,m,w,h,s,ph: integer ;

sisia,sisib,tinggi,Luas: real ;

begin

     writeln('program BIT');

     writeln;

     writeln('1. Gaya Berat');

     writeln('2. Luas Trapesium');

     writeln('3. tekanan hidrostatis');

     writeln;

     write('PILIHAN ANDA =');read(pilihan);

     if pilihan = 1 then

     begin

     writeln('program gaya berat');

     write('masukkan massa =');readln(m);

     write('masukkan gravitasi bumi =');readln(g);

     w:=m*g;

     write('hasil =',w);

     end

     else

     if pilihan = 2 then

     begin

     writeln('program luas berat');

     write('masukkan sisi a =');readln(sisia);

     write('masukkan sisi b =');readln(sisib);

     write('masukkan tinggi =');readln(tinggi);

     Luas:=sisia+sisib/2*tinggi ;

     write('hasil =',Luas:0:2);

     end

     else

     if pilihan = 3 then

     begin

     writeln('Tekanan hidrostatis');

     write('masukkan jarak =');readln(h);

     write('masukkan jenis berat =');readln(s);

     ph:=h*s;

     write('hasil =',ph);

     end

    

     else

     writeln ('input anda salah');

   

     end.