Program Pascal Menghitung Luas Lingkaran

Program Menghitung_Luas_Lingkaran I

Uses crt;

Var

C , a, b :real;

Ch:char;

Begin

Clrscr;

Writeln ('Masukan nilai a :            ');

Readln (a);

Writeln ('Masukan nilai b :            ');

readln (b);

C:=sqrt(a*a)+(b*b);

Writeln ('Hasil TERGANTUNG KEPUTUSAN NIDA=',C:10:2,'cm2');

Ch:=Readkey;

End.

Program menghitung Luas lingkaran II

uses crt;

var

r,L: real;

begin

  Clrscr;

     gotoxy(4,2);write('Luas Lingkaran : ');readln;

     gotoxy(4,3);write(‘Jari-jari : ');readln(r);

    L:=3.14*r*r;

     gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;

end.