Консультация № 197293
03.12.2019, 09:18
0.00 руб.
1 1 1
задачу решить на PascalABC.NET
первый корень: 112
второй корень: 1
(условие в фото)

Прикрепленные файлы:
67d1ffc26bb2c704e6f2b35d217d8060fa0ad817.jpg

Обсуждение

давно
Старший Модератор
31795
6196
04.12.2019, 14:15
общий
это ответ
Здравствуйте, 1627PY52838s!

Смотрите код:
[code lang=pascal]type
tFunction=function(a:real):real;
var
f:tFunction;
j:integer;
begin
write('X:=');
var x:=ReadReal;
write('I:=');
var i:=readInteger;
repeat
write('select funtion:',#10,'1 - x^2;',#10,'2 - sh(x);',#10,'3 - E^x.');
j:=ReadInteger;
until j in [1..3];
case j of
1:f:=sqr;
2:f:=sinh;
3:f:=exp;
end;
if odd(i)and(x>0)then begin j:=1;i:=1 end
else if not odd(i)and(x<0)then begin j:=112;i:=1 end
else j:=2;
writeln('result:=',power(abs(i*f(x)),1/j));
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа