Консультация № 196634
10.10.2019, 10:57
0.00 руб.
1 1 1
Уважаемые эксперты!
Помогите пожалуйста!


Приложение:
PascalABC
Прикрепленные файлы:
c179b3093976372b4c5e79e6f75661e85cf193e1.jpg

Обсуждение

давно
Профессор
401888
1232
10.10.2019, 13:17
общий
это ответ
Здравствуйте, Satana666!
[code lang=pascal]var x,y,f,a:real;
k:integer;
begin
write('Введите x,y');
readln(x,y);
repeat
writeln('Выберите функцию 1: x^2 2: sh(x) 3: e^x');
readln(k);
until k in [1..3];
case k of
1:f:=x*x;
2:f:=(exp(x)-exp(-x))/2;
3:f:=exp(x);
end;
if x*y>0 then a:=sqr(f+y)-sqrt(f*y)
else if x*y>0 then a:=sqr(f+y)+sqrt(abs(f*y))
else a:=sqr(f+y)+1;
write('a=',a:0:3)
end.[/code]
Форма ответа