Membuat Program PILIHAN MENGHITUNG dengan PASCAL

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu..
Pada posting kali ini Aye mau membahas tentang bagaimana cara Membuat Program Pilihan menghitung dengan PASCAL..
langsung saja Qta mulai,..:
DownloadPascaL

program pilihan_menghitung;
uses wincrt;
var
pilih : integer;
p, l, luasp: integer;
a, t, luasS: integer;
r, luasL: integer;
begin
writeln('-----------------------');
writeln(' MENU MENGHITUNG LUAS ');
writeln('-----------------------');
writeln(' 1. Hitung Luas Persegi Panjang');
writeln(' 2. Hitung Luas Segitiga       ');
writeln(' 3. Hitung Luas Lingkaran      ');
writeln(' 4. Selesai                    ');
writeln('---------------------------');
write(' pilih [1-4] : ');readln(pilih);
writeln('---------------------------');

if pilih= 1 then
  begin
  write(' masukkan panjang    : ');readln(p);
  write(' masukkan lebar      : ');readln(l);
  luasp:= p*l;
  write(' luas persegi panjang: ', luasp);
  end else
if pilih= 2 then
  begin
  write(' masukkan alas   : ');readln(a);
  write(' masukkan tinggi : ');readln(t);
  luasS:= (1 div 2)*a*t;
  write(' luas segitiga   : ', luasS);
  end else
if pilih= 3 then
  begin
  write(' masukkan jari-jari  : ');readln(r);
  luasL:= (22 div 7)*r*r;
  write(' luas persegi panjang: ', luasL);
  end else
if pilih= 4 then
  begin
  writeln(' SELESAI ');
  end

end.