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

@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

.

@vladis23 · 17.04.2016, 04:09 **[ТС]**

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[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,' курсе');
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.

@Chilipalmer777 · 17.04.2016, 04:26

vladis23, чувак, ты выложил неоткорректированную версию кода, в которой полно ошибок, на которые я тебе уже указал.
В выложенной версии по-прежнему неправильно определяется:
1. процент студентов-мужчин(формула НЕ исправлена)
2. цикл обработки массива ограничен пятью.(тобой!)
3. в разделе описания переменных процедуры vvod3, ты сам ограничил массив пятью "столбцами".
Либо поставь там например 500, либо, что правильнее - опиши его как динамический массив, но тогда некоторый код в процедуре тоже придётся чуток подправить...

@vladis23 · 17.04.2016, 05:16 **[ТС]**

Chilipalmer777, какая формула должна быть?

Добавлено через 38 секунд
Chilipalmer777, та формула которую написали вообще не правильная

@Chilipalmer777 · 17.04.2016, 05:49

vladis23, внимательно прочитай мое общение с модератором на эту тему.
Там есть описание правильной формулы расчета.
Если ничего не поймешь - погугли, как определяется процент от общего числа, и вставь свою формулу, которую считаешь правильной.

@vladis23 · 17.04.2016, 06:09 **[ТС]**

Chilipalmer777, Чтобы найти процент от числа, например, 35% от 1000 рублей, нужно

1000*35:100=350 рублей
оно же
1000*0,35=350 рублей

@Chilipalmer777 · 17.04.2016, 06:13

а если на курсе 50 человек, а мужчин из них 20, что нужно сделать, чтобы определить процент мужчин от общего числа?

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

Chilipalmer777, 20*100/50

@Chilipalmer777 · 17.04.2016, 07:35

Молодец. а теперь вставь эту формулу расчета себе в процедуру.

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

Меня наконец то осенило, поэкспериментировал, что каждый цикл делает, как считает и теперь у меня получилось.
Результаты на фото

@Chilipalmer777 · 17.04.2016, 11:29

1. Как хорошо, когда до всего "доходишь" своей головой, а не чужой!
2. А как насчет третьего курса - там по твоим данным тоже 100% парней... ?

@vladis23 · 17.04.2016, 11:42 **[ТС]**

Chilipalmer777, не может такого быть

Добавлено через 19 секунд
Chilipalmer777, там 3 человека учатся

@Chilipalmer777 · 17.04.2016, 13:14

vladis23, посмотри на своё фото № 1 - там где твои введенные данные.
а 3 из трех - это и есть 100%.

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

Chilipalmer777, тогда я не знаю как это исправить

@Chilipalmer777 · 17.04.2016, 13:17

п.с. И с чего ты решил, что на 4-м курсе учатся 100% парней - у тебя в "базе данных" всего одна запись по четвертому курсу...

Добавлено через 33 секунды
или это не вся "база данных"?

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

Chilipalmer777, это вся база

@Chilipalmer777 · 17.04.2016, 13:37

Если к проблеме подойти логически, то немного поразмышляв, мы поймем что на целом курсе не может учиться всего один человек. :-)
Но если все-же допустить такую возможность, то надо усовершенствовать алгоритм поиска в твоей третьей процедуре и выдавать все максимальные элементы из массива(если они совпадают между собой). Для этого я бы добавил отдельный "дополнительный" цикл, который будет искать по всему массиву совпадения по максимальному элементу(который уже найден и его индекс запомнен в переменную) и выдавать их на экран.

Но если препод не обратит на этот ньюанс внимание - можешь не заморачиваться.

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

Chilipalmer777, какое же условие задать чтоб получилось так с этим дополнительным цыклом

@Chilipalmer777 · 17.04.2016, 22:06

подумай. ты же говорил, что тебя "осенило" и ты всё понял... ))

@vladis23 · 18.04.2016, 09:36 **[ТС]**

Chilipalmer777, меня осенило что получилось вычислить Максим. курс но пока что я не могу понять как дополнительный цикл вставить, Можете написать шаги для выполнения алгоритма чтоб сравнивались все курсы

@Chilipalmer777 · 18.04.2016, 18:21

vladis23, подсказка простая:
после вычисления максимума ставишь еще один цикл для перебора значений двумерного массива и простым перебором находишь значения из матрицы, которые равны ранее найденному максимуму. В случае совпадения значения с максимумом - выдаешь на экран номер курса(и процент например, если это нужно).

Добавлено через 46 секунд
п.с. У тебя такая сложная программа, а ты не знаешь как еще один цикл добавить в процедуру...
Ты хоть сам писал этот код?

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты 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 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 04:26
	vladis23, чувак, ты выложил неоткорректированную версию кода, в которой полно ошибок, на которые я тебе уже указал. В выложенной версии по-прежнему неправильно определяется: 1. процент студентов-мужчин(формула НЕ исправлена) 2. цикл обработки массива ограничен пятью.(тобой!) 3. в разделе описания переменных процедуры vvod3, ты сам ограничил массив пятью "столбцами". Либо поставь там например 500, либо, что правильнее - опиши его как динамический массив, но тогда некоторый код в процедуре тоже придётся чуток подправить... 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 05:16 [ТС]
	Chilipalmer777, какая формула должна быть? Добавлено через 38 секунд Chilipalmer777, та формула которую написали вообще не правильная 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 05:49
	vladis23, внимательно прочитай мое общение с модератором на эту тему. Там есть описание правильной формулы расчета. Если ничего не поймешь - погугли, как определяется процент от общего числа, и вставь свою формулу, которую считаешь правильной. 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 06:09 [ТС]
	Chilipalmer777, Чтобы найти процент от числа, например, 35% от 1000 рублей, нужно 100035:100=350 рублей оно же 10000,35=350 рублей 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 06:13
	а если на курсе 50 человек, а мужчин из них 20, что нужно сделать, чтобы определить процент мужчин от общего числа? 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 06:20 [ТС]
	Chilipalmer777, 20*100/50 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 07:35
	Молодец. а теперь вставь эту формулу расчета себе в процедуру. 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 11:01 [ТС]
	Меня наконец то осенило, поэкспериментировал, что каждый цикл делает, как считает и теперь у меня получилось. Результаты на фото Миниатюры 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 11:29
	1. Как хорошо, когда до всего "доходишь" своей головой, а не чужой! 2. А как насчет третьего курса - там по твоим данным тоже 100% парней... ? 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 11:42 [ТС]
	Chilipalmer777, не может такого быть Добавлено через 19 секунд Chilipalmer777, там 3 человека учатся 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 13:14
	vladis23, посмотри на своё фото № 1 - там где твои введенные данные. а 3 из трех - это и есть 100%. 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 13:16 [ТС]
	Chilipalmer777, тогда я не знаю как это исправить 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 13:17
	п.с. И с чего ты решил, что на 4-м курсе учатся 100% парней - у тебя в "базе данных" всего одна запись по четвертому курсу... Добавлено через 33 секунды или это не вся "база данных"? 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	17.04.2016, 13:25 [ТС]
	Chilipalmer777, это вся база 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 13:37
	Если к проблеме подойти логически, то немного поразмышляв, мы поймем что на целом курсе не может учиться всего один человек. :-) Но если все-же допустить такую возможность, то надо усовершенствовать алгоритм поиска в твоей третьей процедуре и выдавать все максимальные элементы из массива(если они совпадают между собой). Для этого я бы добавил отдельный "дополнительный" цикл, который будет искать по всему массиву совпадения по максимальному элементу(который уже найден и его индекс запомнен в переменную) и выдавать их на экран. Но если препод не обратит на этот ньюанс внимание - можешь не заморачиваться. 0

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

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	17.04.2016, 22:06
	подумай. ты же говорил, что тебя "осенило" и ты всё понял... )) 0

@vladis23 13 / 13 / 10 Регистрация: 25.05.2015 Сообщений: 554
	18.04.2016, 09:36 [ТС]
	Chilipalmer777, меня осенило что получилось вычислить Максим. курс но пока что я не могу понять как дополнительный цикл вставить, Можете написать шаги для выполнения алгоритма чтоб сравнивались все курсы 0

@Chilipalmer777 14 / 14 / 11 Регистрация: 20.03.2016 Сообщений: 168
	18.04.2016, 18:21
	vladis23, подсказка простая: после вычисления максимума ставишь еще один цикл для перебора значений двумерного массива и простым перебором находишь значения из матрицы, которые равны ранее найденному максимуму. В случае совпадения значения с максимумом - выдаешь на экран номер курса(и процент например, если это нужно). Добавлено через 46 секунд п.с. У тебя такая сложная программа, а ты не знаешь как еще один цикл добавить в процедуру... Ты хоть сам писал этот код? 0