Question

Для следующих математических выражений запишите соответствующие арифметические выражения на паскале a) a+bx+cyz б) [(ax-b)x+c]x-d в) a+b/c + c/ab г) x+y/a1 * a2/x-y

Answer 1

В принципе тут все так же и пишется....
a) f:= a + b * x + c * y * z;
b) f:= ((a * x - b) * x + c) * x - d;
или если вместо квадратных скобок прямые:
f:= abs((a * x - b) * x + c) * x - d;
c) f:= a + b / c + c / a * b;
или если там есть скобки:
f:= (a + b) / c + c / (a * b)
d) f:= x + y / a1 * a2 / x - y; 

write('введите a,b,c,d,x,y,z,a1,a2'); readln(a,b,c,d,x,y,z,a1,a2);

Answer 2

a) var a, b, x, c, y, z: integer; begin //выражение a + bx + cyz result := a + b*x + c*y*z; end;

б) var a, b, x, c, d: integer; begin //выражение [(ax-b)x+c]x-d result := ((a*x - b)*x + c)*x - d; end;

в) var a, b, c: integer; begin //выражение a + b/c + c/ab result := a + b/c + c/(a*b); end;

г) var x, y, a1, a2: integer; begin //выражение x + y/a1 * a2/x - y result := x + y/a1 * a2/x - y; end;