Олимпиадная задача по программированию. PascalABC.NET

@sadfasfsad · Регистрация: 05.06.2019

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

Здравствуйте, я готовлюсь к школьной олимпиаде по информатике, не могу решить задачу (85 баллов из 100). Помогите, пожалуйста.
Условие
В этом году третий раз одна известная компания проводит соревнование по программированию искусственного интеллекта для игровых стратегий. В этот раз участникам предложили написать искусственный интеллект для управления командой хоккеистов. После проведения очередного тура, Вася решил, что для дальнейшего улучшения своей стратегии необходимо просмотреть все бои с теми соперниками, которые сопоставимы с ним по проценту побед. Задана таблица результатов боев в прошедшем раунде. В каждой строке записаны ник соперника Васи и итоговый счет. Первое число показывает, сколько шайб забила стратегия Васи, вторая — сколько шайб забила стратегия соперника. Необходимо подсчитать процент побед каждого участника и вывести результат, отсортировав его в порядке неубывания процентов. Если процент побед оказался одинаковым, то нужно упорядочить записи по никам лексикографически.

Формат ввода
В первой строке входного файла записано целое число N (1 ≤ N ≤ 105) — количество записей в таблице. В каждой из последующих N строк через пробел записаны ник соперника, сколько забила Васина команда и сколько забил соперник. Гарантируется, что каждый ник — непустая строка, длина которой не превосходит 10 символов и состоящая из строчных букв латинского алфавита. Так же известно, что никто из участников не забивал больше 1000 голов.

Формат вывода
В первой строке выходного файла выведите количество соперников. В последующих строках выведите ник соперника и процент побед Васиной команды с точностью не хуже шести знаков после запятой.

Пример 1
Ввод
1
tpusct 1 60
Вывод
1
tpusct 0.0000000000

Пример 2
Ввод
35
v 86 45
v 77 90
pmuehueqm 74 40
mslrsnshk 71 13
fy 43 1
mslrsnshk 76 87
gwpr 37 78
mxzsoel 4 39
pmuehueqm 78 75
v 59 45
gwpr 25 52
bjyaiptxmw 48 48
mxzsoel 13 76
givnyujn 38 70
mslrsnshk 58 66
givnyujn 33 66
pmuehueqm 100 53
pmuehueqm 80 17
pmuehueqm 2 48
mxzsoel 68 4
bjyaiptxmw 43 40
be 81 92
be 34 55
bjyaiptxmw 88 5
mslrsnshk 49 82
givnyujn 91 30
bjyaiptxmw 33 19
bjyaiptxmw 46 17
i 70 35
givnyujn 38 55
pmuehueqm 7 81
mxzsoel 0 9
i 64 30
v 80 42
mslrsnshk 79 64
Вывод
10
be 0.0000000000
gwpr 0.0000000000
givnyujn 25.0000000000
mxzsoel 25.0000000000
mslrsnshk 40.0000000000
pmuehueqm 66.6666666667
v 75.0000000000
bjyaiptxmw 80.0000000000
fy 100.0000000000
i 100.0000000000

Мой код:

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
program D_contest;
 
type
  TStat = record
    nick: string;
    wins, battles: integer;
    proc: real;
  end;
 
var
  N, i, num: integer;
  str: string;
  stat: array of TStat;
  nick: string;
 
function found(ni_ck: string): integer;
begin
  found := -1;
  for var e := 0 to Length(stat) - 1 do
  begin
    if stat[e].nick = ni_ck then 
    begin
      found := e;
      break;
    end;
  end;
end;
 
var
  v_pts, e_pts, l_e: integer; 
  F: textfile;
  k: real;
  s: string;
 
begin
  Assign(F, 'input.txt');
  Reset(F);
  readln(F, n);
  SetLength(stat, 1);
  for i := 0 to n - 1 do
  begin
    readln(F, str);
      //get enemy_nick
    nick := Copy(str, 1, Pos(' ', str) - 1);    
    Delete(str, 1, Pos(' ', str));
    
    if (stat[0].nick <> '') then
    begin
      num := found(nick);
      if (num = -1) then //not found
      begin
        l_e := Length(stat);
        SetLength(stat, l_e + 1);
        num := l_e;
        stat[num].nick := nick;
      end;
    end
      else
    begin
      stat[0].nick := nick;
    end;
    
    inc(stat[num].battles);
    
      //get Vania_points
    v_pts := StrToInt(Copy(str, 1, Pos(' ', str)));   
    Delete(str, 1, Pos(' ', str));
    
      //get enemy_points
    e_pts := StrToInt(str);
    
    if v_pts > e_pts Then
      inc(stat[num].wins);        
  end;
  
  Close(F);
  
  //вычисляю процент побед
  for i := 0 to Length(stat) - 1 do
  begin
    stat[i].proc := stat[i].wins / stat[i].battles;  
  end;
  
  //сортировка по процентам
  for i := 0 to Length(stat) - 2 do 
  begin
    for var j := 0 to Length(stat) - i - 2 do 
    begin
      if (stat[j].proc > stat[j + 1].proc) then //(stat[j].proc = stat[j + 1].proc) and (stat[j].nick > stat[j + 1].nick)
      begin
        k := stat[j].proc;
        stat[j].proc := stat[j + 1].proc;
        stat[j + 1].proc := k;
        
        s := stat[j].nick;
        stat[j].nick := stat[j + 1].nick;
        stat[j + 1].nick := s;
      end
      else
      begin
        if stat[j].proc = stat[j + 1].proc Then
          if (stat[j].proc = stat[j + 1].proc) and (stat[j].nick > stat[j + 1].nick) Then
          begin
            k := stat[j].proc;
            stat[j].proc := stat[j + 1].proc;
            stat[j + 1].proc := k;
            
            s := stat[j].nick;
            stat[j].nick := stat[j + 1].nick;
            stat[j + 1].nick := s;
          end;
      end;
    end;
  end;
  
  writeln(Length(stat));
  for i := 0 to Length(stat) - 1 do
  begin
    write(stat[i].nick, ' ');
    writeln(stat[i].proc * 100:0:6);
  end;
end.

Есть ли какие-то методы упрощения считывания? Мне кажется все дело в том, что много времени тратится на "вычленение" из строки нужных элементов. Большое спасибо!

@eaa · 27.02.2020, 07:37

Воспользуйтесь словарем, считаем победы и количество для каждой команды:

Pascal
1
var d := new Dictionary<string, (integer, integer)>;

получится что-то такое:

Code
1
2
3
4
5
6
7
8
9
(pmuehueqm, (4, 6))
(mslrsnshk, (2, 5))
(fy, (1, 1))
(gwpr, (0, 2))
(mxzsoel, (1, 4))
(bjyaiptxmw, (4, 5))
(givnyujn, (1, 4))
(be, (0, 2))
(i, (2, 2))

потом сортируйте как нужно.

@sadfasfsad · 27.02.2020, 12:25 **[ТС]**

Там ничего не написано, просто 75/100 баллов, а что причина - неизвестно, поэтому я сюда и пишу

Новые блоги и статьи Все статьи Все блоги /
[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

@sadfasfsad 3 / 3 / 0 Регистрация: 05.06.2019 Сообщений: 82
	27.02.2020, 12:25 [ТС]
	Там ничего не написано, просто 75/100 баллов, а что причина - неизвестно, поэтому я сюда и пишу 0

Опции темы