Turbo Pascal Homework

this is what we have to do :
1. buat program dengan turbo pascal untuk menghitung luas dan keliling persegi panjang


and this the way i make the first program..


PROGRAM Dekla;

{———————————————————}
{Contoh deklarasi yang lengkap.}
{———————————————————}

USES Crt;

LABEL

Selesai;

TYPE

BilanganNyata = Real;

VAR

Panjang : BilanganNyata;

Lebar : BilanganNyata;

PROCEDURE HitungLuas(PanjangLebar : BilanganNyata);

BEGIN

ClrScr;

WriteLn (‘Luas = ‘, Panjang * Lebar);

END;

BEGIN {Program Utama}

Panjang := 7;

Lebar := 4;

HitungLuas(Panjang*Lebar);

GOTO Selesai;

Selesai :

WriteLn (‘Selesai…’);

WriteLn (‘Alita Hermaya XA’);

END.


and this the fact i make the first program..

the first program is completed.


tapi belom bener-bener selesai. sekarang buat program yang kedua yaitu menghitung keliling persegi panjang.


so, this is all of steps i make the second program..

PROGRAM Dekla;

{———————————————————}

{Contoh deklarasi yang lengkap.}
{———————————————————}

USES Crt;

LABEL

Selesai;

TYPE

BilanganNyata = Real;

VAR

Panjang : BilanganNyata;

Lebar : BilanganNyata;

PROCEDURE HitungKeliling(PanjangLebar:BilanganNyata);

BEGIN

ClrScr;

END;

BEGIN {Program Utama}

Panjang:=7;

Lebar:=4;

HitungKeliling(Panjang+Lebar+Panjang+Lebar);

GOTO Selesai;

Selesai:

WriteLn ('Selesai...');

WriteLn ('Alita Hermaya XA');

END.

and this is the fact i have done the second program..

and the second program is completed too.

so i have done my homework. thanks for read this.
please visit my bloglife : alitahermaya.blogspot.com