Program pascal 4

1.      Program Function

Program Function;

uses crt;

procedure Menu;

begin

      writeln('Menu Program');

      writeln('1. Luas Segitiga');

      writeln('2. Keliling Kegitiga');

      writeln('3. Luas Persegi');

      writeln('4. Keliling Persegi');

      writeln('5. Luas Lingkaran');

      writeln('6. Keliling Lingkaran');

      writeln('7. Luas Trapesium');

      writeln('8. Keliling Trapesium');

end;

//Luas Segitiga

function luasSegitiga(alas,tinggi:integer): real;

begin

      LuasSegitiga:=0.5*alas*tinggi;

end;

procedure LuasSegitiga;

var x,y:integer;

begin

clrscr;

      writeln('LUAS SEGITIGA');

      writeln('====================');

      write('Masukan Alas : '); readln(x);

      write('Masukan tinggi : '); readln(y);

      writeln;

      writeln('Jadi Luas Segitiga adalah : ',LuasSegitiga(x,y):3:2);   

end;

//Keliling Segitiga

function kelilingSegitiga(alas,tinggi,sisimiring:integer):real;

begin

      KelilingSegitiga:=alas+tinggi+sisimiring;

end;

procedure KelilingSegitiga;

var x,y,z:integer;

begin

clrscr;

      writeln('KELILING SEGITIGA');

      writeln('=================');

      write('Masukkan Alas : '); readln(x);

      write('Masukkan Tinggi : '); readln(y);

      write('Masukan Sisi Miring : '); readln(z);

      writeln;

      writeln('Jadi Keliling Segitiga adalah : ',KelilingSegitiga(x,y,z):3:2);     

end;

//Luas Persegi

function LuasPersegi(sisi:integer): real;

begin

      LuasPersegi:=sisi*sisi;

end;

Procedure LuasPersegi;

var

x:integer;

begin

clrscr;

      writeln('LUAS PERSEGI');

      writeln('====================');

      write('Masukan Sisi : '); readln(x);

      writeln;

      writeln('Jadi Luas Persegi : ',LuasPersegi(x):3:2);  

end;

//Keliling Persegi

function KelilingPersegi(sisi:integer): real;

begin

      KelilingPersegi:=4*sisi;

end;

Procedure KelilingPersegi;

var

x:integer;

begin

clrscr;

      writeln('KELILING PERSEGI');

      writeln('================');

      write('Masukan Sisi : '); readln(x);

      writeln;

      writeln('Jadi Keliling Persegi : ',KelilingPersegi(x):3:2);

end;

//Luas Lingkaran

function LuasLingkaran(jari_jari:integer): real;

begin

      LuasLingkaran:=3.14*jari_jari*jari_jari;

end;

Procedure LuasLingkaran;

var

x:integer;

begin

clrscr;

      writeln('LUAS LINGKARAN');

      writeln('====================');

      write('Masukan Jari-Jari : '); readln(x);

      writeln;

      writeln('Jadi Luas Lingkaran : ',LuasLingkaran(x):3:2);    

end;

//Keliling Lingkaran

function kelilingLingkaran(diameter:integer): real;

begin

      KelilingLingkaran:=3.14*diameter;

end;

Procedure KelilingLingkaran;

var

x:integer;

begin

clrscr;

      writeln('KELILING LINGKARAN');

      writeln('====================');

      write('Masukan diameter : '); readln(x);

      writeln;

      writeln('Jadi Keliling Lingkaran adalah : ',KelilingLingkaran(x):3:2); 

end;

//Luas Trapesium

function luasTrapesium(sisi_a,sisi_b,tinggi:integer): real;

begin

      LuasTrapesium:=(sisi_a+sisi_b)*tinggi/2;

end;

Procedure LuasTrapesium;

var

x,y,z:integer;

begin

clrscr;

      writeln('LUAS TRAPESIUM');

      writeln('==============');

      write('Masukan sisi a : '); readln(x);

      write('Masukan sisi b : '); readln(y);

      write('Masukan tinggi : '); readln(z);

      writeln;

      writeln('Jadi Luas Trapesium adalah  : ',LuasTrapesium(x,y,z):3:2);    

end;

//Keliling Trapesium

function kelilingTrapesium(sisi_a,sisi_b,sisimiring:integer): real;

begin

      KelilingTrapesium:=sisi_a+sisi_b+(sisimiring*2);

end;

Procedure KelilingTrapesium;

var

x,y,z:integer;

begin

clrscr;

      writeln('LUAS TRAPESIUM');

      writeln('==============');

      write('Masukan sisi a : '); readln(x);

      write('Masukan sisi b : '); readln(y);

      write('Masukan sisi miring : '); readln(z);

      writeln;

      writeln('Jadi Keliling Trapesium adalah  : ',KelilingTrapesium(x,y,z):3:2);     

end;

var

pil:byte;

begin

clrscr;

      menu;

      write('Pilih Menu Yang Anda Inginkan : '); readln(pil);

      case pil of

      1 : LuasSegitiga;

      2 : KelilingSegitiga;

      3 : LuasPersegi;

      4 : KelilingPersegi;

      5 : LuasLingkaran;

      6 : KelilingLingkaran;

      7 : LuasTrapesium;

      8 : KelilingTrapesium;

end;

end.

1.  Luas Segitiga

 

2.  Keliling Segitiga

 

3.  Luas Persegi

 

4.  Keliling Persegi

 

5.  Luas Lingkaran

6.  Keliling Lingkaran

 

7.  Luas Trapesium

 

8.  Keliling Trapesium