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 :
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)