|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
27.05.2011, 19:33 | #1 (permalink) |
Новичок
Регистрация: 27.05.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ребят, помогите, пожалуйста, с Pascal
Задача: Написать функцию, заменяющую каждые 4 пробела на *. (Если в строке между словами 10 пробелов, то должно быть 2 звездочки и 2 пробела) Заранее огромное спасибо!!!=* |
27.05.2011, 19:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего тут вы найдете много полезной информации Ребят, помогите, пожалуйста, дорешать Помогите, пожалуйста, решить три задачи по Pascal Помогите пожалуйста со строками в Pascal Помогите, пожалуйста, написать программу на Object Pascal Помогите решить, пожалуйста. Pascal Помогите пожалуйста в решении задач в Pascal |
27.05.2011, 21:35 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
© "Элементарно, Ватсон!":
Код:
Const Sp:String='*'; Spp:String=' '; VAR S:String; i,i1:Byte; BEGIN WriteLn('Enter the string:'); ReadLn(S); i:=0; Repeat Inc(i); i1:=Pos(Spp,S); If i1>0 then begin Delete(S,i1,4); Insert(Sp,S,i1); end; Until i1=0; WriteLn(S); ReadLn; END. |
27.05.2011, 21:39 | #3 (permalink) |
Новичок
Регистрация: 27.05.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо!
Огромное спасибо, Владимир!!!
С меня шоколадка! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|