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/