Program Perhitungan Luas Bangun Datar ver.1

Program XxX;

uses wincrt;

label balik;

var
nomer_rumus : char;
tinggi : integer;
lebar : integer;
alas : integer;
jar : integer;
panjang : integer;
rusuk : integer;
luas : real;
volum : real;
pi : real;
keliling : real;
sisi : integer;
begin

balik:
writeln;
writeln('1.LUAS SEGITIGA');
writeln('2.LUAS LINGKARAN');
writeln('3.LUAS SEGI EMPAT');
write('masukkan nomer rumus (1-3): ');readln(nomer_rumus);
writeln;

case nomer_rumus of

'1':begin
    writeln('menghitung luas segitiga');
    writeln('.......................');
    write('Masukkan Tinggi:');read(tinggi);
    write('masukkan alas:');read(alas);
    writeln;

    luas:= 1 / 2 * alas * tinggi;

    writeln('HASIL');
    writeln('..............................');
    writeln('LUAS:',luas:2:2);

    end;

'2':begin

    pi:= 3.1415;

   writeln('Menghitung Luas Lingkaran');
   writeln('....................');
   write('Masukkan Jari-jari  : ');read(jar);
   writeln;

    luas:= pi * jar * jar;

    writeln('HASIL');
    writeln('...............');
    Writeln('LUAS:',luas:2:2);

    end;

'3':begin

    writeln('menghitung luas persegi panjang');
    writeln('...........................');
    write('masukkan panjang : ');read(panjang);
    write('masukkan lebar : ');read(lebar);
    writeln;

    luas:= panjang * lebar;

    writeln('HASIL');
    writeln('...................');
    Writeln('LUAS:',luas:2:2);


    end;

else

begin

writeln('MAAF INPUT SALAH');

end;

end;

goto balik;
writeln;
writeln;



end.

{download program jadi : http://www.4shared.com/file/y1vbsEdG/hitunglu.html }
{download program jadi+code pascal : http://www.4shared.com/file/l_PV7cFQ/hitunglu.html }