не могу догнать одну вещь

@kymapuk · Регистрация: 20.03.2011

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

Задача:
На вход программы подаются сведения о результатах соревнований по школьному многоборью. Многоборье состоит из соревнований по четырем видам спорта, участие в каждом из которых оценивается баллами от 0 до 10 (0 баллов получает ученик, не принимавший участия в соревнованиях по данному виду спорта). Победители определяются по наибольшей сумме набранных баллов. Известно, что общее количество участников соревнований не превосходит 100.
В первой строке вводится количество учеников, принимавших участие в соревнованиях, N. Далее следуют N строк, имеющих следующий формат:
<Фамилия> <Имя> <Баллы>
Здесь <Фамилия> – строка, состоящая не более чем из 20 символов; <Имя> – строка, состоящая не более чем из 15 символов; <Баллы> - строка, содержащая четыре целых числа, разделенных пробелом, соответствующих баллам, полученным на соревнованиях по каждому из четырех видов спорта. При этом <Фамилия> и <Имя>, <Имя> и <Баллы> разделены одним пробелом. Примеры входных строк:
Иванова Мария 5 8 6 3
Петров Сергей 9 9 5 7
Напишите программу, которая будет выводить на экран фамилии и имена трех лучших участников многоборья. Если среди остальных участников есть ученики, набравшие то же количество баллов, что и один из трех лучших, то их фамилии и имена также следует вывести. При этом имена и фамилии можно выводить в произвольном порядке.

Мое решение

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
type
    p_olimp=^olimp;
    olimp=record
        famil:string[20];
        name:string[15];
        bal:integer;
        next:p_olimp;
    end;
 var
   n,i,p,tmp:integer;
   head:p_olimp;
   cur:p_olimp;
 
   buf:string;
   stmp:string;
   max,oo:integer;
 
 
begin
 writeln('BBeDuTe KoJI-Bo y4awuxcya He 60JIbIIIe 100');
 readln(n);
 for i:=1 to n do begin
                  oo:=0;
                  writeln('BBeDuTe faMuJIu1O, uM9I u 4 balla');
                  new(cur);
                  readln(buf);
                  p:=pos(' ',buf);
                  stmp:= copy(buf,1,(p-1));
                  delete(buf,1,p);
                  cur^.famil:=stmp;
                  //
                  //writeln('buf=',buf);
                  //
                  p:=pos(' ',buf);
                  stmp:= copy(buf,1,(p-1));
                  delete(buf,1,p);
                   cur^.name:=stmp;
                  //
                  //writeln('buf=',buf);
                  //
                  p:=pos(' ',buf);
                  stmp:= copy(buf,1,(p-1));
                  delete(buf,1,p);
                  val(stmp,tmp);
                  oo:=oo+tmp;
                  //
                  //writeln('buf=',buf);
                  //
                  p:=pos(' ',buf);
                  stmp:= copy(buf,1,(p-1));
                  delete(buf,1,p);
                  val(stmp,tmp);
                  oo:=oo+tmp;
                  //
                  //writeln('buf=',buf);
                  //
                  p:=pos(' ',buf);
                  stmp:= copy(buf,1,(p-1));
                  delete(buf,1,p);
                  val(stmp,tmp);
                  oo:=oo+tmp;
                  //
                  //writeln('buf=',buf);
                  //
                  stmp:= buf;
                  val(stmp,tmp);
                  oo:=oo+tmp;
                  cur^.bal:=oo;
 
                  cur^.next:=head;
                  head:=cur;
                  end;
 
 
 
   max:=0;
   cur:=head;
   while cur<>NIL do begin
                        if cur^.bal>max then max:=cur^.bal;
 
                        cur:=cur^.next;
                    end;
   cur:=head;
   while cur<>NIL do begin
                      if cur^.bal=max then writeln(cur^.famil,' ',cur^.name);
 
                      cur:=cur^.next;
                     end;
 
 
 
 
end.

помогите доработать чтоб он выводил первые три места.
в моем случае выводит максимальное.
помощь нажна СРОЧНО

@Xentar · 18.01.2012, 11:55

Ввести глобальные переменные max2 и max3 (второе и третье место)

Инициализировать max2 и max3 = 0; (как и с переменной макс в 76 строке)

При присвоении max нового значения (условие if из цикла выбора) max3:=max2; max2:=max; max:=cur^.bal;

@kymapuk · 18.01.2012, 12:50 **[ТС]**

можно текст пожалуйста

@Xentar · 18.01.2012, 13:10

Код 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 type p_olimp=^olimp; olimp=record famil:string[20]; name:string[15]; bal:integer; next

_olimp; end; var n,i,p,tmp:integer; head

_olimp; cur

_olimp; buf:string; stmp:string; max,max2,max3,oo:integer; begin writeln('BBeDuTe KoJI-Bo y4awuxcya He 60JIbIIIe 100'); readln(n); for i:=1 to n do begin oo:=0; writeln('BBeDuTe faMuJIu1O, uM9I u 4 balla'); new(cur); readln(buf); p:=pos(' ',buf); stmp:= copy(buf,1,(p-1)); delete(buf,1,p); cur^.famil:=stmp; // //writeln('buf=',buf); // p:=pos(' ',buf); stmp:= copy(buf,1,(p-1)); delete(buf,1,p); cur^.name:=stmp; // //writeln('buf=',buf); // p:=pos(' ',buf); stmp:= copy(buf,1,(p-1)); delete(buf,1,p); val(stmp,tmp); oo:=oo+tmp; // //writeln('buf=',buf); // p:=pos(' ',buf); stmp:= copy(buf,1,(p-1)); delete(buf,1,p); val(stmp,tmp); oo:=oo+tmp; // //writeln('buf=',buf); // p:=pos(' ',buf); stmp:= copy(buf,1,(p-1)); delete(buf,1,p); val(stmp,tmp); oo:=oo+tmp; // //writeln('buf=',buf); // stmp:= buf; val(stmp,tmp); oo:=oo+tmp; cur^.bal:=oo; cur^.next:=head; head:=cur; end; max:=0; max2:=0; max3:=0; cur:=head; while cur<>NIL do begin if cur^.bal>max then begin max3:=max2; max2:=max; max:=cur^.bal; end; cur:=cur^.next; end; cur:=head; while cur<>NIL do begin if cur^.bal=max then writeln('pervoe mesto : ',cur^.famil,' ',cur^.name); if cur^.bal=max2 then writeln('vtoroe mesto : ',cur^.famil,' ',cur^.name); if cur^.bal=max3 then writeln('tret''e mesto : ',cur^.famil,' ',cur^.name); cur:=cur^.next; end; end.

Добавлено через 24 секунды
Если твой код работает - этот тоже будет работать.

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

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
type     p_olimp=^olimp;
     olimp=record
         famil:string[20];
         name:string[15];
         bal:integer;
         next:p_olimp;
     end;
 
  var
    n,i,p,tmp:integer;
    head:p_olimp;
    cur:p_olimp;
  
    buf:string;
    stmp:string;
    max,max2,max3,oo:integer;
  
  
 begin
  writeln('BBeDuTe KoJI-Bo y4awuxcya He 60JIbIIIe 100');
  readln(n);
  for i:=1 to n do begin
                   oo:=0;
                   writeln('BBeDuTe faMuJIu1O, uM9I u 4 balla');
                   new(cur);
                   readln(buf);
                   p:=pos(' ',buf);
                   stmp:= copy(buf,1,(p-1));
                   delete(buf,1,p);
                   cur^.famil:=stmp;
                   //
                   //writeln('buf=',buf);
                   //
                   p:=pos(' ',buf);
                   stmp:= copy(buf,1,(p-1));
                   delete(buf,1,p);
                    cur^.name:=stmp;
                   //
                   //writeln('buf=',buf);
                   //
                   p:=pos(' ',buf);
                   stmp:= copy(buf,1,(p-1));
                   delete(buf,1,p);
                   val(stmp,tmp);
                   oo:=oo+tmp;
                   //
                   //writeln('buf=',buf);
                   //
                   p:=pos(' ',buf);
                   stmp:= copy(buf,1,(p-1));
                   delete(buf,1,p);
                   val(stmp,tmp);
                   oo:=oo+tmp;
                   //
                   //writeln('buf=',buf);
                   //
                   p:=pos(' ',buf);
                   stmp:= copy(buf,1,(p-1));
                   delete(buf,1,p);
                   val(stmp,tmp);
                   oo:=oo+tmp;
                   //
                   //writeln('buf=',buf);
                   //
                   stmp:= buf;
                   val(stmp,tmp);
                   oo:=oo+tmp;
                   cur^.bal:=oo;
  
                   cur^.next:=head;
                   head:=cur;
                   end;
  
  
  
    max:=0;
    max2:=0;
    max3:=0; 
    cur:=head;
    while cur<>NIL do begin
                         if cur^.bal>max then begin
                                              max3:=max2;
                                              max2:=max;
                                              max:=cur^.bal; 
                                              end;
                         cur:=cur^.next;
                     end;
    cur:=head;
    while cur<>NIL do begin
                       if cur^.bal=max then writeln('pervoe mesto : ',cur^.famil,' ',cur^.name);
                       if cur^.bal=max2 then writeln('vtoroe mesto : ',cur^.famil,' ',cur^.name);
                       if cur^.bal=max3 then writeln('tret''e mesto : ',cur^.famil,' ',cur^.name);
                       cur:=cur^.next;
                      end;
 
 end.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Xentar Of Wolf and Man 999 / 198 / 5 Регистрация: 09.07.2008 Сообщений: 1,784
	18.01.2012, 11:55
	Ввести глобальные переменные max2 и max3 (второе и третье место) Инициализировать max2 и max3 = 0; (как и с переменной макс в 76 строке) При присвоении max нового значения (условие if из цикла выбора) max3:=max2; max2:=max; max:=cur^.bal; 0

@kymapuk 0 / 0 / 1 Регистрация: 20.03.2011 Сообщений: 19
	18.01.2012, 12:50 [ТС]
	можно текст пожалуйста 0