Contoh Program Pascal Luas Trapesium

  • Whatsapp
Program Pascal Luas Trapesium
Program Pascal Luas Trapesium. Foto: Jambiseru.com

Jambiseru.com – Berikut adalah contoh program pascal mencari luas trapesium.

Sebelumnya, harus tahu dulu apa rumus trapesium. RUMUS TRAPESIUM adalah LUAS = 1/2 x (Alas 1 + Alas 2) x Tinggi.

Baca Juga : Contoh Program Pascal Hitung Luas Jajar Genjang

Mari kita tulis variabel Luas dengan LS, Alas 1 = A1, Alas 2 = A2 dan Tinggi = T.

Maka contoh program pascal mencari atau menghitung luas trapesium sebagai berikut:

program luas_trapesium;
uses crt;
label 9;
var
A1,A2,T,LS:real;
JAWAB: char;

begin
9:clrscr;
writeln(‘—————————–‘);
writeln(‘Program Hitung Luas Trapesium’);
writeln(‘By: Jambiseru.com’);
writeln(‘—————————–‘);
writeln(”);
write(‘Input Nilai Alas1 : ‘);readln(A1);
write(‘Input Nilai Alas2 : ‘);readln(A2);
write(‘Input Nilai Tinggi : ‘);readln(T);
LS:=(1/2*(A1+A2)*T);
writeln(‘Luas Trapesium = ‘,LS);
write(‘Hitung Lagi? (Y/T)’);readln(JAWAB);
IF (JAWAB=’Y’)or(JAWAB=’y’) then goto 9;
IF (JAWAB=’T’)or(JAWAB=’t’) then writeln(‘TERIMA KASIH – Jambiseru.com-‘);
readln
end.

Itulah contoh program PASCAL menghitung atau mencari LUAS TRAPESIUM. Program ini sudah dites tim kreatif Jambiseru, jika ada error kecuali kesalahan typo pembaca, silakan beritahu kami ke email jambiserucom@gmail.com.

Untuk diketahui, nilai yang digunakan pada program ini adalah REAL. Maksud atau fungsi syntax REAL pada program Pascal adalah untuk menetapkan nilai desimal. Yakni menggunakan koma, misal 0,3 dan sejenisnya.

Sedangkan syntax INTEGER adalah untuk menetapkan nilai bulat, misal 1, 2, 3 dan sejenisnya. (red)

Pos terkait