Thursday, January 3, 2008

contoh Program Mencari Luas Dengan Menggunakan Pascal

USES CRT;
VAR alas,tinggi:integer;
LUAS:REAL;
BEGIN
CLRSCR;
gotoxy(25,3);
WRITE('nilai alas :');
gotoxy(25,4);
WRITE('nilai tinggi:');
gotoxy(25,5);
write('luasnya :');
gotoxy(40,3);
READLN(alas);
gotoxy(40,4);
READLN(tinggi);
LUAS:=alas*tinggi/2;
gotoxy(48,5);
WRITE(LUAS:10:2);
READLN;
END.