Contoh Program Pascal Hitung Luas Jajar Genjang

Pascal Hitung Luas Jajar Genjang
Program Pascal Hitung Luas Jajar Genjang.Foto: Jambiseru.com

Jambiseru.com – Berikut adalah contoh program Pascal hitung luas jajar genjang.

Seperti diketahui, program Pascal ini sangat asyik dipelajari karena syntaxnya yang sederhana dan relatif mudah digunakan.

Baca Juga di Jambiseru.com – Jambi Seru : 

Bacaan Lainnya

Program Mencari Luas Persegi Panjang Pakai Pascal

Penonton Film Spider-Man: No Way Home (2021) Jambi Puas

Well, sebelum memulai mengetik program hitung luas jajar genjang, ada baiknya memahami rumus jajar atau jajaran genjang terlebih dahulu.

Rumus jajar genjang hampir sama dengan rumus luas persegi panjang. Yakni Alas X Tinggi = Luas Jajar Genjang.

Baca Juga : Contoh Program Pascal Luas Trapesium

Jika kita menggunakan variabel Alas jadi A dan Tinggi jadi T, maka Luas=A*T.

Berikut contoh program pascal menghitung luas jajar genjang :

uses crt;
label 9;
var
A: integer;
T: integer;
LS: integer;
JAWAB: char;

begin
9:clrscr;
writeln(‘————————-‘);
writeln(‘Hitung Luas Jajar Genjang’);
writeln(‘————————-‘);
writeln(”);
write(‘Input Nilai Alas : ‘);readln(A);
write(‘Input Nilai Tinggi : ‘);readln(T);
LS:=(A*T);
writeln(‘Luas Jajaran Genjang = ‘,LS);
write(‘Hitung Lagi? (Y/T)’);readln(JAWAB);
IF (JAWAB=’Y’)or(JAWAB=’y’) then goto 9;
readln
end.

Itulah contoh program jajar genjang menghitung luas jajar genjang menggunakan bahasa pemograman Pascal. (red)

Pos terkait