Wiki

Pascal:Menghitung luas segi empat: Difference between revisions

Newer edit →
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
Created page with "*Algoritma Luas Segi Empat **Algoritma menerima masukan panjang dan lebar segiempat **Menghitung luasnya **Cetak luasnya ke piranti keluaran (Layar) *Deklarasi : **Panjang =..."
 
Line 5: Line 5:


*Deklarasi :
*Deklarasi :
**Panjang = Int {tipe data bilangan bulat}
**Panjang = <code>Int</code> (tipe data bilangan bulat)
**Lebar = Int {tipe data bilangan bulat}
**Lebar = <code>Int</code> (tipe data bilangan bulat)
**Luas = Int {tipe data bilangan bulat}
**Luas = <code>Int</code> (tipe data bilangan bulat)


*Deskripsi:
*Deskripsi:
**Baca variabel Panjang
**Baca variabel Panjang
**Baca variabel Lebar
**Baca variabel Lebar
**Hitung luas Segi 4 = Panjang * Lebar
**Hitung luas Segi 4 = <code>Panjang * Lebar</code>
**Tampilkan luas ke layar
**Tampilkan luas ke layar
**Selesai
**Selesai
Line 33: Line 33:


==Program==
==Program==
<syntaxhighlight lang="pascal" line="1">
program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}
uses crt;
var
lbr  : integer;    {bagian deklarasi variabel}
pjg  : integer;
luas : integer;


program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}
begin
  uses crt;
  clrscr;
  var
  write('Masukkan berapa Lebarnya = ');readln(lbr);
  lbr  : integer;    {bagian deklarasi variabel}
write('Masukkan berapa Panjangnya = ');readln(pjg);
  pjg  : integer;
luas : lbr * pjg;
  luas : integer;
writeln('Jadi Luas Empat adalah = ',Luas);
readln;
begin
end.
  clrscr;
</syntaxhighlight>
  write('Masukkan berapa Lebarnya = ');readln(lbr);
  write('Masukkan berapa Panjangnya = ');readln(pjg);
  luas : lbr * pjg;
  writeln('Jadi Luas Empat adalah = ',Luas);
  readln;
end.
 


==Terkait==
==Terkait==
Retrieved from "https://kangtain.com/wiki/index.php/Pascal:Menghitung_luas_segi_empat"