tutorial program hitung lingkaran menggunakan pascal

program hitung_lingkaran;

uses

crt;

type

warna=(merah, kuning, biru);

const

PI=3.14;

var

jari2:integer=7;

warna_lingkaran:warna=merah;

function luas_lingkaran:real;

begin

luas_lingkaran:=PI*jari2*jari2;

end;

procedure kel_lingkaran(jari2:integer);

begin

write('Keliling Lingkaran = ');

writeln(PI*(jari2+jari2):4:2, ' cm');

end;

begin

clrscr;

writeln('==PROGRAM MENGHITUNG LUAS LINGKARAN==');

writeln('==---------------------------------==');

writeln('Diketahui: jari-jari lingkaran = ',jari2,' cm');

writeln('Warna Lingkaran = ',warna_lingkaran);

writeln('Luas Lingkaran = ',luas_lingkaran:4:2, ' cm');

kel_lingkaran(jari2);

readln;

end.

https://www.duniailkom.com/tutorial-belajar-pascal-struktur-dasar-kode-program-pascal/

Ratnasari