Pascal:Menghitung luas segi empat: Difference between revisions
Created page with "*Algoritma Luas Segi Empat **Algoritma menerima masukan panjang dan lebar segiempat **Menghitung luasnya **Cetak luasnya ke piranti keluaran (Layar) *Deklarasi : **Panjang =..." |
|||
| (2 intermediate revisions by the same user not shown) | |||
| Line 5: | Line 5: | ||
*Deklarasi : | *Deklarasi : | ||
**Panjang = Int | **Panjang = <code>Int</code> (tipe data bilangan bulat) | ||
**Lebar = Int | **Lebar = <code>Int</code> (tipe data bilangan bulat) | ||
**Luas = Int | **Luas = <code>Int</code> (tipe data bilangan bulat) | ||
*Deskripsi: | *Deskripsi: | ||
**Baca variabel Panjang | **Baca variabel Panjang | ||
**Baca variabel Lebar | **Baca variabel Lebar | ||
**Hitung luas Segi 4 = Panjang * Lebar | **Hitung luas Segi 4 = <code>Panjang * Lebar</code> | ||
**Tampilkan luas ke layar | **Tampilkan luas ke layar | ||
**Selesai | **Selesai | ||
| Line 33: | Line 33: | ||
==Program== | ==Program== | ||
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; | ||
| Line 49: | Line 48: | ||
readln; | readln; | ||
end. | end. | ||
==Terkait== | ==Terkait== | ||
Latest revision as of 17:07, 13 December 2025
- Algoritma Luas Segi Empat
- Algoritma menerima masukan panjang dan lebar segiempat
- Menghitung luasnya
- Cetak luasnya ke piranti keluaran (Layar)
- Deklarasi :
- Panjang =
Int(tipe data bilangan bulat) - Lebar =
Int(tipe data bilangan bulat) - Luas =
Int(tipe data bilangan bulat)
- Panjang =
- Deskripsi:
- Baca variabel Panjang
- Baca variabel Lebar
- Hitung luas Segi 4 =
Panjang * Lebar - Tampilkan luas ke layar
- Selesai
Struktur Program
- Judul Program
- Program Hitung_Luas_Segi_Empat;
- Bagian Deklarasi
- Pjg : Int;
- Lbr : Int;
- Luas : Int;
Begin
- Baca Panjang = Write(“Masukan Panjang…=“);Readl(Pjg);
- Baca Panjang = Write(“Masukan Panjang…=“);Readl(Lbr);
- Hitung Luas = Luas := Panjang * Lebar; { ini yang di maksud kesalahan identifier (pengenal)}
- Tampilkan Hasil = Write(“Luas Segi Empat..=“, Luas);
- Hentikan sesaat biar bisa terbaca = Readln;
End
Program
program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}
uses crt;
var
lbr : integer; {bagian deklarasi variabel}
pjg : integer;
luas : integer;
begin
clrscr;
write('Masukkan berapa Lebarnya = ');readln(lbr);
write('Masukkan berapa Panjangnya = ');readln(pjg);
luas : lbr * pjg;
writeln('Jadi Luas Empat adalah = ',Luas);
readln;
end.