Ничего оригинального, тупо ещё одна проблема с прогой). Опции

[мисс_граффити]

function sredn (const student: ank): real;

а какие еще варианты, что можно подразумевать под этим понятием?

Сообщение отредактировано: мисс_граффити - 12.01.2007 0:13

[Jonathan Davis]

Код

function f(x:ank):real;
var
i,m:integer;
begin
for i:=1 to n do
m:m+an.ozenki[i];
f:=m/n;
end.

Вот так???

Сообщение отредактировано: Jonathan Davis - 12.01.2007 0:23

[мисс_граффити]

 m:m+an.ozenki[i];

ты имел в виду "присвоить"?
не забудь обнулить m сначала

Сообщение отредактировано: мисс_граффити - 12.01.2007 0:35

[Jonathan Davis]

ты имел в виду "присвоить"?
не забудь обнулить m сначала

Конечно)

Код

function f(x:ank):real;
var
i,m:integer;
begin
m:=0;
for i:=1 to n do
m:=m+an.ozenki[i];
f:=m/n;
end.

А какая связь переменной x с функцией, если это номер анкеты студента...?

Сообщение отредактировано: Jonathan Davis - 12.01.2007 0:42

[мисс_граффити]

Ты хочешь передавать именно номер, а не саму анкету? Не проблема... Но зачем?

[Jonathan Davis]

Ты хочешь передавать именно номер, а не саму анкету? Не проблема... Но зачем?

Я хочу передавать анкету, что для этого надо сделать??? а то уменя х не задействован

[мисс_граффити]

function f(x:ank):real;
var
i,m:integer;
begin
m:=0; 
for i:=1 to n do
m:=m+an.ozenki[i]; <-- вот здесь ты должен работать с полями х
f:=m/n;
end.

то есть смотри: ты передаешь одну анкету (x), и считаешь среднее только по ней.
или тебе надо среднее всей группы?

Сообщение отредактировано: мисс_граффити - 12.01.2007 1:16

[Jonathan Davis]

function f(x:ank):real;
var
i,m:integer;
begin
m:=0; 
for i:=1 to n do
m:=m+an.ozenki[i]; <-- вот здесь ты должен работать с полями х
f:=m/n;
end.

то есть смотри: ты передаешь одну анкету (x), и считаешь среднее только по ней.
или тебе надо среднее всей группы?

одной анкеты, как с полями х работать?

[мисс_граффити]

так же, как с полями an. они же одного типа (ank), значит, поля у них одни и те же будут.

[Jonathan Davis]

так же, как с полями an. они же одного типа (ank), значит, поля у них одни и те же будут.

Код

function f(x:ank):real;
var
i,m:integer;
begin
m:=0;
for i:=1 to n do
m:=m+x.ozenki[i];
f:=m/n;
end.

Так?

Сообщение отредактировано: Jonathan Davis - 12.01.2007 1:27