Pascal Keliling Lingkaran

pascal menghitung luas lingkaran. 

Programvariabel3;

Uses crt;

Var Sisi, Luas, Keliling:r:real;

Const phi=3.14;

Nama=’riky kurniawan;

NPM=’201143500409’;

Kelas=’S1d’;

Tugas=’Membuat Program Lingkaran’;

Begin

Clrscr;

Luas=phi*r*r;

Keliling:=phi*(2*r);

gotoxy(30,1);

writeln(‘Nama   =’,Nama);

gotoxy(30,2);

writeln(‘NPM     =’,NPM);

gotoxy(30,3);

writeln(‘Kelas     =’,Kelas);

gotoxy(30,4);

writeln(‘Tugas     =’,Tugas);

writeln(‘r Adalah             =’,r:0:2);

writeln(‘Luas Adalah       =’,Luas:0:2);

writeln(‘Keliling Adalah  =’Keliling:0:2);

readln;

end.

Thanks for reading & sharing Kamarnya Pekick