Pascal:Menghitung luas segi empat: Difference between revisions

@@ Line 34: / Line 34: @@
 ==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>