Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.60/163: Рейтинг темы: голосов - 163, средняя оценка - 4.60
2 / 2 / 0
Регистрация: 05.06.2019
Сообщений: 82
1

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

08.10.2019, 21:24. Показов 30997. Ответов 21
Метки нет (Все метки)

Здравствуйте, я готовлюсь к школьной олимпиаде по информатике, не могу решить задачу (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.
Есть ли какие-то методы упрощения считывания? Мне кажется все дело в том, что много времени тратится на "вычленение" из строки нужных элементов. Большое спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2019, 21:24
Ответы с готовыми решениями:

Олимпиадная задача по программированию. PascalABC.NET
Вася с Петей и Колей заработали много денег. Чтобы не мучиться с дележкой, они решили, что сначала...

Олимпиадная задача по программированию. PascalABC.NET
Найти количество целых решений, удовлетворяющих неравенству: A ≤ B*x + C ≤ D. Формат ввода В...

Олимпиадная задача по программированию. PascalABC.NET. Задача L. Переключение между окнами
Когда пользователь работает в операционной системе Winux, у него часто запущено несколько...

Олимпиадная задача по программированию. PascalABC.NET. Задача С. Считалка
Ирочка попросила маму придумать новую считалочку. Мама тут же ей &quot;выдала&quot;. Пусть в кругу N...

21
4659 / 2345 / 2216
Регистрация: 10.12.2014
Сообщений: 9,027
09.10.2019, 06:59 2
Лучший ответ Сообщение было отмечено sadfasfsad как решение

Решение

Почему именно массив? Ведь списком гораздо легче!
Да и „парсить“ PABC.NET умеет лучше:
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
type
  TStat = record
    nick: string;
    wins, battles: integer;
    proc: real;
    
    constructor (ss : array of String);
    begin
      nick := ss[0];
      stat(ss);
    end;
    
    function stat(ss : array of String) : TStat;
    begin
      battles += 1;
      if ss[1].ToInteger > ss[2].ToInteger then
        wins += 1;
      Result := Self;
    end;
    
  end;
 
begin
  var f := OpenRead('input.txt');
  var n := f.ReadLnInteger;
  var L := New List<TStat>;
  loop n do
    begin
      var ss := f.ReadlnString.ToWords;
      var z := L.FindIndex(v->v.nick = ss[0]);
      if z < 0 then
        L.Add( New TStat(ss) )
      else
        L[z] := L[z].stat(ss);
    end;
  f.Close;
  
end.
Вывести то, что у нас получилось можно так:
Pascal
38
  L.Print;
А перед этим добавить расчёт среднего:
Pascal
38
  for var i := 0 to L.Count-1 do L[i] := L[i].pr;
Не забыв добавить соответствующий метод:
Pascal
21
22
23
24
25
    function pr : TStat;
    begin
      proc := wins / battles * 100;
      Result := Self;
    end;
Теперь количество…
Это запросто:
Pascal
45
  L.Count.Println;
Вывести в нужном формате по заданию:
Pascal
46
  L.Select(v->$'{v.nick} {v.proc:f10}').PrintLines;
Только не отсортированное… ;–(

Давайте отсортируем:
— сначала по никам, чтобы было в лексикографическом порядке
— потом по процентам, чтобы было по условию
Pascal
46
  L.OrderBy(v->v.nick).OrderBy(v->v.proc).Select(v->$'{v.nick} {v.proc:f10}').PrintLines;
Вот готовая программа:
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
type
  TStat = record
    nick: string;
    wins, battles: integer;
    proc: real;
    
    constructor (ss : array of String);
    begin
      nick := ss[0];
      stat(ss);
    end;
    
    function stat(ss : array of String) : TStat;
    begin
      battles += 1;
      if ss[1].ToInteger > ss[2].ToInteger then
        wins += 1;
      Result := Self;
    end;
    
    function pr : TStat;
    begin
      proc := wins / battles * 100;
      Result := Self;
    end;
  end;
 
begin
  var f := OpenRead('input.txt');
  var n := f.ReadLnInteger;
  var L := New List<TStat>;
  loop n do
    begin
      var ss := f.ReadlnString.ToWords;
      var z := L.FindIndex(v->v.nick = ss[0]);
      if z < 0 then
        L.Add( New TStat(ss) )
      else
        L[z] := L[z].stat(ss);
    end;
  f.Close;
  
  for var i := 0 to L.Count-1 do L[i] := L[i].pr;
  
  L.Count.Println;
  L.OrderBy(v->v.nick).OrderBy(v->v.proc).Select(v->$'{v.nick} {v.proc:f10}').PrintLines;
end.
1
1830 / 1025 / 419
Регистрация: 07.04.2017
Сообщений: 3,921
09.10.2019, 10:48 3
Лучший ответ Сообщение было отмечено sadfasfsad как решение

Решение

Цитата Сообщение от JuriiMW Посмотреть сообщение
.OrderBy(v->v.nick).OrderBy(v->v.proc)
Лучше так:
Pascal
1
.OrderBy(v->v.proc).ThenBy(v->v.nick)
Тут выполниться только 1 сортировка, а в вашем случае 2, причём вторая будет всегда долгая.
1
2 / 2 / 0
Регистрация: 05.06.2019
Сообщений: 82
09.10.2019, 15:49  [ТС] 4
Большое спасибо. Про списки я вообще ничего не знал, пойду почитаю. А что за цикл loop? Как его заменить, он был добавлен в версии 3.3, а на олимпиаде используется 3.1
0
1830 / 1025 / 419
Регистрация: 07.04.2017
Сообщений: 3,921
09.10.2019, 16:04 5
Pascal
1
loop n do
При компиляции разворачивается в:
Pascal
1
for var dummy_var_name := 1 to n do
Вместо dummy_var_name какое то случайное имя, которое ещё не было использовано в программе.
1
2 / 2 / 0
Регистрация: 05.06.2019
Сообщений: 82
09.10.2019, 17:28  [ТС] 6
Теперь ему не нравится знак $.
Unexpected symbol '$'
0
140 / 107 / 56
Регистрация: 15.09.2017
Сообщений: 425
09.10.2019, 17:32 7
Это форматная строка. $'{x} {y}' разворачивается в string.Format('{0} {1}', x, y)
1
Alvin Seville
334 / 266 / 132
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
09.10.2019, 18:11 8
Цитата Сообщение от sadfasfsad Посмотреть сообщение
Теперь ему не нравится знак $.
sadfasfsad, попробуйте обновить PascalABC.NET. Почитайте про интерполированные строки в C#.
0
248 / 143 / 66
Регистрация: 29.07.2018
Сообщений: 1,131
09.10.2019, 18:14 9
Цитата Сообщение от Соколиный глаз Посмотреть сообщение
попробуйте обновить PascalABC.NET.
Вот
Цитата Сообщение от sadfasfsad Посмотреть сообщение
был добавлен в версии 3.3, а на олимпиаде используется 3.1
0
140 / 107 / 56
Регистрация: 15.09.2017
Сообщений: 425
09.10.2019, 18:14 10
Цитата Сообщение от Соколиный глаз Посмотреть сообщение
sadfasfsad, попробуйте обновить PascalABC.NET
Человек же написал, что на олимпиаде всё равно стоит паскаль 3.1
0
Alvin Seville
334 / 266 / 132
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
09.10.2019, 18:16 11
Однако, стоит заметить, что вложенные интерполированные строки не поддерживаются в Pascal, в отличие от C#:
C#
1
$"{$"{0}"}".PrintLine();
Пс, в таком случае прошу прощения за невнимательность.
0
248 / 143 / 66
Регистрация: 29.07.2018
Сообщений: 1,131
09.10.2019, 18:18 12
Соколиный глаз,

Не по теме:

На первый раз прощаю

0
Alvin Seville
334 / 266 / 132
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
09.10.2019, 18:19 13
Пс,

Не по теме:

надеюсь, что и на последний.

0
Status 418
Эксперт Python
2182 / 1274 / 394
Регистрация: 26.11.2017
Сообщений: 3,555
Записей в блоге: 1
10.10.2019, 11:26 14
Как то так:
Pascal
1
2
3
4
5
6
7
8
9
10
begin
  Reset(input, 'input.txt');
  ReadArrString(ReadlnInteger)
  .GroupBy(i -> i.Split.First)
  .Select(i -> (i.Key, i.Count(i -> i.ToWords[1].ToReal > i.ToWords[2].ToReal) / i.Count * 100))
  .OrderBy(i -> i[1])
  .ThenBy(i -> i[0])
  .Select(i -> $'{i[0]} {i[1]:f10}')
  .PrintLines
end.
1
2 / 2 / 0
Регистрация: 05.06.2019
Сообщений: 82
13.02.2020, 11:20  [ТС] 15
А как мне вывести еще и количество элементов в массиве?
0
248 / 143 / 66
Регистрация: 29.07.2018
Сообщений: 1,131
13.02.2020, 11:25 16
Pascal
1
2
3
4
5
6
7
8
9
10
11
begin
  Reset(input, 'input.txt');
 var r :=  ReadArrString(ReadlnInteger);
   r.GroupBy(i -> i.Split.First)
  .Select(i -> (i.Key, i.Count(i -> i.ToWords[1].ToReal > i.ToWords[2].ToReal) / i.Count * 100))
  .OrderBy(i -> i[1])
  .ThenBy(i -> i[0])
  .Select(i -> $'{i[0]} {i[1]:f10}')
  .PrintLines;
  r.Lenght.Print;
end.
0
2 / 2 / 0
Регистрация: 05.06.2019
Сообщений: 82
13.02.2020, 11:27  [ТС] 17
Необходимо сначала вывести длину того, что получилось (а не изначальную), а потом что в нем находится
0
248 / 143 / 66
Регистрация: 29.07.2018
Сообщений: 1,131
13.02.2020, 11:29 18
sadfasfsad, А сами не не додумались,строки поменять!?Думайте.
0
2 / 2 / 0
Регистрация: 05.06.2019
Сообщений: 82
26.02.2020, 23:16  [ТС] 19
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
begin
  Reset(input, 'input.txt');
  var r := ReadArrString(ReadlnInteger);
  
  var s := r.GroupBy(i -> i.Split.First)
  .Select(i -> (i.Key, i.Count(i -> i.ToWords[1].ToReal > i.ToWords[2].ToReal) / i.Count * 100))
  .OrderBy(i -> i[1])
  .ThenBy(i -> i[0])
  .Select(i -> $'{i[0]} {i[1]:f10}');
  writeln(s.Count);
  s.PrintLines;
end.
Это решение на 75/100 баллов
0
1830 / 1025 / 419
Регистрация: 07.04.2017
Сообщений: 3,921
27.02.2020, 05:03 20
Так а за что снижение балов? Скорость? Память? Неправильные ответы?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2020, 05:03

В чем разница PascalABC.net и PascalABC
Скажите в чем разница PascalABC.net И PascalABC. Помню когда-то давно программы работающие в...

Установится ли PascalABC.NET на систему, где установлен только .NET 4.6.1?
Привет всем. Вопрос, собственно, озвучен выше. Конкретнее: есть компьютер со свежеустановленной...

График температур. Подправить код из turbo (не знаю где писать в PascalABC или PascalABC.net)
На Pascal ABC не запускается(( uses crt,graph; const n=31; {массив - константа, можно...

Где можно скачать PascalABC а не PascalABC.Net
Где можно скачать PascalABC а не PascalABC.Net?

Олимпиадная задача по программированию
Помогите написать программу для решения следующей задачи (из Всесибирской Открытой Олимпиады...

Олимпиадная задача по программированию: Таджикские имена
Отсортировать N слов по алфавиту. Разделить по группам те которые заканчиваются на &quot;хон&quot;,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru