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

[Jonathan Davis]

Задание: создать файл, содержащий сведения о студентах вашей группы(фамилия, имя, отчество, экзаменационные оценки)
а)упорядочить список студентов по успеваемости
б)подсчитать средний балл в группе
в)посчитать средний балл каждого студента

С б и в нет проблем, проблема с а. Понял, что нужно обращаться не к массиву, а к файлу и использовать один из методов сортировки(после прочтения форума), а реализовать не получается.

program bred;
uses crt;
const
w=2;
n=5;
type
ank=record
 fam:string[25];
 imya:string[25];
 otch:string[30];
 ozenki:array [1..n] of integer;
    end;
spisok=file of ank;
var
a,b:real;
i,j:integer;
an:ank;
s:spisok;
sbs,sbg:real;
begin
assign(s,'d:\studenti.dat');
rewrite(s);
for i:=1 to w do
begin
with an do
begin
write('Familia '); readln(fam);
write('Imya '); readln(imya);
write('Otchestvo '); readln(otch);
write('Ozenki ');
begin
for j:=1 to n do
read(ozenki[j]);
end;
readln;
end;
write(s,an);
end;
close(s);
reset(s);
for i:=1 to w do
begin
read(s,an);
for j:=1 to n do
a:=a+an.ozenki[j];
end;
sbg:=a/(n*w);
Writeln('Srednii ball v gruppe =',sbg:1:1);
close(s);
reset(s);
for i:=1 to w do
begin
read(s,an);
b:=0;
begin
for j:=1 to n do
b:=b+an.ozenki[j];
end;
sbs:=b/n;
write(s,an);
with an do
writeln(an.fam,' ',an.imya,' ',an.otch,' ','srednii ball = ', sbs:1:1);
end;
close(s);
End.

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

function sredn (const student: ank): real;

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

Сообщение отредактировано: мисс_граффити - 11.01.2007 20: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 - 11.01.2007 20:23

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

 m:m+an.ozenki[i];

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

Сообщение отредактировано: мисс_граффити - 11.01.2007 20: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 - 11.01.2007 20: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), и считаешь среднее только по ней.
или тебе надо среднее всей группы?

Сообщение отредактировано: мисс_граффити - 11.01.2007 21: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 - 11.01.2007 21:27