polisorb2

02.06.2023 19:22

Информатика

Есть ответ 👍

Какое из выражений имеет наибольшее значение? 1) 12810+6410+810+410 2) 3138 3) е516 4) 111001112

293

409

Посмотреть ответы 2

Ответы на вопрос:

Tryys

Информатика

4,4(27 оценок)

Правильный скорей всего или 4 или 3 в зависимости от значения e

5656653256586865656

Информатика

4,7(41 оценок)

PascalABC.NET 3.5.1

program D_contest;

type

TStat = record

nick: string;

wins, battles: integer;

proc: real;

end;

var

N, i, num: integer;

str: array of 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;

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(str, n);

SetLength(stat, 1);

for i := 0 to n - 1 do

begin

readln(F, str[i]);

//get enemy_nick

nick := Copy(str[i], 1, Pos(' ', str[i]) - 1);

Delete(str[i], 1, Pos(' ', str[i]));

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;

stat[num].battles += 1;

//get Vania_points

v_pts := StrToInt(Copy(str[i], 1, Pos(' ', str[i])));

Delete(str[i], 1, Pos(' ', str[i]));

//get enemy_points

e_pts := StrToInt(str[i]);

if v_pts > e_pts Then

stat[num].wins += 1;

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

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;

//сортировка по алфавиту

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) 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;

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.

Объяснение:

Смотри код

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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