Функция на паскале

[Катя)]

Дана функция у=f(x,a). (любая)
Четные значения функции сложить, отрицательные - вывести для каждого Х.
Х -сделать с Repeat.
A-сделать с While.

Помогите пожалуйста с решением.
Буду очень благодарна.)

[Serge_Bliznykov]

в задаче явно не хватает главного - описания того, как задаются значения X

это раз.

второе.

Х -сделать с Repeat.
A-сделать с While.

при чём здесь X и A ?! Это бред написан...

[Катя)]

Так в задание написано.
Как я поняла:
х - значения х1,х2,х3 сделать через Repeat
а - значения а1,а2,а3 сделать через While

мало что понятно

[Serge_Bliznykov]

х - значения х1,х2,х3 сделать через Repeat
а - значения а1,а2,а3 сделать через While

так, ещё интереснее...
А откуда взялись x1,x2,x3 и a1, a2, a3 ?! Я их не вижу в исходном задании?

Может быть, Вы всё такие дадите задание полностью и точно слово в слово?..

[Катя)]

точно слово в слово в первом посте написала

х - параметр цикла
x1 - начальное значение цикла
х2 - конечное значение цикла
х3 - шаг изменения параметра цикла

а,а1,а2,а3 - тоже самое

[Катя)]

х1,х2,х3 и а1,а2,а3 задаются пользователем

[Катя)]

Progarm bz;
Var x,x1,x2,x3,a,a1,a2,a3, Summa : real;
Begin
 writeln ('Vvedite x1,x2,x3,a1,a2,a3');
 readln (x1,x2,x3,a1,a2,a3);

Summa:=0;
x:=x1;

if frac(x/2)=0 then Chet:= x
 else chet:=x+1; {нахождение четных чисел(вроде)}

Repeat
 вот сюда надо вписать: блоки вычислений для x1,x2,x3

и потом вложить While с значениями a1,a2,a3

но как конкретно я не могу представить...(

[Fon_Blut]

Лично я так понял это задание:

var
   x, x1, x2, x3: integer;
   a, a1, a2, a3: integer;
   Result, Sum: integer;

begin
  ReadLn (x1, x2, x3);
  ReadLn (a1, a2, a3);
  x := x1;
  Sum := 0;
  
  repeat
    a := a1;
      while a <= a2 do
      begin
        Result := f(x,a); 
        if Result div 2 = 0 then Sum := Sum + Result;
        a := a + a3;
      end;
    if Result < 0 then WriteLn('При x = ', x, ' значение функции f = ', Result);
    x := x + x3;
  until x > x2;

end.

Это в том случае если конечное значение цикла входит в расчет. Если же не входит, то будут соответственно условия:
while a < a2
until x = x2
Где f(x,a) - любая функция в которую передаются эти параметры.

[Катя)]

благодарю)

сейчас разберусь

[Катя)]

Сообщение от Fon_Blut

if Result div 2 = 0 then Sum := Sum + Result;

помойму должно быть обязательно служебное слово else