Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
richychan
0 / 0 / 0
Регистрация: 18.01.2019
Сообщений: 2
1

Программа, заменяющая слово "yes" на "no" в предложении

18.01.2019, 13:15. Просмотров 769. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
Var s: string; 
i: integer; 
begin 
readln(s);
i := Pos('yes', s); 
if i> 0 then 
begin 
Delete(s, i, 3); 
Insert('no', s, i); 
end; 
end.
Скажите вы, что всё подходит, однако надо, чтобы программа заменяла не одно слово, а несколько. То есть, например, будет строка "yes no yes no". В этой строке должны замениться оба слова "yes" и строка будет выведена как "no no no no"
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2019, 13:15
Ответы с готовыми решениями:

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ"
Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ".

Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет"
1.Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе...

Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка"
4 .Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка".

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

Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока"
2.Из слов "вирус" получить слово "фокус"!!! 3.Из слова "яблока" путем вырезок и склеек получить...

2
Puporev
Модератор
56066 / 42949 / 29709
Регистрация: 18.05.2008
Сообщений: 101,898
18.01.2019, 15:09 2
Лучший ответ Сообщение было отмечено richychan как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var s: string;
    i: integer;
begin
readln(s);
repeat//создадим цикл
i := Pos('yes', s);
if i> 0 then
 begin
  Delete(s, i, 3);
  Insert('no', s, i);
 end;
until i=0;
write(s)
end.
1
richychan
0 / 0 / 0
Регистрация: 18.01.2019
Сообщений: 2
18.01.2019, 17:14  [ТС] 3
Благодарю :3
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2019, 17:14

Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
Составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА".( с...

Из слов "биология" , "Зоопарк" - составить слово "Зоология"
Заранее спасибо за помощь

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


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

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

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