Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Scrilkor
0 / 0 / 1
Регистрация: 21.06.2015
Сообщений: 11
#1

Создать переводчик для Зазеркалье: слово, введенное пользователем, переводится на Зеркальный язык - Pascal

01.10.2015, 00:36. Просмотров 269. Ответов 2
Метки нет (Все метки)

создать переводчик для Зазеркалье: слово, введенное пользователем, переводится на Зеркальный язык. Выполнить задание двумя способами: 1) рассматривая строку как массив символов 2) применяя функции и процедуры обработки строк
http://www.cyberforum.ru/pascalabc-net/thread1442811.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.10.2015, 00:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать переводчик для Зазеркалье: слово, введенное пользователем, переводится на Зеркальный язык (Pascal):

Считать введенное пользователем слово
Помогите: Запрашивать у пользователя строки до тех пор, пока он не введет...

В строке заменить пробелами слово, введенное пользователем
Пожалуйста помогите!!! Дан текст. Заменить пробелами слово, введѐнное...

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

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

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

2
vovachuk
13 / 13 / 18
Регистрация: 08.01.2015
Сообщений: 53
01.10.2015, 01:14 #2
1)
Pascal
1
2
3
4
5
6
7
8
var a,b:string; i:integer;
begin
writeln('введите строку');
readln(a);
for i:=length(a) downto 1 do
b:=b+a[i];
writeln('ответ - ',b);
end.
2)
Pascal
1
2
3
4
5
6
7
8
var a,b:string; i:integer;
begin
writeln('введите строку');
readln(a);
for i:=length(a) downto 1 do 
b:=b+copy(a,i,1);
writeln('ответ - ',b);
end.
Надеюсь, я правильно понял...
1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
01.10.2015, 08:17 #3
Лучший ответ Сообщение было отмечено Scrilkor как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:string;
    c:char;
    n,i:byte;
begin
writeln('введите строку');
readln(a);
n:=length(a);
for i:=1 to n div 2 do
 begin
  c:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=c;
 end;
writeln('ответ - ',a);
end.
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a:string;
    n,i:byte;
begin
writeln('введите строку');
readln(a);
n:=length(a);
for i:=n downto 1  do
a:=a+a[i];
delete(a,1,n);
writeln('ответ - ',a);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.10.2015, 08:17
Привет! Вот еще темы с решениями:

Как вывести строку из таблицы БД, если в этой строке есть введенное пользователем слово?
Всем привет. Такой вопрос: как вывести строку из таблицы БД, если в этой строке...

Из введенной пользователем строки выбрать слово с заданным пользователем номером и вывести это слово на экран
Здравствуйте. Если можете, помогите, пожалуйста, написать программу, которая...

На сайте русский язык переводится в знаки вопроса
Доброго времени суток! Есть небольшая программулина, которая отправляет на...

Как переводится слово clause?
Подскажите как переводится слово clause, никак не могу найти его перевод. ...


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

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

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