Contoh Program Pascal Luas Trapesium

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 di Jambiseru.com – Jambi Seru : 

Bacaan Lainnya

Contoh Program Pascal Hitung Luas Jajar Genjang

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

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