contoh program luas lingkaran pada pascal
PROGRAM
luas_lingkaran;
USES
CRT;
CONST
phi = 3.14;
VAR r :
integer;
luas : real;
BEGIN
CLRSCR;
WRITELN(‘Program Menghitung Luas Lingkaran’);
WRITELN(‘Diketahui :’);
WRITE(‘
Jari-jari = ‘);READLN(r);
luas:=phi*r*r;
WRITELN(‘ Phi = ‘,phi);
WRITELN(‘Maka :’);
WRITELN(‘ Luas Lingkaran = ‘,luas);
WRITE(‘ Luas Lingkaran = ‘,luas:0:0);
READLN;
END.
ADS HERE !!!