PROGRAM Penghitung Bangun datar dalam Menu Pilihan menggunakan Procedure

Dalam postingan kali ini " PROGRAM Penghitung Bangun datar  dalam Menu Pilihan menggunakan Procedure" mimin akan membagikan sebuah cara membuat program penghitung luas yaitu persegi panjang, Bujur sangkar, luas lingkarang, luas segitiga dan akan keluar dari menu.
menu pilihan dengan procedure dan langsung saja ke TKP.

SOAL:

JAWABANNYA:

PROGRAM PENGHITUNG_BANGUN_DATAR;
uses crt;
var
menu: integer;
input: char;
procedure P_panjang;
var
p,l,luas: integer;
begin
     writeln ('Program Penghitung P. panjang');
     write ('masukkan panjang:'); readln (p);
     write ('masukkan lebar: '); readln (l);
     luas:=p*l;
     writeln ('luas p. panjang tersebut adalah: ',luas);
     end;

procedure B_sangkar;
var
s,L:integer;
begin
     writeln ('Program penghitung luas B. sangkar');
     write ('masukkan panjang sisi: '); readln (s);
     write ('masukkan p. sisi kedua: '); readln (s);
     l:=s*s;
     writeln ('luas B. sangkar tersebut adalah: ',l);
     end;

Procedure L_Lingkaran;
var
jari2: integer;
luas: real;
const phi=13.4;
begin
     writeln ('program penghitung L. Lingkaran');
     write (' masukkan jari jari lingkaran: '); readln (jari2);
     luas:=phi*jari2*jari2;
     writeln ('luas Lingkaran tersebut adalah: ',luas);
     end;

procedure L_segitiga;
var
a,t: integer;
luas:real;
begin
     writeln ('Program penghitung L. segitiga');
     write ('masukkan nilai alas: '); readln (a);
     write ('masukkan nilai tinggi: '); readln (t);
     luas:=1/2*a*t;
     writeln ('luas segitiga tersebut adalah: ',luas);
     end;
BEGIN
CLRSCR;
       writeln ('==================================================');
       writeln ('______O  L  E  H______');
       writeln ('Nama: Moh. Murne Rifai');
       writeln ('Nim : 16102681');
       writeln ('==================================================');
       writeln;
       writeln ('MENU PENGHITUNG LUAS ALL IN ONE:');
       writeln ('1. Prog. penghitung Luas P. Panjang');
       writeln ('2. Prog. penghitung Luas B.sangkar');
       writeln ('3. Prog. penghitung Luas Lingkaran');
       writeln ('4. Prog. Penghitung Luas segitiga');
       writeln ('5. Untuk keluar dari Menu');
       writeln;
       writeln;
       write ('Masuk ke menu pengitung input no. [1/2/3/4/5] sesuai urutan: '); readln (menu);
       begin

       if (menu=1) then
       begin
       P_panjang;
       end
       else if (menu=2) then
       begin
       B_sangkar;
       end
       else if (menu=3) then
       begin
       L_lingkaran;
       end
       else if (menu=4) then
       L_segitiga;
       end;  if (menu=5) then
       begin
       exit;
       end;
       writeln;
       readln;
end.
================================================================
TAMPILAN SETELAH DI RUN:

memang sulit tapi apa salahnya untuk terus mencoba, mencoba dan mencoba. semoga postingan saya bermanfaat bro dan sis.

terima kasih, jangan lupa  berlangganan di blog mimin yaaa....

Tweet