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

Question

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

Answer 1

Var
  a, b, d, s, alpha: real;

begin
  Write('Введите длину диагонали прямоугольника: ');
  Readln(d);
  Write('Введите величину угла между большей стороной и диагональю :');
  Readln(alpha);
  alpha := Pi * alpha / 180;
  a := d * cos(alpha);
  b := d * sin(alpha);
  s := a * b;
  Writeln('Площадь прямоугольника равна ', s:0:3)
end.

Тестовое решение:

Введите длину диагонали прямоугольника: 35
Введите величину угла между большей стороной и диагональю :29
Площадь прямоугольника равна 519.429

Comments

Нет мне нужен не на паскале , а через блок схемы (паскаль в школе не изучал , изучал бэсик можно и на нем)

---

Если у Вас есть какие-то требования, нужно о них писать в задании. Поскольку Вы ничего не написали, решение может быть записано на любом языке, даже на самом экзотическом. Таковы тут правила. В школах обычно изучают Паскаль, я на нем и написал

---

Прицепил Вам блок-схему. Но еще раз так напишете неконкретно задание - как пойму, так и сделаю)

---

спасибо

---

вы очень хороший специалист :3

---

Спасибо выражают кнопочкой, а его размер - числом звездочек.