Программирование на паскаль помогитеее

Question

andrei_6534 · Accepted Answer

Задача 3:
 var x, a, z: real;&#10;    i: integer;&#10;begin&#10;    read(x, a);&#10;    z := 32 * x - 1;&#10;    for i := 4 downto 0 do&#10;        z := x * (1 shl i) - (2 * i + 1) / z;&#10;    z := (x + a * a * a) / z;&#10;    write(z)&#10;end. 
Задача 2:
 var x, t, y: real;&#10;    i: integer;&#10;begin&#10;    read(x);&#10;    y := 1;&#10;    t := 1;&#10;    for i := 8 downto 2 do begin&#10;        t := t * x;&#10;        y := t + i * (2 * ord(odd(i)) - 1) * y&#10;    end;&#10;    write(y)&#10;end. 
(2 * ord(odd(i)) - 1) равно -1, если i чётное, и +1, если i нечётное.

andrei_panarin_4 · Answer

Тут хорошо использовать промежуточные переменные, начиная с внутренних скобок или внутренних знаменателей и постепенно подниматься и вычислять всё более крупные выражения.
Для примера № 2:
 a := x - 8;&#10;&#10;stepen := x * x;       {x^2}&#10;b := stepen + 7 * a;&#10;&#10;stepen := stepen * x;  {x^3}&#10;c := stepen - 6 * b;&#10;&#10;stepen := stepen * x;  {x^4}&#10;d := stepen + 5 * c;&#10;&#10;stepen := stepen * x;  {x^5}&#10;e := stepen - 4 * d;&#10;&#10;stepen := stepen * x;  {x^6}&#10;f := stepen + 3 * e;&#10;&#10;stepen := stepen * x;  {x^7} &#10;y := stepen - 2 * f;&#10;&#10;writeln('y = ', y); 
Для примера № 3 может быть что-то похожее, только с делением.