Файл записей Опции

[Гость]

В поиске находила по инфо по файлам записей,но сделать свою задачу не смогла.
Если можете-помогите.
Создать типизированный файл записей,решить задачу используя данный типа запись.
Условие:
О каждом студенте известно фамилия и оценка за экзамен(3,4,5).Вывести список студентов так,чтобы сначала шли фамилии тех кто получил 5,потом тех кто получил 4,а в конце всех остальных. Порядок следования студентов,получивших одну и туже оценку сохраняется!
Плиз,очень прошу помощи!

[klem4]

Много очень похожих задач про студентов и оценки уже решены, ищи "Студенты", "Оценки" и т.д.

А смысл твоей задачи сводится к сортировке набори записей, находящихся с кажем в массиве, в который ты их прочитала из файла по полю "оценка".

Еще советую заглянуть сюда: Записи. Record. и сюда Файлы

[Гость]

просмотрела,но нет.не сделала.
как произвести эту сортировку?

[Гость]

Если кто-то может,то решите эту программу. Не понимаю я записи(((Сэнкс

[Гость]

А если сделать файл тектовым, то программу оставлять такой такой же, только писать чтение из файла по-другому?

type stud=record
     name:string;
     bal:byte;
     end;

var b:stud; f:text; i:byte;
begin
clrscr;
assign(f,'f.txt');
reset(f); writeln;
while not eof(f) do
begin
readln(f,b.name,b.bal);
writeln(b.name,'  ',b.bal);
end;
close(f);

Где тут ошибка подскажите пжлста.....

[Andrewshkovskii]

Записи можно записывать только в типизированные файлы,т.е в файл типа byte,ты записать, например b.bal ,не сможешь,т.к у него другой тип. объявление файла должно быть таким,

type stud=record
     name:string;
     bal:byte;
     end;

var
 f: file of stud;

Также чтение и запись в типизированные файлы производиться ТОЛЬКО с помощью процедур write и read.
Почитай книгу,записи не так уж и тяжело понять.Тут самое сложное это сортировка.

Сообщение отредактировано: Andrewshkovskii - 3.04.2007 22:56

[Гость]

А если выходной файл должен быть текстовым,то что делать? Сам файл создан,а впрограмме как?

[Andrewshkovskii]

Гость


В поиске находила по инфо по файлам записей,но сделать свою задачу не смогла.
Если можете-помогите.
Создать типизированный файл записей,решить задачу используя данный типа запись.

Где тут речь о текстовом файле?
Ты можешь сохранять файл в любом формате,вот пример

var
 path:string;
 f:file of stud;
begin
....
...
Writeln('Vvedite pyt i imya faila');
readln(path);
 assign (f,path);
 rewrite(f);
write(f,b.bal);
close(f);
...
...
end.

при вводе пути и имени,укажи допустим,test.txt,и все.

Сообщение отредактировано: Andrewshkovskii - 3.04.2007 22:56

[klem4]

Ты можешь сохранять файл в любом формате,вот пример

Приведенный тобой код работать не будет.

!

7. Проверяйте программы перед тем, как разместить их на форуме!!! устное замечание