MEMBUAT PROGRAM MENGHITUNG LUAS BANGUN DATAR MENGGUNAKAN TEKNIK PROCEDURE

Anggap saja ini pepatah dariku sebagai salam pembuka postingan ini "Tiada Praktikum Tanpa Diakhiri Dengan Tugas". Jadi pas tanggal 19 Desember 2013, di akhir praktikum Pak Dody ngasi tugas yang sangat-sangat gampang sekali, Why??? Karena tugasnya cuma disuruh nyalin coding yang ada di modul praktikum, gak kayak tugas-tugas sebelumnya. Hehehe langsung aja deh ini codingnya:

 
======================================================


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   menu:integer;
   jawab:char;

procedure persegi;
var
   s,luas : integer;

begin
writeln;
        writeln('MENGHITUNG LUAS PERSEGI');
        write('Sisi : '); readln(s);
        luas := s*s;
        write('Maka luas persegi adalah : ',luas);
        end;

procedure persegi_panjang;
var
   p,l,luas : integer;

begin
writeln;
        writeln('MENGHITUNG LUAS PERSEGI PANJANG');
        write('Panjang : '); readln(p);
        write('Lebar   : '); readln(l);
        luas := p*l;
        write('Maka luas persegi panjang adalah : ',luas);
        end;

procedure jajarangenjang;
var
   alas,tinggi,luas : integer;

begin
writeln;
        writeln('MENGHITUNG LUAS JAJARAN GENJANG');
        write('Alas   : '); readln(alas);
        write('Tinggi : '); readln(tinggi);
        luas := alas*tinggi;
        write('Maka luas jajaran genjang adalah : ',luas);
        end;

procedure layangan;
var
   d1,d2 : integer;
   luas  : real;

begin
writeln;
        writeln('MENGHITUNG LUAS LAYANG-LAYANG');
        write('Panjang diagonal 1 : '); readln(d1);
        write('Panjang diagonal 2 : '); readln(d2);
        luas := 0.5*d1*d2;
        write('Maka luas layang-layang adalah : ',luas:2:0);
        end;

begin
writeln('MENGHITUNG LUAS BANGUN DATAR');
    writeln('1. Luas Persegi ');
    writeln('2. Luas Persegi Panjang');
    writeln('3. Luas Jajarangenjang ');
    writeln('4. Luas Layang-Layang ');
     writeln('5. Keluar');
    writeln;
    write('Masukkan Pilihan anda {1/2/3/4/5} : '); readln(menu);

    if (menu=1) then
                begin
                persegi;
                end
    else if (menu=2) then
    begin
    persegi_panjang;
    end
        else if (menu=3) then
                begin
                jajarangenjang;
                end
        else if (menu=4) then
        begin
        layangan;
        end
    else
        begin
    exit;
    end;
    writeln;
    readln;
    end.

======================================================

 Ini penampakannya:

 

::::::::: Sekian & Terima Kasih :::::::::