Pascal:Menghitung luas segi empat - Revision history

Kangtain: /* Program */

2025-12-13T10:07:56Z

Program

← Older revision		Revision as of 17:07, 13 December 2025
Line 33:		Line 33:

	==Program==		==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;
Line 49:		Line 48:
	readln;		readln;
	end.		end.
	~~</syntaxhighlight>~~

	==Terkait==		==Terkait==

Kangtain: /* Program */

2025-12-13T10:07:43Z

Program

← Older revision		Revision as of 17:07, 13 December 2025
Line 34:		Line 34:
	==Program==		==Program==
	<syntaxhighlight lang="pascal" line="1">		<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>		</syntaxhighlight>

Kangtain: /* Program */

2022-09-12T04:54:20Z

Program

← Older revision		Revision as of 11:54, 12 September 2022
Line 5:		Line 5:

	*Deklarasi :		*Deklarasi :
	**Panjang = Int {tipe data bilangan bulat}		**Panjang = <code>Int</code> (tipe data bilangan bulat)
	**Lebar = Int {tipe data bilangan bulat}		**Lebar = <code>Int</code> (tipe data bilangan bulat)
	**Luas = Int {tipe data bilangan bulat}		**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==
			<syntaxhighlight lang="pascal" line="1">
			program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}
			uses crt;
			var
			lbr : integer; {bagian deklarasi variabel}
			pjg : integer;
			luas : integer;

	~~program Hitung_Luas_Segi_Empat; {judul program hitung luas segi empat}~~		begin
	~~uses crt~~;		clrscr;
	~~var~~		write('Masukkan berapa Lebarnya = ');readln(lbr);
	~~lbr : integer; {bagian deklarasi variabel}~~		write('Masukkan berapa Panjangnya = ');readln(pjg);
	~~pjg : integer;~~		luas : lbr * pjg;
	~~luas : integer;~~		writeln('Jadi Luas Empat adalah = ',Luas);
			readln;
	~~begin~~		end.
	~~clrscr;~~		</syntaxhighlight>
	write('Masukkan berapa Lebarnya = ');readln(lbr);
	write('Masukkan berapa Panjangnya = ');readln(pjg);
	luas : lbr * pjg;
	writeln('Jadi Luas Empat adalah = ',Luas);
	readln;
	end.


	==Terkait==		==Terkait==

Kangtain: Created page with "*Algoritma Luas Segi Empat Algoritma menerima masukan panjang dan lebar segiempat Menghitung luasnya **Cetak luasnya ke piranti keluaran (Layar) *Deklarasi : **Panjang =..."

2021-10-30T22:53:55Z

Created page with "*Algoritma Luas Segi Empat **Algoritma menerima masukan panjang dan lebar segiempat **Menghitung luasnya **Cetak luasnya ke piranti keluaran (Layar) *Deklarasi : **Panjang =..."

New page

*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}

*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.

==Terkait==
*[[Pascal]]

[[Category:Pascal]][[Category:Pemograman]]

Pascal:Menghitung luas segi empat - Revision history

Kangtain: /* Program */

Kangtain: /* Program */

Kangtain: /* Program */

Kangtain: Created page with "*Algoritma Luas Segi Empat **Algoritma menerima masukan panjang dan lebar segiempat **Menghitung luasnya **Cetak luasnya ke piranti keluaran (Layar) *Deklarasi : **Panjang =..."

Kangtain: Created page with "*Algoritma Luas Segi Empat Algoritma menerima masukan panjang dan lebar segiempat Menghitung luasnya **Cetak luasnya ke piranti keluaran (Layar) *Deklarasi : **Panjang =..."