Выдает ошибку проверки диапазона

@DarkOfDragon · Регистрация: 27.08.2016

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

Выдает ошибку проверки диапазона. Поможете исправить?

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
Program otchot3;
type z=record
fio:array [1..20] of char;
g,g1:integer;
s1:array[1..4] of 2..5;
s2:array[1..3] of 2..5;
end;
var
stud:array[1..25] of z;
sim:char;
i,j,x:integer;
key:boolean;
f,c,v:text;
begin
assign(f,'B1.txt');
assign(v,'B2.txt');
assign(c,'lab7.txt');
reset(f);
reset(v);
rewrite(c);
for j:=1 to 4 do
begin
repeat
read(f,sim);
read(v,sim);
write(sim);
write(c,sim);
until (eoln(f)) and (eoln(v));
readln(f);
readln(v);
writeln;
writeln(c);
end;
for i:=1 to 25 do
begin
for j:=1 to 20 do
begin
read(f,stud[i].fio[j]);
read(v,stud[i].fio[j]);
write(c,stud[i].fio[j]);
write(stud[i].fio[j]);
end;
read(f,stud[i].g);
read(v,stud[i].g);
write(c,stud[i].g:10);
write(stud[i].g:10);
write('   ');
write(c,'   ');
read(f,stud[i].g1);
read(v,stud[i].g1);
write(c,stud[i].g1:10);
write(stud[i].g1:10);
write('   ');
write(c,'   ');
for j:=1 to 5 do
begin
read(f,stud[i].s1[j]);
read(v,stud[i].s1[j]);
write(c,stud[i].s1[j]:2);
write(stud[i].s1[j]:2);
end;
write('   ');
write(c,'   ');
for j:=1 to 3 do
begin
read(f,stud[i].s2[j]);
read(v,stud[i].s2[j]);
write(c,stud[i].s2[j]:2);
write(stud[i].s2[j]:2);
end;
readln(f);
readln(v);
writeln(c);
writeln;
end;
close(f);
close(v);
close(c);
end.

вот файлы
B1.txt

B2.txt

@DarkOfDragon · 09.12.2016, 11:22 **[ТС]**

Вот здесь выдает ошибку

Pascal
55
56
57
58
for j := 1 to 5 do
    begin
      read(f, stud[i].s1[j]);
      read(v, stud[i].s1[j]);

@Puporev · 09.12.2016, 15:19

s1 имеет размер 4, а Вы хотите прочитать 5.

@DarkOfDragon · 09.12.2016, 16:46 **[ТС]**

так ведь у меня 5 оценок в аттестате

@Puporev · 09.12.2016, 16:52

А как массив объявлен?

Pascal
1
s1:array[1..4] of 2..5;

сделай [1..5]

@DarkOfDragon · 09.12.2016, 16:55 **[ТС]**

Все равно та же ошибка

@bormant · 09.12.2016, 18:36

DarkOfDragon,
плохая идея читать 25 строк из файла, где их только 2.

@DarkOfDragon · 10.12.2016, 17:39 **[ТС]**

Почти доделал

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
program otchot3;
 
type
  z = record
    fio: array [1..20] of char;
    g, g1: integer;
    s1: array[1..5] of 2..5;
    s2: array[1..3] of 2..5;
  end;
 
var
  stud: array[1..25] of z;
  sim: char;
  i, j, x, k: integer;
  result: boolean;
  f, v, c: text;
 
begin
  assign(f, 'B1.txt');
  assign(v, 'B2.txt');
  assign(c, 'lab7.txt');
  reset(f);
  reset(v);
  rewrite(c);
  for j := 1 to 4 do
  begin
    repeat
      read(f, sim);
      read(v, sim);
      write(sim);
      write(c, sim);
    until (eoln(f) and eoln(v));
    readln(f);
    readln(v);
    writeln;
    writeln(c);
  end;
  for i := 1 to 25 do
  begin
    for j := 1 to 20 do
    begin
      read(f, stud[i].fio[j]);
      write(c, stud[i].fio[j]);
      write(stud[i].fio[j]);
    end;
    read(f, stud[i].g);
    write(c, stud[i].g:6);
    write(stud[i].g:6);
    read(f, stud[i].g1);
    write(c, stud[i].g1:9);
    write(stud[i].g1:9);
    write('   ');
    write(c, '   ');
    for j := 1 to 5 do
    begin
      read(f, stud[i].s1[j]);
      write(c, stud[i].s1[j]:3);
      write(stud[i].s1[j]:3);
    end;
    write('   ');
    write(c, '   ');
    for j := 1 to 3 do
    begin
      read(f, stud[i].s2[j]);
      write(c, stud[i].s2[j]:2);
      write(stud[i].s2[j]:2);
    end;
    readln(f);
    writeln(c);
    writeln;
  end;
  begin
    for i := 1 to 2 do
    begin
      for j := 1 to 20 do
      begin
        read(v, stud[i].fio[j]);
        write(c, stud[i].fio[j]);
        write(stud[i].fio[j]);
      end;
      read(v, stud[i].g);
      write(c, stud[i].g:6);
      write(stud[i].g:6);
      read(v, stud[i].g1);
      write(c, stud[i].g1:9);
      write(stud[i].g1:9);
      write('   ');
      write(c, '   ');
      for j := 1 to 5 do
      begin
        read(v, stud[i].s1[j]);
        write(c, stud[i].s1[j]:3);
        write(stud[i].s1[j]:3);
      end;
      write('   ');
      write(c, '   ');
      for j := 1 to 3 do
      begin
        read(v, stud[i].s2[j]);
        write(c, stud[i].s2[j]:2);
        write(stud[i].s2[j]:2);
      end;
    end;
    readln(v);
    writeln(c);
    writeln;
  end;
  writeln;
  writeln('Отсортированный список');
  writeln(c, 'Отсортированный список');
  writeln;
  for i := 1 to 25 do
  begin
    if (stud[i].g1 - stud[i].g > 17) and (stud[i].s1[j] = 5) then
    begin
      for x := 1 to 20 do
      begin
        Write(stud[i].FIO[x]);
        Write(c, stud[i].FIO[x]);
      end;
      writeln;
      writeln(c);
    end;    
  end;
  close(f);
  close(v);
  Close(c);
end.

только не могу додумать условие чтобы выводило студентов старше семнадцати лет и имеющих отличный аттестат. Старше 17 лет я сделал, а вот чтоб был отличный аттестат непонятно.

@Puporev · 10.12.2016, 17:52

Наверное так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
count:=0;
for i := 1 to 25 do
 begin
  if (stud[i].g1 - stud[i].g > 17) then
   begin
    k:=0;
    for j:=1 to 5 do
    if stud[i].s1[j]=5 then inc(k);
    if k=5 then
     begin
      count:=1;
      for x := 1 to 20 do
       begin
        Write(stud[i].FIO[x]);
        Write(c, stud[i].FIO[x]);
       end;
      writeln;
      writeln(c);
     end;
   end;
 end;
if count=0 then writeln('Нет студентов отличников старше 17 лет');

@DarkOfDragon · 10.12.2016, 18:06 **[ТС]**

Огромное спасибо, все получилось.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.12.2016, 15:19
	s1 имеет размер 4, а Вы хотите прочитать 5. 0

@DarkOfDragon 0 / 0 / 0 Регистрация: 27.08.2016 Сообщений: 75
	09.12.2016, 16:46 [ТС]
	так ведь у меня 5 оценок в аттестате 0

@DarkOfDragon 0 / 0 / 0 Регистрация: 27.08.2016 Сообщений: 75
	09.12.2016, 16:55 [ТС]
	Все равно та же ошибка 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,158 Записей в блоге: 1
	09.12.2016, 18:36
	DarkOfDragon, плохая идея читать 25 строк из файла, где их только 2. 0

@DarkOfDragon 0 / 0 / 0 Регистрация: 27.08.2016 Сообщений: 75
	10.12.2016, 18:06 [ТС]
	Огромное спасибо, все получилось. 0