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

Ваш аккаунт

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

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

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

Сортировка записей

86K
19 мая 2013 года
WhiteNoise
1 / / 19.05.2013
Ребята, помогите отсортировать следующую задачу:


Код:
uses crt;
type
   clinic = record
      sur, add, diag : string;
      sex: char;
      age: byte;
      end;
var
   a: array[1..100] of clinic;
   i,n,kol,x: byte;
   key: char;
   filename, town, y: string;
   f: text;
begin
   clrscr;
   write('введите имя файла: ');
   readln(filename);
   assign(f,filename);
   rewrite(f);
   repeat
      inc(i);
      with a[i] do begin
         write('фамилия пациента: ');
         readln(sur);
         writeln(f,'фамилия: ',sur);
         write('пол (м/ж): ');
         readln(sex);
         writeln(f,'пол: ',sex);
         write('возраст: ');
         readln(age);
         writeln(f,'возраст: ',age);
         write('место проживания: ');
         readln(add);
         writeln(f,'город: ',add);
         write('диагноз: ');
         readln(diag);
         writeln(f,'диагноз: ',diag);
      end;
         writeln('Выход? (д/н) ');
         readln(key)
   until upcase(key)='Д';
   close(f);
   n:=i;
   write('введите наш город: ');
   readln(town);
   for i:=1 to n do
   with a[i] do
      if add<>town then inc(kol);
   writeln('количество иногородних: ',kol);
   writeln('введите X: ');
   readln(x);
   writeln('введите Y: ');
   readln(y);
   for i:=1 to n do
   with a[i] do
      if (age>x) and (diag=y) then
         writeln('фамилия: ',sur);
   readkey
end.
Нужно вывести:
1) список иногородних с указанием городов в алфавитном порядке и для каждого города – список фамилий в алф. порядке (сортировка вставками по индексам по двум араметрам одновременно, индекс- номер позиции в файле)
2) список всех диагнозов, поставленных пациентам старше заданного возраста, в алфавитном порядке(челночная сортировка).

Помогите пожалуйста !

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

Ваш ответ

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