Jump to content

Pascal:Menghitung luas segi tiga: Difference between revisions

From Wiki
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
Created page with "*Algoritma Luas_Segi_Tiga **Algoritma menerima masukan Alas dan Tinggi segi tiga **Menghitung luasnya **Cetak luasnya ke piranti keluaran (Layar) *Deklarasi : **Alas = Int {t..."
 
 
Line 1: Line 1:
*Algoritma Luas_Segi_Tiga
*Algoritma <code>Luas_Segi_Tiga</code>
**Algoritma menerima masukan Alas dan Tinggi segi tiga
**Algoritma menerima masukan Alas dan Tinggi segi tiga
**Menghitung luasnya
**Menghitung luasnya
**Cetak luasnya ke piranti keluaran (Layar)
**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:
*Deskripsi:
**Baca variabel Alas
**Baca variabel Alas
**Baca variabel Tinggi
**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
**Tampilkan luas ke layar
**Selesai
**Selesai


==Program==
==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==
==Terkait==

Latest revision as of 11:52, 12 September 2022

  • Algoritma Luas_Segi_Tiga
    • Algoritma menerima masukan Alas dan Tinggi segi tiga
    • Menghitung luasnya
    • Cetak luasnya ke piranti keluaran (Layar)
  • Deklarasi:
    • Alas = Int (tipe data bilangan bulat)
    • Tinggi = Int (tipe data bilangan bulat)
    • Luas = Real (tipe data bilangan pecahan)
  • Deskripsi:
    • Baca variabel Alas
    • Baca variabel Tinggi
    • Hitung luas Segi 3 = (0.5 * Alas * Tinggi) atau
    • Hitung luas Segi 3 = (Alas * Tinggi )/2 atau
    • Tampilkan luas ke layar
    • Selesai

Program

program Hitung_Luas_Segi_Tiga;
uses crt;
var
 Alas, Tinggi : integer;
 luas         : real;

begin
 clrscr;
 write('Masukkan berapa alasnya = ');readln(alas);
 write('Masukkan berapa tingginya = ');readln(tinggi);
 luas :0.5 * alas * tinggi;
 writeln('Jadi luas segitiga adalah = ',luas:4:2);
 readln
end.

Terkait

Retrieved from "https://kangtain.com/wiki/index.php?title=Pascal:Menghitung_luas_segi_tiga&oldid=5779"