Задать вопрос Регистрация
Помочь другим

  • Задана площадь и диагональ прямоугольника. Составьте программу, с помощью которой определите периметр прямоугольника.

Ответы 1

  • \displaystyle d^2=a^2+b^2 \to a^2=d^2-b^2; \\ S=ab; \ S^2=a^2b^2=(d^2-b^2)b^2 \\ b^4-b^2d^2-S^2=0; \ b^2 \to x; \ x^2-d^2x+S^2=0 \\ D=d^4-4S^2, \ D \geq 0 \\ x_1= \frac{d^2-\sqrt{d^4-4S^2}}{2} ; \ b= \sqrt{x}; \ a=S/b \\ P=2(a+b)=2\left( \frac{S}{b}+bight) // PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  var d:=ReadReal('Диагональ прямоугольника');  var S:=ReadReal('Площадь прямоугольника');  var Di:=sqr(d*d)-4*S*S;  if Di<0 then Writeln('Неверные данные')  else begin    var b:=sqrt((d*d-sqrt(Di))/2);    var P:=2*(S/b+b);    Writeln('P=',P:0:4)    endend.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years