Технический форум - Паскаль, помогите срочно, нужно через несколько часов.

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Паскаль, помогите срочно, нужно через несколько часов. (http://www.tehnari.ru/f41/t49258/)

Defox

22.03.2011 19:35

Паскаль, помогите срочно, нужно через несколько часов.

Написать программу для вычисления стороны, углов и площади ромба, у которого известны диагонали.
Тест: если ABCD-ромб, AC=7см, BD=0,84дм, то S=29,4 см2, AB=5,467см, A=1,752, B=1,39

shrek=)

22.03.2011 20:36

Вот программа, но без углов. Может формулу подскажите доделаю!

Код:

var

s,d2,d1,c:real;

begin

writeln ('Введите диагонали (в сантиметрах)');

readln (d1,d2);

c:=sqr(d1/2)+sqr(d2/2);

c:=sqrt(c);

s:=(d1*d2)/2;

writeln ('Сторона равна ',c:1:4,'Площадь равна',s:2:1);

readln

end.

Vladimir_S

22.03.2011 21:06

Да пожалуйста, нам что - можем и с углами. Без проблем:

Код:

var

 s,d2,d1,c,Ang_A,Ang_B:real;

begin

 writeln ('Введите диагонали (в сантиметрах)');

 readln (d1,d2);

 c:=sqr(d1/2)+sqr(d2/2);

 c:=sqrt(c);

 s:=(d1*d2)/2;

 Ang_A:=2.0*ArcTan(d2/d1);

 Ang_B:=Pi-Ang_A;

 writeln ('Сторона равна ',c:6:3);

 writeln ('Площадь равна ',s:6:3);

 writeln ('A равен ',Ang_A:6:4,' B равен ',Ang_B:6:4);

 readln

end.

Часовой пояс GMT +4, время: 22:18.