Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.01.2014, 05:56   #1
forsak3n
 
Регистрация: 16.11.2013
Сообщений: 4
По умолчанию Помогите доделать сортировку

Код:
const  menu=[1..4];
type
  Aeroflot=record
   Destanation:String[100];
     nomber:integer;
    tip:char;
 end;
 TAFILE = file of aeroflot;
 var
     a:Aeroflot;
     choise:integer;
     i:integer;
     p:tafile;
  function Getmenu:integer;
    begin
     writeln('1.Ввод');
      writeln('2.Поиск');
       writeln('3.Вывод');
        writeln('4.Выход');
       writeln('Выберите 1 из 4 пунктов');
      readln(result);
    if not(result in menu) then writeln('Неверно введено!!')
  end;

   procedure vvodPlane;
     var i:integer;
     begin
      writeln('Введите пункт назначения');
       readln(a.Destanation);
         writeln('Введите номер рейса');
         readln(a.nomber);
        writeln('Введите тип самолёта');
       readln(a.tip);
      write(p,a);
     end;

  procedure vivodPlane;
  var i:integer;
  begin;
  seek(p,0);
     while not eof(p) do begin
                         read(p,a);
                         writeln('******************************************');
                          write('Пункт назначения  ');
                            writeln(a.Destanation);
                             write('Номер рейса  ');
                            writeln(a.nomber);
                           write('Тип самолёта  ');
                          writeln(a.tip);
                          writeln('******************************************');
                         end;
  end;

  procedure Poisk;
   var t:string;
      ch:aeroflot;
      begin
       seek(p,0);
       writeln('Введите пункт назначения');
        readln(t);
         while not eof(p) do begin
                              read(p,ch);
                               if t=ch.Destanation then writeln(ch.tip, ch.nomber);
                             end;
      end;

begin
 Assignfile(p,'C:\file.dat');
  Rewrite(p);
  close(p);
  Reset(p);
  repeat
  choise:=Getmenu;
  case choise of

  1:vvodPlane();
  2: poisk();
  3:vivodPlane();
  4:halt;
  end;
  until false;
  readln;
end.
Вот готовый код,помогите в процедуре вывода(пункт 3 в меню) выводить отсортированное по номеру рейса.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 16.01.2014 в 09:05.
forsak3n вне форума Ответить с цитированием
Старый 16.01.2014, 06:39   #2
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Ввести массив записей типа "Aeroflot", размером до 100К (можно больше/меньше, не суть).
Считать в этот массив содержимое файла.
Отсортировать массив.
Вывести массив.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 16.01.2014, 06:40   #3
forsak3n
 
Регистрация: 16.11.2013
Сообщений: 4
По умолчанию

А можете пример кода выложить, пожалуйста.
forsak3n вне форума Ответить с цитированием
Старый 16.01.2014, 07:02   #4
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Неа, не могу. А с учетом вот этого (http://programmersforum.ru/showthread.php?t=253200) - и не буду, по крайней мере бесплатно.
Код с вероятностью -> 100% не ваш и Вы в нем даже не разбирались. Ну или переубедите меня, опишите логику работы программы.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 16.01.2014, 09:09   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Vanta11a Посмотреть сообщение
Неа, не могу. А с учетом вот этого (http://programmersforum.ru/showthread.php?t=253200) - и не буду
кросспост тему я вычистил...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.01.2014, 14:53   #6
forsak3n
 
Регистрация: 16.11.2013
Сообщений: 4
По умолчанию

Помогите, кто может, пожалуйста.
forsak3n вне форума Ответить с цитированием
Старый 16.01.2014, 15:19   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от forsak3n Посмотреть сообщение
Помогите, кто может, пожалуйста.
в пост #2 (с) Vanta11a Вам расписали, что Вам требуется запрограммировать в процедуре vivodPlane, чтобы обеспечить вывод данных в нужном порядке (нужно объявить массив, прочитать файл полностью в этот массив, отсортировать записи в массиве и после этого вывести содержимое массива)

У Вас есть какие-то затруднения?
Какие конкретно?

или Vanta11a прав, и Вы где-то нашли/слямзили программу, не понимая, что там написано и как она работает?!
Тогда, конечно, Вам трудно понять, что же надо делать..
Может быть, в этом случае стоит обратиться во Фриланс?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.01.2014, 15:21   #8
forsak3n
 
Регистрация: 16.11.2013
Сообщений: 4
По умолчанию

Я расчитываю на людей, которые смогут мне помочь..А доказывать чей код и т.д я не собираюсь..
forsak3n вне форума Ответить с цитированием
Старый 16.01.2014, 15:34   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от forsak3n Посмотреть сообщение
Я расчитываю на людей, которые смогут мне помочь..А доказывать чей код и т.д я не собираюсь..
Ладно.
Поясню свою (да и как показыавет опыт, не только свою) позицию на форуме.

Помочь можно человеку, который что-то делает.
Вот, представьте, зовёт Вас приятель помочь траншею выкопать.
Вы пришли на помощь. Он сел в сторонке и говорит, ну, бери лопату и помогай мне - копай траншею.
Вы же резонно спросите - а ты сам копать собираешься?
А он тебе, не твое дело, я расчитваю на людей, которые мне помогать будут, а не на тех, кто всякие вопросы задаёт!
Взялся помогать, так копай!!

Аналогия, надеюсь, ясна?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 16.01.2014, 15:38   #10
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Чуток разверну:
Цитата:
Вы пришли на помощь. Явно видно, что половина траншеи явно выкопана трактором. Он сел в сторонке и говорит, ну, бери лопату и помогай мне - копай траншею. Вы спрашиваете - "А чего трактор не выкопал дальше?" и "А ты сам копать собираешься?"
А он тебе, не твое дело, я расчитваю на людей, которые мне помогать будут, а не на тех, кто всякие вопросы задаёт!
Взялся помогать, так копай!!
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите сделать сортировку по алфавиту Quattro2033 Visual C++ 0 11.12.2013 20:09
Помогите решить Задачу на сортировку С Neznakomka Помощь студентам 5 10.05.2009 14:28
Помогите переделать файловую сортировку на сортировку динамич. списков Taisja Помощь студентам 2 15.06.2008 16:10