Pascal:Menghitung luas segi tiga: Difference between revisions

VisualWikitext

@@ Line 1: / Line 1: @@
-*Algoritma Luas_Segi_Tiga
+*Algoritma <code>Luas_Segi_Tiga</code>
 **Algoritma menerima masukan Alas dan Tinggi segi tiga
 **Menghitung luasnya
 **Cetak luasnya ke piranti keluaran (Layar)
-*Deklarasi :
+*Deklarasi:
-**Alas = Int {tipe data bilangan bulat}
+**Alas = <code>Int</code> (tipe data bilangan bulat)
-**Tinggi = Int {tipe data bilangan bulat}
+**Tinggi = <code>Int</code> (tipe data bilangan bulat)
-**Luas = Real {tipe data bilangan pecahan}
+**Luas = <code>Real</code> (tipe data bilangan pecahan)
 *Deskripsi:
 **Baca variabel Alas
 **Baca variabel Tinggi
-**Hitung luas Segi 3 = (0.5 * Alas * Tinggi ) atau
+**Hitung luas Segi 3 = <code>(0.5 * Alas * Tinggi)</code> atau
-**Hitung luas Segi 3 = (Alas * Tinggi )/2 atau
+**Hitung luas Segi 3 = <code>(Alas * Tinggi )/2</code> atau
 **Tampilkan luas ke layar
 **Selesai
 ==Program==
- program Hitung_Luas_Segi_Tiga;
+<syntaxhighlight lang="pascal" line="1">
- uses crt;
+program Hitung_Luas_Segi_Tiga;
- var
+uses crt;
-  Alas, Tinggi : integer;
+var
-  luas         : real;
+ Alas, Tinggi : integer;
+ luas         : real;
- begin
-  clrscr;
+begin
-  write('Masukkan berapa alasnya = ');readln(alas);
+ clrscr;
-  write('Masukkan berapa tingginya = ');readln(tinggi);
+ write('Masukkan berapa alasnya = ');readln(alas);
-  luas :0.5 * alas * tinggi;
+ write('Masukkan berapa tingginya = ');readln(tinggi);
-  writeln('Jadi luas segitiga adalah = ',luas:4:2);
+ luas :0.5 * alas * tinggi;
-  readln
+ writeln('Jadi luas segitiga adalah = ',luas:4:2);
- end.
+ readln
+end.
+</syntaxhighlight>
 ==Terkait==