Pascal:Menghitung luas segi empat: Difference between revisions

@@ Line 33: / Line 33: @@
 ==Program==
-<syntaxhighlight lang="pascal" line="1">
+ program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}
-program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}
+ uses crt;
-uses crt;
+ var
-var
+  lbr  : integer;    {bagian deklarasi variabel}
- lbr  : integer;    {bagian deklarasi variabel}
+  pjg  : integer;
- pjg  : integer;
+  luas : integer;
- luas : integer;
+ begin
-begin
+  clrscr;
- clrscr;
+  write('Masukkan berapa Lebarnya = ');readln(lbr);
- write('Masukkan berapa Lebarnya = ');readln(lbr);
+  write('Masukkan berapa Panjangnya = ');readln(pjg);
- write('Masukkan berapa Panjangnya = ');readln(pjg);
+  luas : lbr * pjg;
- luas : lbr * pjg;
+  writeln('Jadi Luas Empat adalah = ',Luas);
- writeln('Jadi Luas Empat adalah = ',Luas);
+  readln;
- readln;
+ end.
-end.
-</syntaxhighlight>
 ==Terkait==