Pascal mania the morning, this time I will explain how to create a program to find the area trapezoid. in essence, this program explains that the formula for the area of a trapezoid itself is (Area = ½ x (s1 + s2) xt). simply follow the steps below carefully.
How to make Trapezoid formula:
- please open your program.
- select the file - new.
- and write the code as below.
- then select compile - compile or alt + f9 to make sure there are no errors in your program code.
- if there is no error, please select the run - run.
- congratulations you can make the program look for broad trapezoidal own.
program luas_trapesium;
uses crt;
var s1,s2,t,l,h: real;
begin
clrscr;
writeln('MENCARI LUAS TRAPESIUM');
writeln;
write('masukkan panjang sisi 1 :'); readln(s1);
write('masukkan panjang sisi 2 :'); readln(s2);
write('masukkan tinggi :'); readln(t);
l:=s1+s2;
h:=0.5*l*t;
writeln('luas trapesium :',h:0:0);
readln;
end.
uses crt;
var s1,s2,t,l,h: real;
begin
clrscr;
writeln('MENCARI LUAS TRAPESIUM');
writeln;
write('masukkan panjang sisi 1 :'); readln(s1);
write('masukkan panjang sisi 2 :'); readln(s2);
write('masukkan tinggi :'); readln(t);
l:=s1+s2;
h:=0.5*l*t;
writeln('luas trapesium :',h:0:0);
readln;
end.
* Greeting pascal mania and may be useful.
0 Response to "how to make the program look for broad trapezoidal in TURBO PASCAL 7.0"
Post a Comment