Menghitung Luas Segitiga Dan Lingkaran Menggunakan Delphi ~ Random Feed

Menghitung Luas Segitiga dan Lingkaran

Jika kemarin saya membuat program menghitung luas segitiga dan persegi panjang menggunakan C++, Maka hari ini saya akan membuat program menghitung luas segitiga dan luas lingkaran menggunakan Pemprograman Delphi.

Berikut Codingannya :

MENGHITUNG LUAS SEGITIGA

program segitiga;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

alas,tinggi: integer;

luas: real;

begin

writeln('Adam Rahmatul Pasha');

writeln('Informatika');

writeln('05201740039');

writeln('');

writeln('Menghitung Luas Segitiga');

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

writeln('');

write('Masukan Nilai Alas : ');

readln(alas);

write('Masukan Nilai Tinggi : ');

readln(tinggi);

writeln('');

luas:=alas*tinggi*0.5;

writeln('Luas Segitiga adalah ' , luas:2:1);

readln;

end.

Maka hasilnya akan seperti ini :

MENGHITUNG LUAS LINGKARAN

program lingkaran;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

r: integer;

phi, luas: real;

begin

phi:=3.14;

writeln('Adam Rahmatul Pasha');

writeln('Informatika');

writeln('05201740039');

writeln('');

writeln('Menghitung Luas Lingkaran');

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

writeln('');

write('Masukkan Jari-Jari : ');

readln(r);

luas:=r*r*phi;

writeln('Luas Lingkaran adalah ', luas:2:1);

readln;

end.

Maka hasilnya akan seperti ini :

SELAMAT MENCOBA!