Listing Pemrograman

Beberapa waktu yang lalu Aku di beri tugas oleh Guruku untuk membuat "Program kalkulator Sederhana" Dengan mencari:

  A.LUAS DAN KELILING PERSEGI;

  B.LUAS DAN KELILING PERSEGI PANJANG;

  C.LUAS DAN KELILING LINGKARAN;     

 Hal itu cukup membuatku dan teman sekelompokku bingung lah. Tapi Alhamdulillah ya Akhirnya Selesai juga..............^_^

Dan berikut hasil kerja Kelompokku untuk membuat program tersebut......

uses wincrt;       

const Phi=3.14;

var menu:char;

   r, a,b,luas,keliling: real;

begin

    writeln ('PROGRAM KALKULATOR SEDERHANA');

     writeln ('----------------------------');

     writeln ('MENU:');

     writeln ('A.LUAS DAN KELILING PERSEGI');

     writeln ('B.LUAS DAN KELILING PERSEGI PANJANG');

     writeln ('C.LUAS DAN KELILING LINGKARAN');    

     writeln ('PILIH MENU:');

     readln(menu);

     case menu of

     'A': begin

          writeln ('LUAS DAN KELILING PERSEGI');

          writeln ('_______________________________');

          writeln ('INPUTKAN SISI:');      

          read (a);

          luas := a*a;

          keliling := 4*a;

          writeln('HASIL LUAS:');

          WRITELN (LUAS:0:0);

          writeln ('HASIL KELILING');

          writeln (KELILING:0:0);

     end;

     'B' : begin

           writeln ('LUAS DAN KELILING PERSEGI PANJANG');

          writeln ('_______________________________');

          writeln ('INPUTKAN PANJANG:');      

          read (a);

          writeln ('INPUTKAN LEBAR :');

          read (b);

          luas := a*b;

          keliling := 2*a+2*b;

          writeln('HASIL LUAS:');

          WRITELN (LUAS:0:0);

          writeln ('HASIL KELILING');

          writeln (KELILING:0:0);

     end;        

     'C' : begin

          writeln ('LUAS DAN KELILING LINGKARAN');

          writeln ('_______________________________');

          writeln ('INPUTKAN JARI-JARI:');      

          read (r);

          luas := Phi*r*r;

          keliling := Phi*2*r;

          writeln('HASIL LUAS:');

          WRITELN (LUAS:0:0);

          writeln ('HASIL KELILING:');

          writeln (KELILING:0:0);

     end;

     else

         writeln ('MENU SALAH');

     end;

end.

Hasilnya: