Bulan Genap dan Ganjil

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  bulangenap :integer;

  bulanganjil :integer;

begin

write ('Masukkan bulan genap :');readln(bulangenap);

writeln ('februari :',(2)); readln;

writeln ('april :',(4)); readln;

writeln ('juni :',(6)); readln;

writeln ('agustus :',(8)); readln;

writeln ('oktober :',(10)); readln;

writeln ('desember :',(12)); readln;

write ('Masukkan bulan ganjil :');readln(bulanganjil);

writeln ('januari :',(1)); readln;

writeln ('maret :',(3)); readln;

writeln ('mei :',(5)); readln;

writeln ('juli :',(7)); readln;

writeln ('september :',(9)); readln;

writeln ('november :',(11)); readln;

writeln ('********* Terimah Kasih ***********'); readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

DESIGN GAMBAR ALGORITMA DALAM DELPHI-7

Gambar Algoritma 

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
writeln('==========================================================================');
writeln('===      ========       ====     ===========      ====                 ===');
writeln('====     ========      ====         ======         ====               ====');
writeln('====      ======       ====          ====          ====     ==============');
writeln('====       ====        =====          ==          =====     ==============');
writeln('====        ==         ======                    ======                ===');
writeln('====                   =======                  =======               ====');
writeln('====      =======      =========              =========     ==============');
writeln('====     =========     ===========           ==========     ==============');
writeln('====     =========     =============       ============     ==============');
writeln('====     =========     ===============    =============     ==============');
writeln('====     =========     ================  ==============     ==============');
writeln('===       =======       ==============================       =============');
writeln('==========================================================================');
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

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