Сортировка по дате рождения!Рекорд.
Помогите решить такую вот задачку:
Вывести список студентов в каком сортировка идет по дате рождения.
Вот все что смого написать, а сам цикл сортировки чтото не могу придумать.
program laba10;
Uses crt;
type
stydent=record
pr:string;
dat:1..31;
mis:1..12;
rik:1970..1990;
end;
var
group:array [1..3] of stydent;
i,k:integer;d:stydent;
begin
clrscr;
for i:= 1 to 3 do
with group do
begin
writeln('Vedit prizvuch4e i imya stydenta');
readln(pr);
writeln('vvedit daty');
readln(dat, mis, rik);
end;
for i:=1 to 2 do
begin
end;
readln;
end.
Вывести список студентов в каком сортировка идет по дате рождения.
Вот все что смого написать, а сам цикл сортировки чтото не могу придумать.
program laba10;
Uses crt;
type
stydent=record
pr:string;
dat:1..31;
mis:1..12;
rik:1970..1990;
end;
var
group:array [1..3] of stydent;
i,k:integer;d:stydent;
begin
clrscr;
for i:= 1 to 3 do
with group do
begin
writeln('Vedit prizvuch4e i imya stydenta');
readln(pr);
writeln('vvedit daty');
readln(dat, mis, rik);
end;
for i:=1 to 2 do
begin
end;
readln;
end.
Всем огромное спосибо, но я уже и сам какдо додумался.Хотя я сделал ету задачу не самым лучшим способом, но все работает 8)
program laba10;
Uses crt;
type
stydent=record
pr:string;
dat:1..31;
mis:1..12;
rik:1970..1990;
end;
var
group:array [1..3] of stydent;
i,k,r,m,d:integer;
begin
clrscr;
for i:= 1 to 3 do
with group do
begin
writeln('Vedit prizvuch4e i imya stydenta');
readln(pr);
writeln('vvedit daty');
readln(dat, mis, rik);
end;
for r:=1970 to 1990 do
for m:=1 to 12 do
for d:=1 to 31 do
for i:=1 to 3 do begin
with group do begin
if (rik=r) and (mis=m) and (dat=d) then begin
writeln(pr);
end;
end;
end;
end.
program laba10;
Uses crt;
type
stydent=record
pr:string;
dat:1..31;
mis:1..12;
rik:1970..1990;
end;
var
group:array [1..3] of stydent;
i,k,r,m,d:integer;
begin
clrscr;
for i:= 1 to 3 do
with group do
begin
writeln('Vedit prizvuch4e i imya stydenta');
readln(pr);
writeln('vvedit daty');
readln(dat, mis, rik);
end;
for r:=1970 to 1990 do
for m:=1 to 12 do
for d:=1 to 31 do
for i:=1 to 3 do begin
with group do begin
if (rik=r) and (mis=m) and (dat=d) then begin
writeln(pr);
end;
end;
end;
end.