program luasdaerah;
uses crt;
const phi=3.14;
var jarijari,zizi,luaz,n,y:integer;
function fungsii(luas:real):real;
begin
fungsi:=(luaz-luas);
end;
begin
clrscr;
begin
writeln ('menghitung luas lingkaran');
write ('Masukan jari-jari = ');
readln (jarijari);
luas:=phi*sqr(jarijari);
writeln;
writeln('Luas lingkaran adalah ',round(luas),' cm2, ');
readln;
end;
begin
writeln ('menghitung luas persegi');
write ('Masukan sisi = ');
readln (zizi);
luaz:=zizi*zizi;
writeln;
writeln ('Luas persegi adalah ',luaz);
readln;
end;
begin
writeln ('luas daerah yang diarsir adalah = ');
readln(fungsi);
end;
begin
for n:=10 to 100 do
writeln(y);
end;
end.
Belum ada tanggapan untuk "Program Luas Daerah dengan Pascal"
Posting Komentar