что не так?

[sashqaw0w]

дана функция y = f(x, a)Найти для каждого a среднее арифметическое отрицательных значений функции
x - while , a - for
var x,y,a,x1,x2,x3,a1,a2,m: integer;
function у(х,а: integer): integer;

begin
y := x+a;
end;
function MaxNumber(х,а: integer): integer;
var s,sum,n: integer;
begin
x=x1;
sum=0;
n=0;
while x <> x2 do { цикл с предусловием }
begin
s:=y(x,a);

if s<0 then begin
sum:=sum+s ;
n=n+1;
end;
x=x+x3;
end;

if n<>0 then
MaxNumber := sum/n;
end;

begin
write('Введите x1,x2,x3,a1,a2 ');
readln(x1,x2,x3,a1,a2);
for a := a1 to a2 do { итерационный цикл }
begin
m:=MaxNumber(x,a);
writeln('среднее врифметическое=', m);
end;
end.
где ошибка?

[whatever]

Как-то так:

var
  x,y,a,x1,x2,x3,a1,a2: integer;
  m:real;

 function MaxNumber(х,а: integer): real;
 var
   s,sum,n: integer;
 begin
   x:=x1;
   sum:=0;
   n:=0;
   while x <> x2 do { цикл с предусловием }
   begin
     s:=x+a; //зачем изобретать велосипед?
       if s<0 then begin
         sum:=sum+s ;
         n:=n+1;
       end;
     x:=x+x3;
   end;

 if n<>0 then
   MaxNumber := sum/n;
 end;

 begin
 write('Введите x1,x2,x3,a1,a2 ');
 readln(x1,x2,x3,a1,a2);
 for a := a1 to a2 do { итерационный цикл }
 begin
 m:=MaxNumber(x,a);
 writeln('среднее врифметическое=', m);
 end;
 readln;
 end.

Ошибки в основном в том, что знак присваивания это " := ", а не просто равно.
Программа запускается, чета даже считает, а вот правильно или нет разбирайся сам.

[sashqaw0w]

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

Как-то так:

var
  x,y,a,x1,x2,x3,a1,a2: integer;
  m:real;

 function MaxNumber(х,а: integer): real;
 var
   s,sum,n: integer;
 begin
   x:=x1;
   sum:=0;
   n:=0;
   while x <> x2 do { цикл с предусловием }
   begin
     s:=x+a; //зачем изобретать велосипед?
       if s<0 then begin
         sum:=sum+s ;
         n:=n+1;
       end;
     x:=x+x3;
   end;

 if n<>0 then
   MaxNumber := sum/n;
 end;

 begin
 write('Введите x1,x2,x3,a1,a2 ');
 readln(x1,x2,x3,a1,a2);
 for a := a1 to a2 do { итерационный цикл }
 begin
 m:=MaxNumber(x,a);
 writeln('среднее врифметическое=', m);
 end;
 readln;
 end.

Ошибки в основном в том, что знак присваивания это " := ", а не просто равно.
Программа запускается, чета даже считает, а вот правильно или нет разбирайся сам.

function у(х,а: integer): integer; он вот тут ругаеться

[whatever]

Зачем тебе вообще эта функция нужна? Она же просто складывает x и a, я периписал без нее

Update: Ну если очень хочется, то вот так:

var
  x,y,a,x1,x2,x3,a1,a2: integer;
  m:real;

 function у(х,а: integer): integer;
   begin
     y := x+a;
   end;

 function MaxNumber(х,а: integer): real;
 var
   s,sum,n: integer;
 begin
   x:=x1;
   sum:=0;
   n:=0;
   while x <> x2 do { цикл с предусловием }
   begin
     s:=y; //зачем изобретать велосипед?
       if s<0 then begin
         sum:=sum+s ;
         n:=n+1;
       end;
     x:=x+x3;
   end;

 if n<>0 then
   MaxNumber := sum/n;
 end;

 begin
 write('Введите x1,x2,x3,a1,a2 ');
 readln(x1,x2,x3,a1,a2);
 for a := a1 to a2 do { итерационный цикл }
 begin
 m:=MaxNumber(x,a);
 writeln('среднее врифметическое=', m);
 end;
 readln;
 end.

[sashqaw0w]

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

Зачем тебе вообще эта функция нужна? Она же просто складывает x и a, я периписал без нее

Update: Ну если очень хочется, то вот так:

var
  x,y,a,x1,x2,x3,a1,a2: integer;
  m:real;

 function у(х,а: integer): integer;
   begin
     y := x+a;
   end;

 function MaxNumber(х,а: integer): real;
 var
   s,sum,n: integer;
 begin
   x:=x1;
   sum:=0;
   n:=0;
   while x <> x2 do { цикл с предусловием }
   begin
     s:=y; //зачем изобретать велосипед?
       if s<0 then begin
         sum:=sum+s ;
         n:=n+1;
       end;
     x:=x+x3;
   end;

 if n<>0 then
   MaxNumber := sum/n;
 end;

 begin
 write('Введите x1,x2,x3,a1,a2 ');
 readln(x1,x2,x3,a1,a2);
 for a := a1 to a2 do { итерационный цикл }
 begin
 m:=MaxNumber(x,a);
 writeln('среднее врифметическое=', m);
 end;
 readln;
 end.

все равно программа не работает

[Camaro Chevelle]

ахах, ну если ты просто скопипастил, то вылетать должно в том месте, где написано "//зачем изобретать велосипед?"

[sashqaw0w]

Сообщение от Camaro Chevelle

ахах, ну если ты просто скопипастил, то вылетать должно в том месте, где написано "//зачем изобретать велосипед?"

че то вообще не получаеться без функций да и сними тоже

[whatever]

Сообщение от Camaro Chevelle

ахах, ну если ты просто скопипастил, то вылетать должно в том месте, где написано "//зачем изобретать велосипед?"

Просмотрел... Самое смешное здесь в том, что в дэлфи компилятор это пропускает и запускает программу, только S присваивает 0 (что, с одной стороны, логично).

А вообще действительно, зачем вообще писать эту функцию y? Все-таки я бы выбрал код из своего первого сообщения.

[Camaro Chevelle]

я имел в виду, что по правилам вроде как не допускаются комменты после двойных косых а только в фигурных скобках либо (*.....*)

[whatever]

Допускаются, 100%. Постоянно так коментирую, так как фигурные скобки ставить и убирать не очень удобно.