Pascal:Menghitung luas dan keliling lingkaran: Difference between revisions

VisualWikitext

@@ Line 1: / Line 1: @@
-*Algoritma Luas_Lingkaran
+*Algoritma <code>Luas_Lingkaran</code>
-**{Menghitung luas lingkaran untuk ukuran jari-jari tertentu.
+**Menghitung luas lingkaran untuk ukuran jari-jari tertentu.
-**Algoritma menerima masukan jari-jari lingkaran, menghitung luas dan kelilingnya, lalu cetak luas dan kelilingnya ke layar monitor}
+**Algoritma menerima masukan jari-jari lingkaran, menghitung luas dan kelilingnya, lalu cetak luas dan kelilingnya ke layar monitor.
 *Deklarasi
 **jari = real {tipe data bilangan pecahan}
@@ Line 8: / Line 8: @@
 **Phi = 3.14 {nilai tetap phi }
 *Deskripsi:
-**Baca jari_jari
+**Baca <code>jari_jari</code>
-**Hitung luas = Phi * jari * jari
+**Hitung luas = <code>Phi * jari * jari</code>
-**Hitung Kel = 2 * Phi * Jari
+**Hitung Kel = <code>2 * Phi * Jari</code>
 **Tampilkan luas dan keliling lingkaran ke layar
 **Selesai
+<syntaxhighlight lang="pascal" line="1">
+program Hitung_Luas_Kel_Lingkaran
+uses crt;
- program Hitung_Luas_Kel_Lingkaran
+var
- uses crt;
+  jari      : integer;
+ luas, kel :real;
-  var
+const
-  jari      : integer;
+ phi = 3.14;
-  luas, kel :real;
- const
+begin
-  phi = 3.14;
+ clrscr;
+ writer('Masukkan berap jari-jarinya = ');readln(jari);
- begin
+ luas := phi * jari * jari;
-  clrscr;
+ kel  := 2 * phi * jari;
-  writer('Masukkan berap jari-jarinya = ');readln(jari);
+ writeln('Jadi luas lingkaran adalah = ',luas:4:2);
-  luas := phi * jari * jari;
+ writeln('Jadi keliling lingkaran adalah = ",kel:4:2);
-  kel  := 2 * phi * jari;
+ readln;
-  writeln('Jadi luas lingkaran adalah = ',luas:4:2);
+end.
-  writeln('Jadi keliling lingkaran adalah = ",kel:4:2);
+</syntaxhighlight>
-  readln;
- end.
 ==Terkait==