Использование структуры запись при решении заданий С4 на ЕГЭ

Условие задачи типа С4 с использованием записей.

На вход в программе подаются сведения о студентах с 1-го по 5-й курс некоторого вуза. В первой строке сообщается количество студентов N, которое больше 20, но меньше или равно 100, каждая из следующих N строк имеет следующий формат: , где - строка, состоящая не более чем из 20 символов, - строка, состоящая не более чем из 15 символов, - целое число от 1 до 5, - вещественное число. и , а также и и разделены одним пробелом. Входные данные не упорядочены никаким способом.

Пример входных строк:

25

Федорова Ирина 5 4500

Иванов Сергей 3 2050

Требуется написать программу, которая будет выводить на экран фамилии и имена студентов, имеющих максимальную стипендию на своём курсе в порядке с первого курса по пятый. Если есть студенты с одинаковыми стипендиями, то следует вывести их фамилии и имена. Алфавитный порядок при выводе фамилий можно не соблюдать. Считать, что на всех курсах есть студенты, получающие стипендию.

Пример выходных строк:

Курс 1

Петров Иван

Катаев Сергей

Курс 2

Смирнов Максим

max_kurs[p[i].kurs] then max_kurs[p[i].kurs]:=p[i].stip; readln; end; {цикла} {вывод студентов с мах стипендией на курсе} writeln('максимальная стипендия студентов’);writeln; for k:=1 to 5 do begin writeln('курс',k); for i:=1 to n do with p[i] do begin if ((kurs=k)and (stip=max_kurs[k])) then writeln(name); end; writeln; end; readln; end. " width="640"

var p:array[1..100] of record

name: string;

kurs:integer;

stip: real;

end;

c:char;

i,k,n,m:integer;

max_kurs:array[1..5] of real;

begin

readln(n);

for i:=1 to n do

max_kurs[i]:=0;{обнулено мах значение стипендии по всем 5 курсам}

for i:=1 to n do

begin

p[i].name:='';

repeat

read(c);

p[i].name:=p[i].name+c

until c=' ';{считана фамилия}

repeat

read(c);

p[i].name:=p[i].name+c

until c=' ';{считано имя}

read(m);{считан курс}

p[i].kurs:=m;

read(p[i].stip);{считана стипендия}

if p[i].stipmax_kurs[p[i].kurs] then max_kurs[p[i].kurs]:=p[i].stip;

readln;

end; {цикла}

{вывод студентов с мах стипендией на курсе}

writeln('максимальная стипендия студентов’);writeln;

for k:=1 to 5 do begin

writeln('курс',k);

for i:=1 to n do

with p[i] do

begin

if ((kurs=k)and (stip=max_kurs[k])) then writeln(name);

end;

writeln;

end;

readln;

end.

Задача С4 из демонстрационного варианта 2012 года

(с использованием записей)

В командных олимпиадах по программированию для решения предлагается

не больше 11 задач. Команда может решать предложенные задачи в любом

порядке. Подготовленные решения команда посылает в единую

проверяющую систему соревнований. Вам предлагается написать

эффективную, в том числе по используемой памяти, программу, которая

будет статистически обрабатывать пришедшие запросы, чтобы определить

наиболее популярные задачи. Следует учитывать, что количество запросов в

списке может быть очень велико, так как многие соревнования проходят с

использованием Интернет.

Перед текстом программы кратко опишите используемый вами алгоритм

решения задачи.

На вход программе в первой строке подаётся количество пришедших

запросов N. В каждой из последующих N строк записано название задачи

в виде текстовой строки. Длина строки не превосходит 100 символов,

название может содержать буквы, цифры, пробелы и знаки препинания.

Пример входных данных:

6

А+B

Крестики-Нолики

Прямоугольник

Простой делитель

А+В

Простой делитель

Программа должна вывести список из трёх наиболее популярных задач

с указанием количества запросов по ним. Если в запросах упоминаются

менее трех задач, то выведите информацию об имеющихся задачах. Если

несколько задач имеют ту же частоту встречаемости, что и третья по частоте

встречаемости задача, их тоже нужно вывести.

Пример выходных данных для приведённого выше примера входных данных:

А+В 2

Простой делитель 2

Крестики-Нолики 1

Прямоугольник 1

1 then {proveriaem kolichestvo razlichnix zadach } begin {ecli da to snowa vivodim maxsimalnii} for i:=1 to num do if max writeln('',a[maxi].s1,' ',a[maxi].d); a[maxi].d:=0; max:=0; end; if num2 then {proveriaem kolichestvo razlichnix zadach } begin {ecli da to snowa vivodim maxsimalnii} for i:=1 to num do if max for i:=1 to num do {ecli takix znach mnogo to vivodim vse} if max=a[i].d then writeln('',a[i].s1,' ',a[i].d); end; readln; end. " width="640"

program C4;

type avto= record

d:integer;{d-kolichestvo poiavlenii zadach s1}

s1:string;{nazvanie zadachi}

end;

var

s:string;

a : array [1..11] of avto; {massiv sodergahii zapisi}

n,i,j,num,max,maxi:integer;

begin

num:=0;{num - kolichestvo razlichnix zadach}

readln(n);{n - kolichestvo vsex nazvanii zadach}

for i:=1 to n do

begin

readln(s);{vvodim nazvanie zadachi}

j:=1;

while (ja[j].s1) do j:=j+1;{proveriaem bila li do etigo dannoe nazvanie zadachi}

if j

a[j].d:=a[j].d+1{pribavliaem odin k schetchiky poiavlenii}

else begin {inache}

a[j].s1:=s;{zanosim nazvanie v massiv}

a[j].d:=1;

num:=num+1;

end;

end;

for i:=1 to num do {ihem maximalnii}

if max

writeln('',a[maxi].s1,' ',a[maxi].d); {vivodim ego}

a[maxi].d:=0;{ochishaem scetchik poiavlenii}

max:=0;

if num1 then {proveriaem kolichestvo razlichnix zadach }

begin {ecli da to snowa vivodim maxsimalnii}

for i:=1 to num do

if max

writeln('',a[maxi].s1,' ',a[maxi].d);

a[maxi].d:=0;

max:=0;

end;

if num2 then {proveriaem kolichestvo razlichnix zadach }

begin {ecli da to snowa vivodim maxsimalnii}

for i:=1 to num do

if max

for i:=1 to num do {ecli takix znach mnogo to vivodim vse}

if max=a[i].d then

writeln('',a[i].s1,' ',a[i].d);

end;

readln;

end.