Надо доделать задачу. Заданная строка символов. Превратить все русские буквы на латинские и наоборот соответственно их местонахождение на клавиатуре - Turbo Pascal
Формулировка задачи:
Заданная строка символов. Превратить все русские буквы на латинские и наоборот соответственно их местонахождение на клавиатуре.
Решение задачи: «Надо доделать задачу. Заданная строка символов. Превратить все русские буквы на латинские и наоборот соответственно их местонахождение на клавиатуре»
textual
Листинг программы
uses crt; const rus: array [1..52] of char=('й','ц','у','к','е','н','г','ш','щ','з','ф','ы','в','а','п','р','о','л','д','я','ч','с','м','и','т','ь', 'Й','Ц','У','К','Е','Н','Г','Ш','Щ','З','Ф','Ы','В','А','П','Р','О','Л','Д','Я','Ч','С','М','И','Т','Ь'); eng: array [1..52] of char=('q','w','e','r','t','y','u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m', 'Q','W','E','R','T','Y','U','I','O','P','A','S','D','F','G','H','J','K','L','Z','X','C','V','B','N','M'); var s: string; i,k,n: integer; begin writeln('Введите текст:'); read(s); writeln('1) русские-латинские'); writeln('2) латинские-русские'); write('==> '); repeat read(n); until n in[1..2]; case n of 1: for i:=1 to length(s) do begin if s[i] in ['А'..'Я','а'..'я'] then begin for k:=1 to 52 do begin if s[i]=rus[k] then s[i]:=eng[k]; end; end; end; 2: for i:=1 to length(s) do begin if s[i] in ['A'..'Z','a'..'z'] then begin for k:=1 to 52 do begin if s[i]=eng[k] then s[i]:=rus[k]; end; end; end; end; write(s); end.
Объяснение кода листинга программы
- В первой части кода пользователю предлагается ввести текст.
- Затем выводится меню с двумя вариантами: преобразование русских в латинские и наоборот.
- Далее происходит чтение первого числа от пользователя (которое является выбором действия).
- В зависимости от выбора пользователя выполняется одно из двух действий, описанных в блоке case.
- В первом случае (если выбран первый вариант) происходит преобразование всех русских букв в латинские. Для этого используется цикл for, который проходит по всем символам строки. Если текущий символ является русской буквой, то он заменяется на соответствующую латинскую букву.
- Во втором случае (если выбран второй вариант) происходит преобразование всех латинских букв в русские. Для этого также используется цикл for, который проходит по всем символам строки. Если текущий символ является латинской буквой, то он заменяется на соответствующую русскую букву.
- После выполнения всех действий выводится преобразованная строка.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д