RUMUS-RUMUS ALGORITMA DALAM DELPHI 7

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