Тип Д19 C4 № 3112 
Обработка символьных строк. Последовательности букв и чисел
i
На вход программе подаётся текст заклинания, состоящего не более чем из 200 символов, заканчивающийся точкой (символ «точка» во входных данных единственный). Оно было зашифровано Гарри Поттером следующим образом. Сначала Гарри определил количество букв в самом длинном слове, обозначив полученное число К (словом называется непрерывная последовательность английских букв, слова друг от друга отделяются любыми другими символами, длина слова не превышает 20 символов). Затем он заменил каждую английскую букву в заклинании на букву, стоящую в алфавите на К букв ранее (алфавит считается циклическим, то есть перед буквой А стоит буква Z), оставив другие символы неизменными. Строчные буквы при этом остались строчными, а прописные — прописными. Требуется написать как можно более эффективную программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет выводить на экран текст расшифрованного заклинания. Например, если зашифрованный текст был таким:
Zb Ra Ca,Dab Rа.
то результат расшифровки должен быть следующим:
Се Ud Fd,Gde Ud.
Решение. Код:
var f:boolean;
i, k, max: integer;
с,cnew:char;
s:string;
begin
s:=''; {длина строки – текста заклинания}
{Находим К – количество букв в самом длинном слове}
max:=0; k:=0;
f:=false; {текущий символ не буква}
repeat
read(c); //считываем по символу
s:=s+c; //прибавляем к строке
if f then {слово началось}
if с in ['a'..'z','A'..'Z']
then k:=k+1
else begin {текущий символ не буква – слово кончилось}
if k>max then max:=k;
f:=false
end
else {f=false}
if с in ['a'..'z','A'..'Z']
then
begin
f:=true;
k:=l
end {начало нового слова}
until c='.';//считываем до точки
{Расшифровка заклинания}
for i:=l to length(s) do
begin
cnew:=chr(ord(s[i])+max); {Находим символ, код которого =s[i]+max}
case s[i] of
'a'..'z': if cnew>'z' then write (chr (ord (cnew)-26))//если новый символ уже не буква,то из него вычтем 26(колво букв в алфавите) и получим нужный символ.т к алфавит у нас циклический
else write(cnew); //иначе выводим
'A'..'Z': if cnew>'Z' then write (chr (ord (cnew)-26))
else write(cnew);
else write(s([i])//если не буква-выводим как есть
end;
end;
readln
end.
Спрятать критерииКритерии проверки:| Критерии оценивания выполнения задания | Баллы |
|---|
| Программа работает для любых входных данных. Допускается наличие в тексте программы одной синтаксической ошибки: пропущен или неверно указан знак пунктуации, неверно написано или пропущено зарезервированное слово языка программирования, не описана или неверно описана переменная, применяется операция, недопустимая для соответствующего типа данных (если одна и та же ошибка встречается несколько раз, то это считается за одну ошибку). | 4 |
| Программа работает верно, но входные данные запоминаются в массиве, размер которого соответствует числу N. Этот массив, возможно, потом сортируется. Возможно, в принципиально верно организованном вводе данных есть одна ошибка (например, использование read вместо readln в Паскале или неверное считывание строки в C++). Три балла также выставляется, если в эффективной программе, удовлетворяющей критериям выставления 4 баллов, есть одна ошибка, в результате которой программа работает неверно на некоторых наборах нетипичных входных данных. | 3 |
| Программа работает в целом верно, эффективно или нет, но в реализации алгоритма содержится до двух ошибок (неверная инициализация счётчиков, допущена ошибка в принципиально верно организованной сортировке или алгоритме поиска минимальных элементов, используется знак “<” вместо “<=”, “or” вместо “and” и тому подобное). Возможно, некорректно организовано считывание входных данных. Допускается наличие от одной до пяти синтаксических ошибок, описанных выше | 2 |
| Программа, возможно, неверно работает при некоторых входных данных, но по приведённому тексту решения ясно, что экзаменуемый понимает, из каких этапов должно состоять решение задачи. При использовании сортировки она может быть реализована принципиально неверно (например, вместо двух циклов используется один), или допущена принципиальная ошибка в поиске нужных элементов. Всего допускается до 4 различных ошибок в реализации алгоритма, в том числе описанных в критериях присвоения двух баллов. Допускается наличие от одной до семи синтаксических ошибок, описанных выше. | 1 |
| Задание не выполнено или выполнено неверно. | 0 |
| Максимальный балл | 4 |
