Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 4
1

Упростить программу, которая заменяет английские строчные буквы на похожие русские

04.02.2014, 16:33. Показов 445. Ответов 2
Метки нет (Все метки)

Программа заменяет английские строчные буквы на похожие русские.
Все работает, подскажите пожалуйста как возможно упростить.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program t3;
var s:string; j:integer; 
begin
readln(s);
for j:=1 to length(s) do if s[j]='a' then s[j]:='а';
for j:=1 to length(s) do if s[j]='y' then s[j]:='у';
for j:=1 to length(s) do if s[j]='x' then s[j]:='х';
for j:=1 to length(s) do if s[j]='p' then s[j]:='р';
for j:=1 to length(s) do if s[j]='o' then s[j]:='о';
for j:=1 to length(s) do if s[j]='c' then s[j]:='с';
writeln(s);
readln;
end.
0
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2014, 16:33
Ответы с готовыми решениями:

Создать программу на ассемблере, которая заменяет строчные буквы в прописные
Создать программу на ассемблере,которая заменяет строчные буквы в прописные. Строку,символы...

Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные
Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на...

Написать программу, которая в текстовом файле, заменяет все строчные буквы прописными, и наоборот
Помогите с задачей пожалуйста! Написать программу, которая в текстовом файле, заменяет все...

Написать программу, которая заменяет русские буквы на номера в алфавите и наоборот.
Написать программу, которая заменяет русские буквы на номера в алфавите и наоборот.

2
iv-sema-5586
04.02.2014, 16:37 2
записать все if в один for
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
04.02.2014, 16:45 3
Можно так
Pascal
1
2
3
4
5
6
7
8
9
10
const s1='ayxpoc';//английские
      s2='àóõðîñ';//русские
var s:string;
    j:integer;
begin
read(s);
for j:=1 to length(s) do
if pos(s[j],s1)>0 then s[j]:=s2[pos(s[j],s1)];
writeln(s);
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2014, 16:45

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

Написать программу, которая заменяет в тексте созданного файла все заглавные буквы строчными, а строчные – заглавными.
Написать программу, которая заменяет в тексте созданного файла все заглавные буквы строчными, а...

Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные
Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы...

Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные.
Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы...

Составить рекурсивную функцию, которая определяет наибольшую цифру, и заменяет все строчные латинские буквы
Вообщем снова рекурсия на С++, ну не дружу я с ней:(. Вообщем, смысл задачи: дана строка символов,...

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B
Помогите решить эту задачу на питоне, пожалуйста- Замена a-b и наоборот Напишите...

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B
Здравствуйте,помогите пожалуйста написать программу .Напишите программу, которая заменяет в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.