Program PasMath;Uses Crt;Const Phi = 3.14;Var pjg,lbr,jari,alas,tinggi : real; luas,kel : real; pilih : integer;Begin pilih := 1; While pilih <> 0 Do Begin ClrScr; Gotoxy(13,3); Write('PROGRAM MATEMATIKA DENGAN PASCAL'); Gotoxy(13,4); Write('================================'); Gotoxy(13,6); Write('1. MENGHITUNG LUAS...
Subscribe to:
Posts (Atom)