| Малой | Дата: Пятница, 01.03.2013, 05:00 | Сообщение # 1 |
Группа: Пользователи
Сообщений: 4
|
Продолжаем работу над копилкой по информатике для подготовки к ЕГЭ - 2013, которая будет обновляться, при нахождении новых, полезных ресурсов, шпаргалок, таблиц и проч.
(если кто-то может посоветовать методику подготовки, различную литературу, шпаргалки, таблицы, схемы, приглашаем принять участие)
|
|
| |
| TRolfei$ | Дата: Пятница, 01.03.2013, 05:03 | Сообщение # 2 |
Группа: Пользователи
Сообщений: 4
|
Задание C4. Вампоступило рекламное объявление коммерческой фирмы. Название фирмы было
указано в виде аббревиатуры (первых букв слов, из которых состоит название
фирмы). Аббревиатура оказалась Вам незнакома. Поиск в Интернете дал большой
список фирм, но различных названий с подходящей аббревиатурой было не больше
10. Вампредлагается написать эффективную, в том числе по используемой памяти,
программу (укажите используемую версию языка программирования, например Borland
Pascal 7.0), которая определит трёх наиболее вероятных рекламодателей
среди фирм, названия которых можно сократить до нужной аббревиатуры. На входпрограмме в первой строке подаётся аббревиатура – строка из заглавных латинских
букв, состоящая не менее чем из двух и не больше чем из пяти букв. Во второй
строке находится число N – количество названий, полученных в результате поиска,
не все из них точно подходят под указанную аббревиатуру. Значение N может быть
очень велико. В каждой из следующих N строк записано название фирмы, состоящее
из нескольких (двух и более) слов. Слова в названии разделяются одним пробелом.
В конце и в начале строки пробелов нет. Все названия записаны заглавными
латинскими буквами. Длина названия фирмы не превышает 100 символов.
Гарантируется, что хотя бы одна фирма с нужной аббревиатурой есть.Примервходных данных:MS5MOUNTINGSYSTEMMACRO SOFT COMPANYMONTANA JEANSMOUNTING SYSTEMMACRO SOFT Программадолжна вывести список из трёх фирм с нужной аббревиатурой, которые упоминаются
чаще всего. Если искомых фирм менее трёх, то выведите информацию об имеющихся.
Если несколько фирм имеют ту же частоту встречаемости, что и третья по частоте
встречаемости, то выведите
и их.Примервыходных данных для приведенного выше примера входных данных:MOUNTINGSYSTEMMACRO SOFT
Добавлено (01.03.2013, 05:03)
---------------------------------------------
Пример правильной и эффективнойпрограммы на языке Паскаль:var n, Num,Num3, i, j, t: integer; Count: array[1..10] of integer; a, b,c, s: string; Names: array[1..10] of string;begin readln(a); {Считываем аббревиатуру} Num:=0; {Число различных фирм} ReadLn(N); {Считываемколичество фирм} for i:=1 to N do begin ReadLn(s); {считали название фирмы} b:=s[1]; c:=s; while (pos(' ',c)>0) and (length(b)<= length(a)) do {составляем аббревиатуру изназвания} begin b:=b+c[pos(' ',c)+1]; delete(c,pos('',c),1) end; if a = b then begin {Осуществляем поиск названия всписке уже встретившихся} j:=1; while (j<=Num) and (s<>Names) do j:=j+1; {Если фирма найдена} ifj<=Num then {Увеличиваем счетчик числа повторений} Count:=Count+1 elsebegin {Иначе добавляем фирму в конец списка} Names:=s; Count:=1; Num:=Num+1 end end end;{Сортируем массивы Names и Count впорядке убывания значений массива Count} for i:=Num downto 2 do forj:=2 to i do if Count[j-1]>= Count[Num3] then writeln(Names );end.
|
|
| |
