Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
650 / 626 / 9
Регистрация: 14.06.2012
Сообщений: 1,727
1

Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку

31.01.2013, 13:01. Просмотров 2581. Ответов 4
Метки нет (Все метки)


Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку.

Пример:
Строка: The end of the world is a very bad news.
Измененная строка: Th8 8nd 4f the w4rld is a v8ry b6d n6ws.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.01.2013, 13:01
Ответы с готовыми решениями:

Удалить из строки все буквы"а" и"о". символ "*" заменить"-".
дана строка из 40 символов . удалить из неё все буквы"а" и"о". символ "*" заменить"-". решите...

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы "1", "2", "3" словами "один", "два", "три". Оформить в...

В текстовом файле удалить все символы "+" и "-", а так же все буквы "б" перед которыми находится буква "с".
Дан текстовый файл. В нем удалить все символы "+" и "-", а так же все буквы "б" перед которыми...

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

4
5987 / 2111 / 739
Регистрация: 10.12.2010
Сообщений: 5,932
Записей в блоге: 3
31.01.2013, 13:14 2
Лучший ответ Сообщение было отмечено как решение

Решение

Судя по примеру еще и буква "о" должна меняться на 4. Так вот можно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s:string;
 
begin
  readln(s);
  while Pos('a',s)<>0 do s[Pos('a',s)]:='6';
  while Pos('e',s)<>0 do s[Pos('e',s)]:='8';
  while Pos('o',s)<>0 do s[Pos('o',s)]:='4';
  writeln(s);
  readln;
end.
3
650 / 626 / 9
Регистрация: 14.06.2012
Сообщений: 1,727
01.02.2013, 21:02  [ТС] 3
Ваша зависает.

Я вот так написал , но при вводе букв символы почему-то не меняются..
0
Миниатюры
Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку  
5987 / 2111 / 739
Регистрация: 10.12.2010
Сообщений: 5,932
Записей в блоге: 3
01.02.2013, 21:42 4
Цитата Сообщение от COK Посмотреть сообщение
Ваша зависает.
Моя не зависает.
Цитата Сообщение от COK Посмотреть сообщение
Я вот так написал , но при вводе букв символы почему-то не меняются..
И не удивительно. Вы сделали цикл с пустым телом.
1
Миниатюры
Ввести строку. Заменить все буквы "е" и "а" в тексте на "8" , "4" и "6". Вывести на экран модифицированную строку  
650 / 626 / 9
Регистрация: 14.06.2012
Сообщений: 1,727
02.02.2013, 12:47  [ТС] 5
Цитата Сообщение от HighPredator Посмотреть сообщение
Моя не зависает.
Вот теперь работает , thx.
Thread clossed.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2013, 12:47

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

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу &quot;программное обеспечение&quot; из слов &quot;программист&quot;, &quot;оборот&quot;, &quot;анчоус&quot;,...

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу &quot;письменный стол&quot; из слов &quot;тесненный&quot;, &quot;полка&quot;, &quot;речь&quot;, &quot;миф&quot;. 2) Вывести...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу &quot;текстовый редактор&quot; из слов &quot;тесто&quot;, &quot;редакция&quot;, &quot;мотор&quot;, &quot;который&quot;.

Проверить слово "Дом" и содержит ли оно буквы: "а" , "б" ,"о","д"
программа должна проверить слово &quot;Дом&quot; и содержит ли оно буквы: &quot;а&quot; , &quot;б&quot;...


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

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

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