Algoritma Dan Program Hitung Luas, Kel Lingkaran dalam Bahasa Pascal

Algoritma Hitung Luas, Kel Lingkaran

Program HitungLuasKelLingkaran
{dibaca jari-jari lalu hitung luas dan keliling lingkaran}

Deklarasi :
const phi : 3.14
r : integer
luas, kel : real

Algoritma :
raed (r)
luas ? phi*r*r
kel ? 2*phi*r
write (luas)
write (keliling)

Catatan :
Karakter "?" dalam algoritma pemrograman di sebut sebagai assignment.



Program Hitung Luas, Kel Lingkaran dalam Bahasa Pascal

Program Hitung_Luas_Kel_Lingkaran;
{Dibaca jari-jari lalu hitung luas dan keliling lingkaran}

var
        r:integer;
        luas, keliling:real;
        const phi=3.14;

begin
        write('masukkan jari-jari : ');readln(r);
        luas:=phi*r*r;
        keliling:=2*phi*r;
        writeln('Luas : ',luas);
        writeln('Keliling : ',keliling);
end.


TERIMAKASIH.