Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11608
Последний выпуск: 19.06.2015

Сортировка по дате рождения!Рекорд.

12K
08 декабря 2005 года
ronique
6 / / 22.11.2005
Помогите решить такую вот задачку:
Вывести список студентов в каком сортировка идет по дате рождения.
Вот все что смого написать, а сам цикл сортировки чтото не могу придумать.

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.
12K
15 декабря 2005 года
ronique
6 / / 22.11.2005
Всем огромное спосибо, но я уже и сам какдо додумался.Хотя я сделал ету задачу не самым лучшим способом, но все работает 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.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог