Latihan Prokom Luas

LUAS SEGITIGA

program luassegi3;
uses wincrt;
var a,t:integer;
luas:real;
c:char;
begin
writeln('luas segitiga');
repeat
writeln('masukkan a= ');read(a);
writeln('masukkan t= ');read(t);
luas:=0.5 * a * t;
writeln('luas_segitiga=',luas:0:7);
writeln('hitung lagi? (y/t)=');read(c);
until (c='T') or (c='t');
end.


LUAS PERSEGI PANJANG

program luas_lingkaran;
uses wincrt;
var a: longint;
luas:real;
c:char;
const phi=3.14;
begin

writeln('luas lingkaran');
repeat
writeln('masukkan jari-jari: ');
readln(a);
luas:=phi * a * a;
writeln('luas_lingkaran=',luas:0:5);
writeln('hitung lagi?(y/t)=');read(c);
until (c='T') or (c='t');
end.