Pascal mania the morning, this time I will explain how to create a program to find the area kite. in essence, this program explains that the formula of the kite itself is (Area = ½ x diagonal (d) 1 x diagonal (d) 2). simply follow the steps below carefully.
How to make a kite 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 parallelogram kite itself.
program luas_layang-layang;
uses crt;
var d1,d2,l: real;
begin
clrscr;
writeln('MENCARI LUAS LAYANG-LAYANG');
writeln;
write('masukkan diagonal 1 :'); readln(d1);
write('masukkan diagonal 2 :'); readln(d2);
l:=0.5*d1*d2;
writeln('luas layang-layang :',l:0:0);
readln;
end.
uses crt;
var d1,d2,l: real;
begin
clrscr;
writeln('MENCARI LUAS LAYANG-LAYANG');
writeln;
write('masukkan diagonal 1 :'); readln(d1);
write('masukkan diagonal 2 :'); readln(d2);
l:=0.5*d1*d2;
writeln('luas layang-layang :',l:0:0);
readln;
end.
* Greeting pascal mania and may be useful.
0 Response to "how to make the program look for wide kite in TURBO PASCAL 7.0"
Post a Comment