Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/18: Рейтинг темы: голосов - 18, средняя оценка - 5.00
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
1

Заменить в предложении все вхождения буквосочетания "про" на "нет".

30.03.2011, 14:14. Показов 3285. Ответов 15
Метки нет (Все метки)

Дано предложение. Заменить в нём все вхождения буквосочетания "про" на "нет".
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2011, 14:14
Ответы с готовыми решениями:

Заменить в предложении все вхождения буквосочетания "да" на "нет"
Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "нет".

Заменить в предложении все вхождения буквосочетания "ах" на "ух"
Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".

Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".
Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".

Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "не"
Дано предложение. Заменить в нем все вхождения буквосочетания "да" на "не".

15
58 / 57 / 28
Регистрация: 17.01.2011
Сообщений: 181
30.03.2011, 15:11 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var p,i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s)-3 do
begin
if copy(s,i,3)='про' then
begin
s[i]:='н';
s[i+1]:='е';
s[i+2]:='т';
end;
end;
 
end.
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
04.04.2011, 14:41  [ТС] 3
срочно нужна блок схема по этой программе!!
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
04.04.2011, 16:14 4
length(s)-3
ываывапро
и ничего не заменит.
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
04.04.2011, 19:24  [ТС] 5
капут! а как?
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
04.04.2011, 19:35 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses
 CRT;
Var
 s:string;
 i:integer;
begin
readln(s);
if pos('про',s)=0 then writeln('С троке нет "про"')
else
while pos('про',s)<>0 do
begin
 i:=pos('про',s);
 delete(s,i,3);
 insert('нет',s,i);
end;
write(s);
end.
1
Mobile Software Engineer
Эксперт С++
5364 / 1583 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
04.04.2011, 19:36 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 i: integer;
 st: string;
begin
 readln(st);
  for i:=1 to length(st) do
   if copy(st, i, 3)='про' then
    begin
     st[i]:='н';
     st[i+1]:='е';
     st[i+2]:='т';
    end;
 writeln(st);
end.
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
04.04.2011, 19:49  [ТС] 8
спасибо, а че на счет блок схемы по последней программе?
Ev[G]eN,
0
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
12.04.2011, 15:18  [ТС] 9
sos, нужна блок-схема!!!
0
6 / 6 / 9
Регистрация: 12.04.2011
Сообщений: 34
12.04.2011, 20:48 10
опять блок схема)
Миниатюры
Заменить в предложении все вхождения буквосочетания "про" на "нет".  
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
10.05.2011, 14:42  [ТС] 11
SuPeR XaKer, а твоя программа проходит, не проверял??? а то меня заставили решить эту задачу с помощью insert и delete.

Добавлено через 1 минуту
решите эту задачу с помощью insert и delete.
0
249 / 249 / 135
Регистрация: 09.04.2011
Сообщений: 524
10.05.2011, 14:54 12
У SuPeR XaKer полностью рабочая. Только перед последним end нужно дописать readkey, ато программа выполнится и сразу закроется.
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
10.05.2011, 15:18  [ТС] 13
хорощо, спасибо
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
10.05.2011, 18:13 14
SuPeR XaKer, а твоя программа проходит, не проверял??? а то меня заставили решить эту задачу с помощью insert и delete.
Как насчёт самой проверить?Чё за вопросы....
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 243
11.05.2011, 19:58  [ТС] 15
возможности не было!!! что бывает очень часто

Добавлено через 4 часа 8 минут
SuPeR XaKer, ВСЁ Я ПРОВЕРИЛА!!!!!!!!!
0
843 / 82 / 7
Регистрация: 06.12.2009
Сообщений: 331
12.05.2011, 08:44 16
А такая блок-схема лучше ))
Миниатюры
Заменить в предложении все вхождения буквосочетания "про" на "нет".  
Вложения
Тип файла: doc noName.pas.xls.doc (28.5 Кб, 9 просмотров)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2011, 08:44

Заменить в строке все вхождения буквосочетания "ах" на "ух"
. Дано предложение. Заменить в нем все вхожения буквосочетания &quot;ах&quot; на &quot;ух&quot;.

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

В некотором предложении заменить все буквы "е" черточками, а все "и" точками.
В некотором предложении заменить все буквы &quot;е&quot; черточками, а все &quot;и&quot; точками. Очень буду...

Все вхождения "хол" заменить на "жар"
Задана строка. 1) Все вхождения &quot;хол&quot; заменить на &quot;жар&quot;. 2) удалить все вхождения &quot;но&quot;. 3) после...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru