Запись Студент - Определить список студентов заданного курса

@vladis23 · Регистрация: 25.05.2015

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

Структура элемента массива студент: фамилия, имя, отчество, пол, возраст, № курса. Определить:
─ список студентов заданного курса;
─ средний возраст студентов заданного курса;
─ № курса, на котором учится наибольший процент студентов мужского пола;
Не получается сделать 3 задание.
Вот прилагается код

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
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
program Student;
 
uses
  crt;
type
TStudent =record
 FSurname:string[15];
 FName:string[20];
 Patronymic:string[40];
 gender:char;
 vozrast:byte;
 nomer_kursa:byte;
 end;
 
var
  Studs: array[1..25] of TStudent;
  Zap: TStudent;
  f: file of TStudent;
  vibor: byte;
  fami: string[15];
   n, t: integer;
 
  {---------------------------------------------------------------------------------------------}
procedure vvod;
var
  i: integer;
begin
clrscr;
  Assign(f, 'student.dat');
  rewrite(f);
  repeat
  Write('Количество студентов от 1 до 25 n: ');
  readln(n);
  until n in [1..25];
  for i := 1 to n do
  begin
    writeln('Введите', ' ', i, ' ', 'студента ');
   with Zap do
   begin
      
write('|Введите фамилию студента................|- '); readln(Fsurname);
write('|Введите имя студента...........................|- '); readln(FName);
write('|Введите отчество студента.................|- '); readln(Patronymic);
repeat
write('|Введите пол студента(м/ж)................|- '); readln(gender);
until (gender='м')or(gender='ж');
repeat
write('|Введите возраст......................|- '); readln(vozrast);
until vozrast in [16..25];
repeat
write('|Введите № курса..................|- '); readln(nomer_kursa);
until nomer_kursa in [1..5];
writeln;
   
   write(f, Zap);
  end;
  end;
  close(f);
end;
{--------------------------------------------------------------------------------------------------------------------------------------------------------------------}
procedure chten;
var
  i: integer;
begin
  clrscr;
  assign(f, 'student.dat');
  reset(f);
  i := 1;
  while not (eof(f)) do 
  begin
    read(f, Studs[i]);
       writeln(i,Studs[i].FSurname:15,' ',Studs[i].FName:10,' ',Studs[i].Patronymic:15,' ',Studs[i].gender,' ','|',Studs[i].vozrast,' ',Studs[i].nomer_kursa,' ');
    i := i + 1;
    
  end;
  close(f);
  
  n := i - 1;
end;
{----------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
procedure dobav;
var
  i: integer;
begin
clrscr;
  rewrite(f);
  
  for    i := 1 to n do
    write(f, Studs[i]); //Записываем в массив записей
  
  Writeln('Введите ', ' ', n + 1, ' ', 'студента');
  with Zap do
  begin
write('|Введите фамилию студента................|- '); readln(Fsurname);
write('|Введите имя студента...........................|- '); readln(FName);
write('|Введите отчество студента.................|- '); readln(Patronymic);
repeat
write('|Введите пол студента(м/ж)................|- '); readln(gender);
until (gender='м')or(gender='ж');
repeat
write('|Введите возраст......................|- '); readln(vozrast);
until vozrast in [16..25];
repeat
write('|Введите № курса..................|- '); readln(nomer_kursa);
until nomer_kursa in [1..5];
  writeln;
  write(f, Zap);
  end;
  close(f);
  
  
end;
{--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
 
procedure delete;
var
  i: integer;
begin
clrscr;
  i := 1;
  assign(f, 'student.dat');
  reset(f);
  
  
  while not eof(f) do
  begin
    read(f, Studs[i]);
    i := i + 1
  end;
 
  close(f);
  write('Выберите номер удаляемой записи которую вы хотите: ');
  readln(n);
  reset(f);
  seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
  read(f, Studs[i]);
  seek(f, n - 1); { Ставим указатель перед удаляемым файлом }
 write(f, Studs[i]);{ Записываем конечный компонент вместо удаляемого }
                    { убираем последний элемент файла }
 seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
 truncate(f);{ Отсекаем последний компонент }
  
 Writeln('Удаление прошло успешно!!!');                                
  
end;
{----------------------------------------------------------------------------------------------------------------------}
procedure poisk;
 
begin
clrscr;
  
          write('Введите фамилию ребенка: ');
          readln(fami);
          reset(f);
          t := 0;
          while not eof(f) do
          begin
            read(f, Zap);
            if Zap.FSurname = fami then
           begin
            t := 1;
           writeln('Найдент студент или студентка с такой фамилией!!!');
              Writeln('Выводим запись');
              writeln(Zap.FSurname:15,' ',Zap.FName:10,' ',Zap.Patronymic:25,' ',Zap.gender,' ',' ',Zap.vozrast,' ',Zap.nomer_kursa);
              end;
          end;
          if t = 0 then writeln('Такого ребенка нету!!!');
          close(f);
        end;
      
  {------------------------------------------------------------------------------------------------------------------------------------------------------------------------------} 
procedure vivod;
var i:integer;
kurs:byte;
begin
repeat 
Write('Введите курс: '); Readln(kurs);
until kurs in [1..5];
writeln('Cписок студентов по заданному курсу');
for i:=1 to n do begin
if (Studs[i].nomer_kursa=kurs) then 
writeln(Studs[i].FSurname:15,' ',Studs[i].FName:10,' ',Studs[i].Patronymic:15,' ',Studs[i].gender,' ','|',Studs[i].vozrast,' ',Studs[i].nomer_kursa,' ');
end;
end;
 
procedure vivod2;
var srednee:real;
summa:integer;
kurs:byte;
i:integer;
begin
ClrScr;
repeat 
Write('Введите курс: '); Readln(kurs);
until kurs in [1..5];
Summa:=0;
for i:=1 to n do begin
if (Studs[i].nomer_kursa=kurs) then
begin
summa:=summa+Studs[i].vozrast;
end;
end;
srednee:=summa/n;
writeln('Средний возраст студентов заданого курса:-------- ',srednee);
 
end;
 
procedure vivod3;
var kol:integer;
procent:real;
i:integer;
begin
for i:=1 to n do begin
if (Studs[i].gender='м') then
  begin
  case Studs[i].nomer_kursa of
  1: kol:=kol+1;
  2: kol:=kol+1;
  3: kol:=kol+1;
  4: kol:=kol+1;
  5: kol:=kol+1;
  end;
end;
end;
writeln('kol =',kol);
end;
 
begin
ClrScr;
repeat
 
  Writeln('Выбор действия');
  Writeln('1-Ввод новых  данных');
  Writeln('2-Чтение данных');
  Writeln('3-Добавление записей');
  Writeln('4-Удаление записи');
  Writeln('5-Поиск информации');
  Writeln('6-Самый больной ребенок');
  Writeln('7-Кто больше болеет - мальчики или девочки');
  writeln('8-Cписок детей, проживающих на заданной улице');
  writeln('9-Выход');
  readln(vibor);
    case vibor of
      1: vvod;
      2: chten;
      3: dobav;
      4: delete;
      5: poisk;
      6: vivod;
      7: vivod2;
      8: vivod3;
      9:begin
      writeln('Нажмите Enter для выхода');
      Readln;
      exit;
      end
      else 
        begin
        writeln('Нажмите Enter и повторите ваш ввод');
        Readln; end;
        end
        until (vibor=9);
    
    
end

.

@ChiliPalmer · 16.04.2016, 12:05

vladis23, так процент не считается:

procent:=100*kol/kol;[/B]

Добавлено через 1 минуту
vladis23, во второй строке - общее количество студентов определенного курса. Написал же уже.

П.с. И в первой строке не пол студента, а количество студентов-мужчин каждого курса!

@Puporev · 16.04.2016, 12:09

индекс 1..5 - номер курса 1-количество мужчин 2-общее количество
1*100/2 - процент мужчин

@ChiliPalmer · 16.04.2016, 12:15

По сути, чтобы долго не страдать, я бы на твоем месте взял первоначальный вариант процедуры # 3( там где с CASE'ом) и вставил внутри кейса еще одну формулу(не забудь применить двухмерный массив). При правильном "подходе" все заработает.

@Puporev · 16.04.2016, 12:25

Вроде так, если не опечатался нигде.

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
procedure max_men(........);
var a:array[1..2,1..5] of integer;
    i,imax:integer;
    max:real;
begin
for i:=1 to 5 do
 begin
  a[1,i]:=0;
  a[2,i]:=0;
 end;
for i:=1 to n do //размер массива
 begin
  inc(a[2,Studs[i].nomer_kursa]);//кол. студентов на курсе
  if Studs[i].gender-'м'then //кол. мужчин на курсе
  inc(a[1,Studs[i].nomer_kursa]);
 end;
max:=100*a[2,1]/a[1,1];
imax:=1;
for i:=2 to 5 do
if 100*a[2,i]/a[1,i]<max then
 begin
  max:=100*a[2,i]/a[1,i];
  imax:=i;
 end;
writeln('Максимальный процент мужчин=',max:0:2,' на ',imax,' курсе');
end;

@vladis23 · 16.04.2016, 12:49 **[ТС]**

Puporev, Вы прям меня спасли, откуда вы все так хорошо знаете?

@Puporev · 16.04.2016, 12:54

Когда напишешь по сотне программ на записи и на массивы, тоже будешь знать, правда не все, это практически невозможно.

Добавлено через 49 секунд
А вообще структура программы рождается в голове.

@ChiliPalmer · 16.04.2016, 13:04

Puporev, у вас опечаточка в коде при подсчете процента. На самом деле нужно считать так:

Pascal
1
max:=100*a[1, i]/a[2, i];

:-)

Добавлено через 3 минуты
П.с. В 20-й и 22-й строке тоже поменять соответственно. :-)

@Puporev · 16.04.2016, 13:46

Да, что-то в конце запутался что 1, а что 2, ну и наменял...

@ChiliPalmer · 16.04.2016, 13:54

Там в коде есть еще одна легкая опечатка, но пусть ее найдет топикстартер

@Puporev · 16.04.2016, 13:55

Да конечно, нужно же тестировать, а так писать шибка умным нужно быть, чего не дано.

@vladis23 · 16.04.2016, 15:56 **[ТС]**

Puporev, как раз я исправил там как говорилось

@Chilipalmer777 · 17.04.2016, 00:19

vladis23,
и чё - у тя всё работает?
тестовые данные проверял?
п.с. код выложи посмотреть, плиз.

@vladis23 · 17.04.2016, 01:13 **[ТС]**

Chilipalmer777,

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
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
program Student;
 
uses
  crt;
type
TStudent =record
 FSurname:string[15];
 FName:string[20];
 Patronymic:string[40];
 gender:char;
 vozrast:byte;
 nomer_kursa:byte;
 end;
 
var
  Studs: array[1..25] of TStudent;
  Zap: TStudent;
  f: file of TStudent;
  vibor: byte;
  fami: string[15];
   n, t: integer;
 
  {---------------------------------------------------------------------------------------------}
procedure vvod;
var
  i: integer;
begin
clrscr;
  Assign(f, 'student.dat');
  rewrite(f);
  repeat
  Write('Количество студентов от 1 до 25 n: ');
  readln(n);
  until n in [1..25];
  for i := 1 to n do
  begin
    writeln('Введите', ' ', i, ' ', 'студента ');
   with Zap do
   begin
      
write('|Введите фамилию студента................|- '); readln(Fsurname);
write('|Введите имя студента...........................|- '); readln(FName);
write('|Введите отчество студента.................|- '); readln(Patronymic);
repeat
write('|Введите пол студента(м/ж)................|- '); readln(gender);
until (gender='м')or(gender='ж');
repeat
write('|Введите возраст от 15 до 25......................|- '); readln(vozrast);
until vozrast in [15..25];
repeat
write('|Введите № курса от 1 до 5..................|- '); readln(nomer_kursa);
until nomer_kursa in [1..5];
writeln;
   
   write(f, Zap);
  end;
  end;
  close(f);
end;
{--------------------------------------------------------------------------------------------------------------------------------------------------------------------}
procedure chten;
var
  i: integer;
begin
  clrscr;
  assign(f, 'student.dat');
  reset(f);
  i := 1;
  while not (eof(f)) do 
  begin
    read(f, Studs[i]);
       writeln(i,Studs[i].FSurname:15,' ',Studs[i].FName:10,' ',Studs[i].Patronymic:15,' ',Studs[i].gender,' ','|',Studs[i].vozrast,' ',Studs[i].nomer_kursa,' ');
    i := i + 1;
    
  end;
  close(f);
  
  n := i - 1;
  writeln('Нажмите Enter');
Readln;
ClrScr;
end;
{----------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
procedure dobav;
var
  i: integer;
begin
clrscr;
  rewrite(f);
  
  for    i := 1 to n do
    write(f, Studs[i]); //Записываем в массив записей
  
  Writeln('Введите ', ' ', n + 1, ' ', 'студента');
  with Zap do
  begin
write('|Введите фамилию студента................|- '); readln(Fsurname);
write('|Введите имя студента...........................|- '); readln(FName);
write('|Введите отчество студента.................|- '); readln(Patronymic);
repeat
write('|Введите пол студента(м/ж)................|- '); readln(gender);
until (gender='м')or(gender='ж');
repeat
write('|Введите возраст......................|- '); readln(vozrast);
until vozrast in [16..25];
repeat
write('|Введите № курса..................|- '); readln(nomer_kursa);
until nomer_kursa in [1..5];
  writeln;
  write(f, Zap);
  end;
  close(f);
  writeln('Нажмите Enter');
Readln;
ClrScr;
  
end;
{--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------}
 
procedure delete;
var
  i: integer;
begin
clrscr;
  i := 1;
  assign(f, 'student.dat');
  reset(f);
  
  
  while not eof(f) do
  begin
    read(f, Studs[i]);
    i := i + 1
  end;
 
  close(f);
  write('Выберите номер удаляемой записи которую вы хотите: ');
  readln(n);
  reset(f);
  seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
  read(f, Studs[i]);
  seek(f, n - 1); { Ставим указатель перед удаляемым файлом }
 write(f, Studs[i]);{ Записываем конечный компонент вместо удаляемого }
                    { убираем последний элемент файла }
 seek(f, filesize(f) - 1);{ Ставим указатель перед последним компонентом }
 truncate(f);{ Отсекаем последний компонент }
  
 Writeln('Удаление прошло успешно!!!');                                
  
end;
{----------------------------------------------------------------------------------------------------------------------}
procedure poisk;
 
begin
clrscr;
  
          write('Введите фамилию студента: ');
          readln(fami);
          reset(f);
          t := 0;
          while not eof(f) do
          begin
            read(f, Zap);
            if Zap.FSurname = fami then
           begin
            t := 1;
           writeln('Найдент студент или студентка с такой фамилией!!!');
              Writeln('Выводим запись');
              writeln(Zap.FSurname:15,' ',Zap.FName:10,' ',Zap.Patronymic:25,' ',Zap.gender,' ',' ',Zap.vozrast,' ',Zap.nomer_kursa);
              end;
          end;
          if t = 0 then writeln('Такого студента нету!!!');
          close(f);
        end;
      
  {------------------------------------------------------------------------------------------------------------------------------------------------------------------------------} 
procedure vivod;
var i:integer;
kurs:byte;
begin
repeat 
Write('Введите курс: '); Readln(kurs);
until kurs in [1..5];
writeln('Cписок студентов по заданному курсу');
for i:=1 to n do begin
if (Studs[i].nomer_kursa=kurs) then 
writeln(Studs[i].FSurname:15,' ',Studs[i].FName:10,' ',Studs[i].Patronymic:15,' ',Studs[i].gender,' ','|',Studs[i].vozrast,' ',Studs[i].nomer_kursa,' ');
end;
end;
 
procedure vivod2;
var srednee:real;
summa:integer;
kurs:byte;
i:integer;
begin
ClrScr;
repeat 
Write('Введите курс: '); Readln(kurs);
until kurs in [1..5];
Summa:=0;
for i:=1 to n do begin
if (Studs[i].nomer_kursa=kurs) then
begin
summa:=summa+Studs[i].vozrast;
end;
end;
srednee:=summa/n;
writeln('Средний возраст студентов заданого курса:-------- ',srednee);
writeln('Нажмите Enter');
Readln;
ClrScr;
end;
 
procedure vivod3;
var a:array[1..2,1..5] of integer;
    i,imax:integer;
    max:real;
begin
ClrScr;
for i:=1 to 5 do
 begin
  a[1,i]:=0;
  a[2,i]:=0;
 end;
for i:=1 to n do //размер массива
 begin
  inc(a[2,Studs[i].nomer_kursa]);//кол. студентов на курсе
  if Studs[i].gender='м'then //кол. мужчин на курсе
  inc(a[1,Studs[i].nomer_kursa]);
 end;
max:=100*a[1,1]/a[2,1];
imax:=1;
for i:=2 to 5 do
if 100*a[1,i]/a[2,i]>max then
 begin
  max:=100*a[2,i]/a[1,i];
  imax:=i;
 end;
writeln('Максимальный процент мужчин=',max:0:2,'% на ',imax,' курсе');
writeln('Нажмите Enter');
Readln;
ClrScr;
end;
 
begin
ClrScr;
repeat
 
  Writeln('Выбор действия');
  Writeln('1-Ввод новых  данных');
  Writeln('2-Чтение данных');
  Writeln('3-Добавление записей');
  Writeln('4-Удаление записи');
  Writeln('5-Поиск информации');
  Writeln('6-Вывод 1');
  Writeln('7-Вывод 2');
  writeln('8-Вывод 3');
  writeln('9-Выход');
  readln(vibor);
    case vibor of
      1: vvod;
      2: chten;
      3: dobav;
      4: delete;
      5: poisk;
      6: vivod;
      7: vivod2;
      8: vivod3;
      9:begin
      writeln('Нажмите Enter для выхода');
      Readln;
      exit;
      end
      else 
        begin
        writeln('Нажмите Enter и повторите ваш ввод');
        Readln; end;
        end
        until (vibor=9);
    
    
end.

Добавлено через 55 секунд
тут где-то есть ошибка

Добавлено через 19 минут
я уже заметил ее

Добавлено через 30 секунд
выводится процент номера курса только первый

Добавлено через 36 секунд
Chilipalmer777, как это исправить можно?

@Chilipalmer777 · 17.04.2016, 01:15

vladis23, если ты имел ввиду строку № 237, то молодец.

п.с. Без этого "правильный" максимум не найдешь.

@vladis23 · 17.04.2016, 01:19 **[ТС]**

Chilipalmer777, ошибка одна та же появляется при расчетах

@vladis23 · 17.04.2016, 01:21 **[ТС]**

Вот фото выполнения программы

@vladis23 · 17.04.2016, 02:20 **[ТС]**

Chilipalmer777, вообще должно вывести 2 курс по проценту самый высокий

Добавлено через 57 минут
Помогите переделать эту процедуру, не правильно она работает

@Chilipalmer777 · 17.04.2016, 02:45

vladis23, вообще-то, исходя из данных о студентах на вашем фото, максимальный процент студентов-мужчин на третьем курсе, а не на втором!

п.с. 237 строку изменил на правильный код???

Добавлено через 11 минут
п.с.2. И еще тебе вопрос:
у тебя цикл обработки массива обрабатывает до 5 элементов(исходя из твоего кода).
А на экране(фото) - семь записей.
Как-же у тебя работает цикл обработки всего массива?

Добавлено через 2 минуты
Здаётся мне, твои пятерки в третьей процедуре не к месту. Неправильно это.

@vladis23 · 17.04.2016, 03:25 **[ТС]**

Chilipalmer777, это процедура считывание с файла

Добавлено через 44 секунды
Chilipalmer777, я же кидал целый код моей программы

Добавлено через 2 минуты

Сообщение от Chilipalmer777

п.с. 237 строку изменил на правильный код???

Я изменил ее

@Chilipalmer777 · 17.04.2016, 03:34

Выложи последнюю версию твоего кода.

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.04.2016, 12:09
	индекс 1..5 - номер курса 1-количество мужчин 2-общее количество 1*100/2 - процент мужчин 0

@ChiliPalmer 20 / 20 / 6 Регистрация: 09.04.2016 Сообщений: 145
	16.04.2016, 12:15
	По сути, чтобы долго не страдать, я бы на твоем месте взял первоначальный вариант процедуры # 3( там где с CASE'ом) и вставил внутри кейса еще одну формулу(не забудь применить двухмерный массив). При правильном "подходе" все заработает. 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	16.04.2016, 12:49 [ТС]
	Puporev, Вы прям меня спасли, откуда вы все так хорошо знаете? 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.04.2016, 12:54
	Когда напишешь по сотне программ на записи и на массивы, тоже будешь знать, правда не все, это практически невозможно. Добавлено через 49 секунд А вообще структура программы рождается в голове. 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.04.2016, 13:46
	Да, что-то в конце запутался что 1, а что 2, ну и наменял... 0

@ChiliPalmer 20 / 20 / 6 Регистрация: 09.04.2016 Сообщений: 145
	16.04.2016, 13:54
	Там в коде есть еще одна легкая опечатка, но пусть ее найдет топикстартер 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.04.2016, 13:55
	Да конечно, нужно же тестировать, а так писать шибка умным нужно быть, чего не дано. 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	16.04.2016, 15:56 [ТС]
	Puporev, как раз я исправил там как говорилось 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 00:19
	vladis23, и чё - у тя всё работает? тестовые данные проверял? п.с. код выложи посмотреть, плиз. 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 01:15
	vladis23, если ты имел ввиду строку № 237, то молодец. п.с. Без этого "правильный" максимум не найдешь. 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 01:19 [ТС]
	Chilipalmer777, ошибка одна та же появляется при расчетах 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 01:21 [ТС]
	Вот фото выполнения программы Миниатюры 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 02:20 [ТС]
	Chilipalmer777, вообще должно вывести 2 курс по проценту самый высокий Добавлено через 57 минут Помогите переделать эту процедуру, не правильно она работает 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 02:45
	vladis23, вообще-то, исходя из данных о студентах на вашем фото, максимальный процент студентов-мужчин на третьем курсе, а не на втором! п.с. 237 строку изменил на правильный код??? Добавлено через 11 минут п.с.2. И еще тебе вопрос: у тебя цикл обработки массива обрабатывает до 5 элементов(исходя из твоего кода). А на экране(фото) - семь записей. Как-же у тебя работает цикл обработки всего массива? Добавлено через 2 минуты Здаётся мне, твои пятерки в третьей процедуре не к месту. Неправильно это. 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 03:34
	Выложи последнюю версию твоего кода. 0

Запись Студент - Определить список студентов заданного курса

Решение