Tugas TIK_ Turbo Pascal

TURBO PASCAL 7.0 PROGRAM DEKLA

Ini Dia Hasil Program Dekla Turbo Pascal ;;;;;;;;;;;



Niy caranya dapatin hasilnya program dekla ;

PROGRAM Dekla;

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


USES Crt;

LABEL
Selesai;

TYPE
BilanganNyata = Byte;

VAR
Panjang : BilanganNyata;
Lebar : BilanganNyata;

PROCEDURE HitungLuasDanKeliling (p : BilanganNyata; l : BilanganNyata);

BEGIN
ClrScr;
WriteLn(‘Luas = ‘, p * l);
WriteLn(‘Keliling = ‘, 2 * (p+l));
END;

BEGIN { Program Utama }
Panjang := 7;
Lebar := 4;
HitungLuasDanKeliling (Panjang, Lebar);
GOTO Selesai;

WriteLn(‘Lho kok saya dilewati’);

Selesai:
WriteLn(‘Muhammad Harits Parlin Xa’);

END.

Ini Kome' Gambareeeeeeeeeeee ;