Примеры задач
Одномерные массивы
Дан текст, за которым следует восклицательный знак. Заменить прописные русские буквы, встречающиеся в тексте, строчными. Методика решения
Например:
ЗадаЧа РеШена! Результат: задача решена!Используемые переменные: 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.