Программа с типизированными файлами, сортировка

@Nomberman · Регистрация: 22.04.2019

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста надо в программу добавить 3 процедуры, они вот такие:
функции:
- список упорядочен по полю группа;
- количество мальчиков в возрасте 17 лет;
- поиск всех студентов, группы " ВС1", родившихся в 1999 году с выводом найденных записей на экран и в файл.
После процедуры sortirovka еще две нужно. Помогите, очень долго пытаюсь и воюю с сортировками

. Причем сортировка так и не сработала, массив вне границ оказываеться, не могу понять где ошибка с циклом или где то не так переменные указал.
Программа вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
Program Facultet1;
Uses crt;
Type
  Facultet=Record
  FIO:string[25];
  Floor:string[1];
  Faculte:string[5];
  Group:string[6];
  God:integer;
  end;
Var
  a:array[1..100] of Facultet;
  i,n: integer;
  f: file of Facultet;
  zap: Facultet;
  vixod: char;
Procedure vvod_danix;
  Begin
    clrscr;
    assign(f, 'c:\Facultet.dat');
    rewrite(f);
    repeat
    writeln('|Введите данные факультета: ');
    with zap do
    Begin
      write('|Введите ФИО...................| - '); readln(FIO);
      write('|Введите Пол "М" или "Ж".......| - '); readln(Floor);
      write('|Введите название факультета...| - '); readln(Faculte);
      write('|Введите название группы.......| - '); readln(Group);
      write('|Введите год...................| - '); readln(God);
    end;
    Write(f,zap);
    textcolor(14);
    writeln('  ');
    write('Для продолжения Ввода данных нежмите ENTER, Для завершения нажмите - 0:',' ',vixod);
    readln(vixod);
    until vixod='0';
    close(f);
end;
Procedure vivod_danyx;
  Begin
    assign (f,'c:\Facultet.dat');
    reset(f);
    clrscr;
    textcolor(10);
    writeln('________________________________________________________________________________');
    textcolor(11);
    writeln('|             Ф.И.О              |   Пол   |  Факултет |  Группа  |  Год  |');
    textcolor(10);
    writeln('________________________________________________________________________________');
    i:=1;
    while not (eof(f)) do
      Begin
      read(f,zap);
      writeln('|',zap.FIO:15,'       |',zap.Floor:5,'    |',zap.Faculte:7,'    |',zap.Group:5,'     |',zap.God:6,' |');
      textcolor(10);
      writeln('________________________________________________________________________________');
      i := i + 1;
      end;
        close(f);
        n := i - 1;
        textcolor(14);
        writeln('Нажмите ENTER для выхода из просмотра файла...*');
        readln;
  end;
Procedure dobavyt_zap;
  Begin
    clrscr;
    assign (f, 'c:\Facultet.dat');
    reset(f);
    seek(f,filesize(f));
    repeat
    writeln('|Введите данные факультета: ');
    with zap do
    Begin
      write('|Введите ФИО...................| - '); readln(FIO);
      write('|Введите Пол "М" или "Ж".......| - '); readln(Floor);
      write('|Введите название факультета...| - '); readln(Faculte);
      write('|Введите название группы.......| - '); readln(Group);
      write('|Введите год...................| - '); readln(God);
    end; 
   Write(f,zap);
   textcolor(14);
   writeln('  ');
   write('Для продолжения Ввода данных нежмите ENTER, Для завершения нажмите - 0:',' ',vixod);
     readln(vixod);
       until vixod='0';
       close(f);
end;
Procedure udalenie_zap;
  Var
  w: byte;
  Begin
    Begin
    assign (f,'c:\Facultet.dat');
          reset(f);
          clrscr;
          textcolor(11);
          writeln('________________________________________________________________________________');
          textcolor(10);
          writeln('|             Ф.И.О              |   Пол   |  Факултет |  Группа  |  Год  |');
          textcolor(11);
          writeln('________________________________________________________________________________');
          i:=1;
          while not (eof(f)) do
      Begin
        read(f,zap);
        writeln('|',zap.FIO:15,'       |',zap.Floor:5,'    |',zap.Faculte:7,'    |',zap.Group:5,'     |',zap.God:6,' |');
        textcolor(10);
        writeln('________________________________________________________________________________');
        i := i + 1;
      end;
   end;
     reset(f);
      assign (f,'c:\Facultet.dat');
        textcolor(14);
        write('Ввести номер записи для удаления - ');
        readln(w);
        seek(f, filesize(f) - 1);
        read(f, zap);
        seek(f, w - 1);
        write(f, zap);
        seek(f, filesize(f) - 1);
        truncate(f);
        close(f);
        n := i - 1;
      Begin
        assign (f,'c:\Facultet.dat');
        reset(f);
        clrscr;
          textcolor(11);
          writeln('________________________________________________________________________________');
          textcolor(10);
          writeln('|             Ф.И.О              |   Пол   |  Факултет |  Группа  |  Год  |');
          textcolor(11);
          writeln('________________________________________________________________________________');
          i:=1;
          while not (eof(f)) do
        Begin
          read(f,zap);
          writeln('|',zap.FIO:15,'       |',zap.Floor:5,'    |',zap.Faculte:7,'    |',zap.Group:5,'     |',zap.God:6,' |');
          textcolor(10);
          writeln('________________________________________________________________________________');
          i := i + 1;
        end;
        close(f);
        n := i - 1;
        textcolor(14);
        writeln('                        ');
        writeln('Нажмите  ENTER для выхода...*');
      readkey;
      end;
end;
Procedure sortirovka;
Var
x:Facultet;
n,i,j:byte;
  Begin
    assign (f,'c:\Facultet.dat');
    reset(f);
    clrscr;
    textcolor(11);
          writeln('________________________________________________________________________________');
          textcolor(10);
          writeln('|             Ф.И.О              |   Пол   |  Факултет |  Группа  |  Год  |');
          textcolor(11);
          writeln('________________________________________________________________________________');
          i:=1;
          while not (eof(f)) do
        Begin
          read(f,zap);
          for i:=1 to n-1 do
            for j:=i+1 to n do
            if a[i].Group>a[j].Group then
           begin
            x:=a[i];
            a[i]:=a[j];
            a[j]:=x;
           end;
          writeln('|',zap.FIO:15,'       |',zap.Floor:5,'    |',zap.Faculte:7,'    |',zap.Group:5,'     |',zap.God:6,' |');
          textcolor(10);
          writeln('________________________________________________________________________________');
          i := i + 1;
        end;
        close(f);
        n := i - 1;
        textcolor(14);
        writeln('                        ');
        writeln('Нажмите  ENTER для выхода...*');
  end;
Begin
  repeat
    clrscr;
    textcolor(10);
    writeln('________________________________________________________________________________');
    textcolor(14);
    writeln('                                 Главное Меню программы             ');
    textcolor(10);
    writeln('________________________________________________________________________________');
    textcolor(11);
    writeln('1 - Создать файл                       ');
    writeln('   ');
    textcolor(11);
    writeln('2 - Ввывод даных на экран            ');
    writeln('   ');
    textcolor(11);
    writeln('3 - Добавить данные                   ');
    writeln('   ');
    textcolor(11);
    writeln('4 - Удалить записи                   ');
    writeln('   ');
    textcolor(11);
    writeln('5 - Сортировка по полю группа        ');
    writeln('   ');
    textcolor(11);
    writeln('6 - количество мальчиков в возрасте 17 лет ');
    writeln('   ');
    textcolor(11);
    writeln('7 - Поиск группы ВС1, родившихся в 1999    ');
    writeln('   ');
    textcolor(11);
    writeln('8 - Выход ');
    textcolor(10);
    writeln('________________________________________________________________________________');
    textcolor(7);
    write  ('Ваш выбор: '); readln(n);
      case n of
      1: vvod_danix;
      2: vivod_danyx;
      3: dobavyt_zap;
      4: udalenie_zap;
      5: sortirovka;
      6: begin
      textcolor(10);
      writeln(' ');
      write  ('Нажмите ENTER для выхода из программы!!!');
      readln;
      exit;
      end;
        else
        Begin
        textcolor(12);
        writeln('Нажмите ENTER и продолжите ваш выбор...');
        readln end;
        end
        until n=6;
end.

@Nomberman · 29.04.2019, 14:39 **[ТС]**

что не кто даже не может помочь ни чем?

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@Nomberman 0 / 0 / 0 Регистрация: 22.04.2019 Сообщений: 15
	29.04.2019, 14:39 [ТС]
	что не кто даже не может помочь ни чем? 0