Вычислить площадь прямоугольника по диагонали и углу между диагональю и большей стороной

@kamaletdinov · Регистрация: 10.01.2013

Author24 — интернет-сервис помощи студентам

вот условие решается через условный оператор, формул к ней нет в условии не даны."Известна диагональ прямоугольника d и угол между диагональю и большей стороной. Вычислить площадь прямоугольника."

@Puporev · 13.01.2013, 18:44

Да нет здесь никакого условного оператора, это линейный алгоритм.
А чтобы решить эту задачу нужно было в школу ходить и геометрию учить.

Pascal

uses crt;
var d,u,a,b,s:real;
begin
clrscr;
repeat
write('Введите длину диагонали>0 d=');
readln(d);
until d>0;
repeat
write('Введите угол между длинной стороной и диагональю (0..90) u=');
readln(u);
until(u>0)and(u<90);
u:=u*pi/180;
a:=d*cos(u);
b:=d*sin(u);
writeln('a=',a:0:2,' b=',b:0:2);
s:=a*b;
write('Площадь=',s:0:2);
readln
end.

@kamaletdinov 0 / 0 / 0 Регистрация: 10.01.2013 Сообщений: 11
		1
	Вычислить площадь прямоугольника по диагонали и углу между диагональю и большей стороной 13.01.2013, 18:37. Показов 7149. Ответов 1 Метки нет (Все метки) вот условие решается через условный оператор, формул к ней нет в условии не даны."Известна диагональ прямоугольника d и угол между диагональю и большей стороной. Вычислить площадь прямоугольника." 0

	13.01.2013, 18:44

Вычислить площадь прямоугольника по диагонали и углу между диагональю и большей стороной

Решение