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

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

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

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

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

Используемые переменные:
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.

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

Назад