Contoh Algoritma Luas Persegi Panjang

Algoritma Luas_PersegiPanjang

Deklarasi

Panjang, Lebar, Luas : Integer

Deskripsi

Read (Panjang, Lebar)

Luas ← Panjang * Lebar

Write (Luas)

Bahasa pascal 

Program Luas_Persegi_Panjang;

Uses WinCrt;

Var

p,l,Luas : Integer;

Begin

Write('Panjang persegi Panjang ='); Readln(p);

Write('Lebar persegi Panjang ='); Readln(l);

Luas:=p*l;

Writeln;

Writeln;

Writeln('**************************');

Writeln('Luas persegi Panjang =',Luas);

Writeln('**************************');

End.

http://arliyanatik.blogspot.com