Примеры задач

Одномерные массивы


Дан текст, за которым следует восклицательный знак. Заменить прописные русские буквы, встречающиеся в тексте, строчными.

Методика решения

Например:
ЗадаЧа РеШена! Результат: задача решена!

Используемые переменные:
c,p - констант массивы,
a - массив символов,
i - индекс элементов массива,
k - индекс элементов констант массивов.

Для начала считываем с экрана текст посимвольно, пока считанный символ не равен «!», и заносим символы текста в массив a .
В разделе констант описываем два массива ( c и p ). Первый массив – из строчных букв русского алфавита, второй – из прописных.
Затем перебираем в цикле все элементы массива a до восклицательного знака. Сравниваем каждый из этих символов с элементами массива P . Если символ есть в массиве P (то есть, является прописной буквой), то заменяем его соответствующим символом из массива С (то есть, заменяем прописную букву строчной).
Выводим получившийся массив a на экран.

Листинг программы

Program ex2_5;
Uses crt;
Const
c:array[1..33]of char=('а','б','в','г','д','е','ё','ж','з','и','й','к',
'л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','ъ','э','ю','я');
p:array[1..33]of char=('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О',
'П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ь','Ы','Ъ','Э','Ю','Я');
Type text=Array[1..20] Of Char;
Var a:text; i,k:byte; s:char;
Begin clrscr;
i:=1;
repeat
read(s); a[i]:=s; inc(i);
until s='!';
i:=1;
while a[i]<>'!' do
begin
For k:=1 To 32 Do
If a[i]=p[k] Then
a[i]:=c[k];
inc(i);
end;
writeln;
i:=1;
repeat
write(a[i]);
inc(i);
until a[i]='!';
ReadKey;
End.

Запустить программу






Назад