Как решить эту задачку по информатике?В этом году 3-ий раз одна
Как решить эту задачку по информатике?
В этом году 3-ий раз одна известная компания проводит соревнование по программированию искусственного интеллекта для игровых стратегий. В этот раз участникам предложили написать искусственный интеллект для управления командой хоккеистов. После проведения еще одного тура, Вася решил, что для последующего улучшения собственной стратегии нужно просмотреть все бои с теми конкурентами, которые сравнимы с ним по проценту побед. Задана таблица результатов боев в прошедшем раунде. В каждой строке записаны ник соперника Васи и итоговый счет. 1-ое число указывает, сколько шайб забила стратегия Васи, 2-ая сколько шайб забила стратегия конкурента. Нужно подсчитать процент побед каждого соучастника и вывести итог, отсортировав его в порядке неубывания процентов. Если процент побед оказался одинаковым, то необходимо упорядочить записи по никам лексикографически.
Формат ввода
В первой строке входного файла записано целое число N (1 N 105) количество записей в таблице. В каждой из следующих N строк через пробел записаны ник конкурента, сколько забила Васина команда и сколько забил конкурент. Гарантируется, что каждый ник непустая строчка, длина которой не превосходит 10 символов и состоящая из строчных букв латинского алфавита. Так же знаменито, что никто из соучастников не забивал больше 1000 голов.
Формат вывода
В первой строке выходного файла выведите количество конкурентов. В следующих строчках выведите ник конкурента и процент побед Васиной команды с точностью не ужаснее 6 символов после запятой.
Не так уж и тяжело, если помыслить...
program Project2;
var
n,a,b,c,i,k,max,min: longint;
inp,outp: text;
begin
assign(inp,'input.txt');
reset(inp);
assign(outp,'output.txt');
rewrite(outp);
readln(inp,n);
max:=0;
min:=0;
c:=0;
for i:=1 to n do
begin
read(f1,a);
if i=1 then
b:=a;
if agt;max then
max:=a;
k:=a-c;
c:=a;
if klt;0 then
begin
k:=абс(k);
min:=min+k;
if kgt;min then
min:=k;
end;
end;
max:=max-b;
write(outp,max,' ',min);
close(inp);
close(outp);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.