pkitman
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите пожалуйста с типизированными файлами!!!
Дан файл, содержащий сведения о результатах тестирования. каждая запись содержит фамилию тестируемого и количество набранных баллов по пяти предметам. Определить средний балл по предметам, средний набираемый балл и количество учащихся, количество баллов у которых больше среднего!!!!
Я вот начал, заполнил данные теперь осталось выполнить условие, кто нибудь пожалуйста помогите, я вас умоляю!!!!!!!!!!!!!!!!!!!!!!
Uses crt;
Type
wed=record
n:byte;
fio:string[15];
bal:array[1..5] of byte;
End;
Var spisok:wed;
sp:file of wed;
procedure vvod;
Var i,j:byte;
Begin
ClrScr;
rewrite(sp);
with spisok do
For i:=1 to 5 do begin
n:=i;
WriteLn('Vvedite fam - ',i); ReadLn(fio);
WriteLn('Vvedite 5 ocenok ',fio);
For j:=1 to 5 do ReadLn(bal[j]);
Write(sp,spisok);
End;
Close (sp);
End;
Procedure print;
Var j:byte;
Begin
Reset(sp);
WriteLn('Spisok studentov');
While not Eof (sp) do
With spisok do
Begin
Read(sp,spisok);
Write(n,' ',Fio);
For j:=1 to 5 do Write(' ',bal[j]);
WriteLn;
End;
ReadLn;
Close(sp);
End;
Begin
ClrScr;
Assign (sp,'D:\1.txt');
vvod; print;
readLn
End.
|
надо использовать только циклы. 
