Program Luas Daerah dengan Pascal

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.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Senin, 05 Januari 2015