Question

Помогиите пожалуйста срочно(( Для заданных с клавиатуры значений переменных x и n вычислить Y = -x + 4x - 9x + ... - 81 x.. (Программирование циклических алгоритмов с заданным числом повторений в Pascal ABC)

Answer 1

Var
  sgn,i:integer;
  X,Y:real;
begin
  Write('Введите Х: '); Read(X);
  Y:=0; sgn:=-1;
  for i:=1 to 9 do
  begin
    Y:=Y+sgn*sqr(i)*X;
    sgn:=-sgn
  end;
  Writeln('Y=',Y)
end.

Тестовое решение:
Введите Х: 3.184
Y=-143.28

Answer 2

Для решения этой задачи в Pascal ABC можно использовать цикл for. Вот пример программы:

program CalculateY;

var
  x, n, y: integer;
  i: integer;

begin
  writeln('Введите значение x:');
  readln(x);
  writeln('Введите значение n:');
  readln(n);

y := 0;
  for i := 1 to n do
  begin
    y := y - x + 4 * x - 9 * x + 16 * x - 25 * x + 36 * x - 49 * x + 64 * x - 81 * x;
  end;

writeln('Результат вычисления Y = ', y);
end.

В этой программе мы сначала запрашиваем значения переменных x и n с клавиатуры. Затем мы инициализируем переменную y нулём и используем цикл for для вычисления значения y в соответствии с заданными формулами. На каждой итерации цикла мы добавляем или вычитаем определенное значение, зависящее от текущего значения x.

После завершения цикла мы выводим результат вычисления y на экран.