Program Pascal Procedure

 

Program Pascal Procedure 

Halo semua, disini saya akan membagikan contoh Program Pascal Yaitu Procedure, Saya akan membagikan contoh Procedure Tanpa parameter, Masukkan, Keluaran, dan keluaran/masukkan.

 Source code  pascal :

1.   Program Luas_Segitiga (Tanpa Parameter) ;

 program LuasSegitiga;

  uses crt;

       var

        i,n : integer;

 procedure HitungLuasSegitiga;

 var

                alas     : real;

                tinggi  : real;

                luas     : real;

 begin

                write (‘Masukkan Panjang Alas Segitiga : ‘); readln (alas);

                write (‘Masukkan Tinggi segitiga             : ‘); readln (tinggi);

                luas := (alas * tinggi) / 2;

                writeln (‘Luas Segitiga = ‘,luas:0:0);

                writeln (‘======================================’);

end;

begin

                clrscr;

                write (‘Banyaknya Segitiga ? ‘); readln (n);

                writeln (‘==========================’);

                for I := 1 to n do

                HitungLuasSegitiga;

readkey;

end.

     2. Program Pascal Procedure Masukkan 

     program Segitiga;

uses crt;

var

i, n : integer;

a, t : real;

procedure HitungLuasSegitiga (alas, tinggi : real);

var

luas : real;

begin

luas := (alas * tinggi) / 2;

writeln (‘Luas Segitiga = ‘, luas:0:0);

writeln (‘======================’);

end;

begin

clrscr;

write (‘Masukkan Banyaknya Segitiga : ‘); readln (n);

writeln (‘=======================’);

for i := 1 to n do

write (‘Masukkan Panjang Alas Segitiga : ‘); readln (a);

write (‘Masukkan Tinggi Segitiga             : ‘); readln (t);

HitungLuasSegitiga (a,t);

end;

readkey;

end.

3.           Program Pascal Procedure Keluaran

 

program segitiga;

uses crt;

var

i, n : integer;

a, t : real;

L     : real;

procedure HitungLuasSegitiga (alas, tinggi : real; var luas : real);

begin

luas := (alas * tinggi) /2;

end;

begin

clrscr;

write (‘Banyaknya Segitiga : ‘); readln (n);

write (‘==========================’);

for i := 1 to n do

begin

write (‘Masukkan Panjang Alas Segitiga : ‘); readln (a);

write (‘Masukkan Tinggi Segitiga             : ‘); readln (t);

HitungLuasSegitiga (a,t,L);

writeln (‘Luas Segitiga =  ‘,L:0:0);

writeln (‘========================’);

end;

readkey;

end.

 

Terimah Kasih, Semoga bermanfaat untuk kalian yang masih belajar Bahasa Pemrograman Pascal.

#SamaSamaBelajar

     #KaloNggakHariKapanLagi