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

Variabel Local dan Global

Variabel Global adalah variabel yang dikenal di seluruh badan program dan di definisikan di dalam program utama.

Variabel Lokal adalah variabel yang hanya dikenal di badan program yang mendefinisikannya, di definisikan di prosedure atau fungsi.

Contoh :
Program <Nama Program>
Var A : Tipe variabel {Variabel Global}

Procedure / Fungsi
Var C : Tipe Variabel {Variabel Lokal}

Dari contoh diatas A adalah variabel global karena A didefinisikan di program utama sehingga bisa dikenal oleh seluruh badan program. Sedahg variabel C adalah variabel lokal dan hanya dikenal di tempat didefinisikannya