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