Автор: Студентик13 13.01.2006 20:12
Помогите найти ошибку. Мне задачу надо решить
Распечатать список студентов, упорядоченный
а) по алфавиту;
б) по месяцу рождения;
в) по году рождения;
г) по дате рождения.
Первую часть сделал, но чето не работает, проверьте в чем дело, а вторую засть про сартировку не понимаю на на F.A.Q чтото было посмотрю.
Код
uses crt;
type
TStuden = record
name : string;
year,month,day : integer;
end;
var
TFile:file of TStuden;
S:TStuden;
D,i:integer;
begin
i:=1;
assign(Tfile,'Tstudent.dat');
rewrite(Tfile);
repeat with S do begin
clrscr;
writeln;
writeln('-------------------------------------------------------');
writeln(' Введите данные o ',I,'-м студенте: ');
writeln('-------------------------------------------------------');
writeln(' Введите имя : ');
readln(name);
writeln('-------------------------------------------------------');
writeln(Введите год,месяц,день рождения через запятую : ');
readln(year,month,day);
close(Tfile);
End;
Автор: Malice 13.01.2006 20:18
У тебя нет записи в файл, write(TFile,s), только чтение переменных.
Автор: Студентик13 13.01.2006 20:21
Да хоть и так все равно не работает
Автор: volvo 13.01.2006 21:05
И как, собственно, ты проверял, что это не работает? Телепатов нет. Нужна помощь - приводи код. Нет кода - читай книги, ищи по форуму. Уже решалось. Специально для тебя никто заново решать не будет.
Автор: Pola 14.01.2006 3:32
Цитата(Студентик13 @ 13.01.2006 16:21)
Да хоть и так все равно не работает
repeat есть
until нет?
Где конец-то программы?
Хотя бы такой:
End.