Написать программу, которая печатает trye или false в зависимости от того, имеет ли уравнение:
Arctg(2^x-|p|) =корень из 2.
Корень на отрезке [а, b] для заданных чисел p, a, b.
Номер 2.​

Приложения:

Ответы

Ответ дал: BobbyFresnel
1

===== PascalABC.NET =====

begin

 var (p, a, b) := ReadReal3('Введите p, a, b:');

 var x := Ln(Tan(Sqrt(2)) + Abs(p)) / Ln(2);

 Println(x.InRange(a, b))

end.

Объяснение:

arctg(2^x - |p| = √2

tg(arctg(2^x - |p|) = tg(√2)

2^x - |p| = tg(√2)

2^x = tg(√2) + |p|

x = ㏒₂( tg(√2) + |p| )

x = ㏑( tg(√2) + |p| ) / ㏑2

И теперь ответить, верно ли, что x ⊂ [a; b]

Приложения:

maksim1359: если я дам больше балов вы можете просто переделать, написать программу и сделать сам интерфейс(с скриншотом)?
BobbyFresnel: Дикий информатик, что тут поделать? Видимо, замшелый уже. Потому что Лазарус программисты звали "Дельфи для бедных". Когда-то среда Delphi стоила очень дорого, а Лазарус - он бесплатный, хотя и намного дохлее. Но сейчас-то Дельфи тоже бесплатно...
maksim1359: хотя ладно, я не буду вас и более других этим напрягать
maksim1359: сам разберусь
maksim1359: ещё рас спасибо за ответ
BobbyFresnel: Не понял....скриншот с PascalABC.NET? Могу и сейчас прицепить. А Лазаруса НЕТУ !!!
BobbyFresnel: Прицепил
BobbyFresnel: Вот фрипаскалевский код
BobbyFresnel: var
p, a, b, x: real;

begin
Write('Введите p, a, b:');
Read(p, a, b);
x := Ln(Tan(Sqrt(2)) + Abs(p)) / Ln(2);
Writeln((x >= a) and (x <= b))
end.
BobbyFresnel: Только не помню, там Ln или Log
Вас заинтересует