Задача про студентов. Делаю в Паскале)
Код:
Uses crt;
Const fname='students.dat';
n=3; {Кол-во предметов за сессию}
Type st=record
fam:string; {Фамилия}
oc:array [1..n] of integer;{Оценки}
end;
Var t:array[1..30] of st;
i,ch,j,a,b:integer;
h: file of st;
begin
{write('vvedite kol-vo stud-ov: '); readln(b);}
write('Введите кол-во студентов: '); readln(ch);
for i:=1 to ch do begin
writeln('Сведения о ' ,i,'студенте');
write('Фамилия: '); readln(t[i].fam);
writeln('Оценки по предметам: ');
for j:=1 to n do begin
case j of
1:write('Мат: ');
2:write('Культ: ');
3:write('Ист: ');
end;
readln(t[i].oc[j]);
if not ((t[i].oc[j]>0) and (t[i].oc[j]<=10)) then begin
writeln('Неверн. оценка - надо от 1 до 10.');
j:=j-1;
end;
a:=a+t[i].oc[j]; {НАХОЖУ СУММУ ВСЕХ ОЦЕНОК ВСЕХ СТУДЕНТОВ}
end;
writeln;
end;
Assign (h,fname);
{$I-}
reset(h);
If Ioresult<>0 then rewrite(h);
{$I+}
for i:=1 to ch do write(h,t[i]);
writeln('Средний балл',a);
close(h);
writeln('Данные занесены в файл ',fname);
readln;
end.
Нашел сумму всех оценок всех студентов. Ср. балл считаю по формуле a:=a/3/ch
Но типы не совпадают, конечно же(
Что можно сделать?