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.
Thursday, January 3, 2008
contoh Program Mencari Luas Dengan Menggunakan Pascal
Diposting oleh Yanto di 3:46 PM 0 komentar
Subscribe to:
Posts (Atom)