Home » , » Pascal Keliling Lingkaran

Pascal Keliling Lingkaran

Posted by Kamar Pekick on Monday, 30 April 2012

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 Kamar Pekick

Previous
« Prev Post

0 komentar:

Post a Comment