Вычислить значение арифметического выражения

@Г Илья А · Регистрация: 05.02.2016

Author24 — интернет-сервис помощи студентам

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

Код

b = c*(sqrt(y+sqr(x)))*(cos(x)-abs(c-y))
d = (x-y)+arctg(x), при x>y;
    (y-x)^3+arctg(x), при y>x;
    (y+x)^3+0.5, при x=y

Пример решения:

Pascal

Var
  A, B, C, D, Y ,f: Real;
Begin
  A:=1.5; B:=4.3; C:=10; D:=7.1; {ввод данных}
  Y:=(A*Sqrt(Abs(Sin(A+B*C)))-Exp(-A*C))/Sqrt(Abs(2*B+D));
  WriteLn (‘Y=’, Y:8:3); {вывод результата}
  f:=0; {перед началом вычисления значению f присваивается 0 (можно любое
    другое значение) для того, чтобы в случае, если ни одно из условий не
    выполнится, на экран вывелось f = 0, т.е. чтобы значение f не осталось
    неопределенным }
  if (y>0) and (y<=20) then f:=2*y;
  if (y=0) then f:=y+2;
  if (y<0) or (y>25) then f:=y/2;
  WriteLn (‘f=’, f:8:3);
End.

Пожалуйста помогите с решением! Начал делать на Паскаль ABC.NET

@1agaka1 · 06.02.2016, 11:36

Pascal

var
b,d,c,y,x:real;
begin
 writeln('Введите x');
 readln(x);
 writeln('Введите y');
 readln(y);
 writeln('Введите c');
 readln(c);
 b:=c*(sqrt(y+sqr(x)))*(cos(x)-abs(c-y));
 writeln('b=',b:8:3);
 d:=0;
 if x>y then d:=(x-y)+arctan(x);
 if x<y then d:=power((y-x),3)+arctan(x);
 if x=y then d:=power((y+x),3)+0.5;
 writeln('d=',d:8:3);
end.

	06.02.2016, 11:36