5 Rumus matematika algoritma
1. (luas lingkaran)
program Project2;
{SAPPTYPE CONSOLE}
uses
SysUtiils;
const
phi=3.14;
var
r:integer;
l:real;
begin
write ('masukan jari-jari=');
readln(r);
l:=(r*r*phi);
writeln('hasil=',1:4:2);
readln;
( TODO -oUser -cConsole Main : Insert code here )
end.
![]() |
Luas Lingkaran |
2.(luas persegi panjang)
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
panjang,lebar,l:real;
begin
write ('masukan panjang=');
readln(panjang);
write ('masukan lebar=');
readln(lebar);
l:=(panjang*lebar);
writeln('hasil=',l:4:0);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
![]() |
Luas Persegi Panjang |
3.(luas prisma)
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
alas,tinggi,l:real;
begin
write ('masukan alas=');
readln(alas);
write ('masukan tinggi=');
readln(tinggi);
l:=(alas*tinggi);
writeln('hasil=',l:4:0);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
![]() |
Luas Prisma |
4.(luas persegi)
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
sisi,l:real;
begin
write ('masukan sisi=');
readln(sisi);
l:=(sisi*sisi);
writeln('hasil=',l:4:0);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
![]() |
Luas Persegi |
5.(luas tabung)
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
jari,tinggi,l:real;
begin
write ('masukan jari-jari=');
readln(jari);
write ('masukan tinggi=');
readln(tinggi);
l:=(3.14*jari*jari*tinggi);
writeln('hasil=',l:4:0);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
![]() |
Luas Tabung |
Tidak ada komentar:
Posting Komentar