Правила форума
Прочтите прежде чем задавать вопрос!
Распечатать список студентов, упорядоченный
а) по алфавиту;
б) по месяцу рождения;
в) по году рождения;
г) по дате рождения.
Первую часть сделал, но чето не работает, проверьте в чем дело, а вторую засть про сартировку не понимаю на на 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;
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;
Сообщение отредактировано: Студентик13 -
