[Turbo Pascal] Menghitung Luas Lingkaran Menggunakan Fungsi

Program swift;
uses wincrt;
function luas_lingkaran(r:integer; hasil:real):real;
begin
    luas_lingkaran:=(22/7)*sqr(r);
    end;

    var
    r:integer;
    hasil:real;
    begin
      write('Masukkan Panjang Jari-jari : '); readln(r);
      writeln('Luasnya = ',luas_lingkaran(r,hasil):0:2);
end.

Related Articel:

Posted in: Turbo Pascal