Buatlah contoh Pascal luas jajar genjang!

Jawabannya adalah sebagai berikut: Berikut Programnya! program LuasJajarGenjang; uses crt; Var a :Integer; t :Integer; Luas :Integer; Begin clrscr; Writeln('program mencari luas jajar genjang'); Write('Input nilai a =');readln (a); Write('Input nilai t =');readln (t); Luas :=a*t; Writeln('Nilai Luas =',Luas); readln; end. Berikut penjelasannya: Pertama harus di definisikan dulu variabel a dengan tipe data integer, variabel t juga sebagai integer, kemudian variabel Luas sebagai integer. Kedua, memulai program untuk memasukkan rumus dengan kata begin dan diakhiri dengan end. Ketiga, didalam begin diisi fungsi writeln dengan isinya inputan nilai a dan jangan lupa ketikan dibelakan titik koma setelah fungsi writeln disisipkan fungsi readln(a) untuk menyimpan sebuah nilai yang sudah diinputkan pada fungsi writeln, begitu juga untuk yang nilai t. Setelah itu masukkan rumus Luas menggunakan variabel luas := a*t; artinya a dikalikan t. Diakhir rumus luas dituliskan fungsi writeln dengan pemanggilan fungsi luas sebelumnya agar hasilnya muncul Sekian penjelasannya, semoga membantu ya.