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