Pascal:Menghitung luas segi empat

• Algoritma Luas Segi Empat
  • Algoritma menerima masukan panjang dan lebar segiempat
  • Menghitung luasnya
  • Cetak luasnya ke piranti keluaran (Layar)

• Deklarasi :
  • Panjang = Int (tipe data bilangan bulat)
  • Lebar = Int (tipe data bilangan bulat)
  • Luas = Int (tipe data bilangan bulat)

• Deskripsi:
  • Baca variabel Panjang
  • Baca variabel Lebar
  • Hitung luas Segi 4 = Panjang * Lebar
  • Tampilkan luas ke layar
  • Selesai

Struktur Program

• Judul Program
• Program Hitung_Luas_Segi_Empat;
• Bagian Deklarasi
• Pjg : Int;
• Lbr : Int;
• Luas : Int;

Begin

• Baca Panjang = Write(“Masukan Panjang…=“);Readl(Pjg);
• Baca Panjang = Write(“Masukan Panjang…=“);Readl(Lbr);
• Hitung Luas = Luas := Panjang * Lebar;  { ini yang di maksud kesalahan identifier (pengenal)}
• Tampilkan Hasil = Write(“Luas Segi Empat..=“, Luas);
• Hentikan sesaat biar bisa terbaca = Readln;

Program

program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}
uses crt;
var
 lbr  : integer;    {bagian deklarasi variabel}
 pjg  : integer;
 luas : integer;

begin
 clrscr;
 write('Masukkan berapa Lebarnya = ');readln(lbr);
 write('Masukkan berapa Panjangnya = ');readln(pjg);
 luas : lbr * pjg;
 writeln('Jadi Luas Empat adalah = ',Luas);
 readln;
end.

Terkait

• Pascal