Табель успеваемости

Program Sr_Ball; uses crt;

type grup=record

fam:string[15];

mat,rus,xim,fiz:byte;

sb:real;

end;

var tbl:array[1..20] of grup;

y:grup;

i,j,k,m:integer;

x:real;

Begin

clrscr;

write('Количество учащихся в группе: '); readln(m);

writeln;

for i:=1 to m do

with tbl[i] do

Begin

write('fam[',i,']='); readln(fam);

write('mat='); readln(mat);

write('rus='); readln(rus);

write('xim='); readln(xim);

write('fiz='); readln(fiz);

end;

for i:=1 to m do with tbl[i] do sb:=(mat+rus+xim+fiz)/4;

for i:=1 to m do

Begin

k:=i; x:=tbl[i].sb;

for j:=i to m do

if tbl[j].sb>x then begin k:=j; x:=tbl[j].sb end;

y:=tbl[k];

tbl[k]:=tbl[i];

tbl[i]:=y;

end;

clrscr;

writeln('Пн | Фамилия | Mat | Rus | Xim | Fiz ' );

writeln('---------------------------------------------');

for i:=1 to m do

with tbl[i] do

writeln(i:2,' |',fam:15,' | ',mat:2,' | ',rus:2,' | ',xim:2,' | ',fiz:2);

readln; clrscr; writeln('Пн | Фамилия | Sredn ball ' );

for i:=1 to m do with tbl[i] do writeln(i:2,' |',fam:15,' |',sb:3:1); readkey;

End.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 47.ФАЙЛЫ

Файл – форма хранения информации вне среды.

Файл удобен:

- данные из файла можно использовать в нескольких программах;

- файл сохраняется после окончания работы программы;

- данные часто не убираются в ОЗУ (игры);

- с файлами можно выполнять множество полезных манипуляций.

Типы файлов:

1) Последовательные – чтение/запись от начала к концу.

2) Файлы прямого доступа – доступ к записи по адресу.

3) Индексированные файлы – доступ к записи по адресу и по ключу.