Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.09.2010, 13:28   #1
LegionuS
Пользователь
 
Регистрация: 28.09.2010
Сообщений: 16
По умолчанию Строковый Тип!!!

Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками.

Дана строка S. Преобразовать строку, заменив в ней каждую точку многоточием (тремя точками).
LegionuS вне форума
Старый 29.09.2010, 13:43   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
i:=0;
while i<=length(s) do begin
 if s[i]='.' then begin insert(s,i,'..'); inc(i,3);end else inc(i);
end;
Правда не проверял.
I'm learning to live...
Stilet вне форума
Старый 29.09.2010, 14:39   #3
LegionuS
Пользователь
 
Регистрация: 28.09.2010
Сообщений: 16
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:
i:=0;
while i<=length(s) do begin
 if s[i]='.' then begin insert(s,i,'..'); inc(i,3);end else inc(i);
end;
Правда не проверял.
А не мог бы полностью написать программу если не сложно!
LegionuS вне форума
Старый 29.09.2010, 15:03   #4
XeruH
Форумчанин
 
Регистрация: 17.09.2010
Сообщений: 229
По умолчанию

А может стоит хоть раз в учебник заглянуть?
Тебе осталось то тут объявить переменные и получить строку от пользователя!
Правильно заданный вопрос - половина ответа!
XeruH вне форума
Старый 29.09.2010, 15:28   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

НУ чтож вот полностью:
Код:
var i:integer;s:string;
begin
i:=0;        s:='Hello .world.';
while i<=length(s) do begin
 if s[i]='.' then begin insert('..',s,i); inc(i,3);end else inc(i);
end;
write(s);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
Я кста в первом примере с insert малость прокосячил...
I'm learning to live...
Stilet вне форума
Старый 29.05.2011, 16:57   #6
Olesya777
Пользователь
 
Регистрация: 29.05.2011
Сообщений: 25
По умолчанию

Помоги пожалуйста решить: Дана строка S. Преобразовать строку, заменив в ней каждую точку многоточием (трем
точками). (Строковый тип)
Olesya777 вне форума
Старый 29.05.2011, 17:00   #7
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
Дана строка S. Преобразовать строку, заменив в ней каждую точку многоточием (трем
точками). (Строковый тип)
как вариант
Код:
var s,s1:string;i:integer;
begin
readln(s);
s1:='';
for i:=1 to length(s) do
begin
if s[i]:='.' then s1:=s1+'..';
s1:=s1+s[i];
end;
s:=s1;
writeln(s);
readln;
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 29.05.2011 в 17:03.
Mad_Cat вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
строковый тип McJordan Паскаль, Turbo Pascal, PascalABC.NET 0 28.09.2010 14:57
Строковый тип McJordan Паскаль, Turbo Pascal, PascalABC.NET 1 26.08.2010 17:22
Строковый тип dusya9992 Паскаль, Turbo Pascal, PascalABC.NET 1 26.08.2010 00:53
Строковый тип DrDre Паскаль, Turbo Pascal, PascalABC.NET 1 26.08.2010 00:32
строковый тип gessi Помощь студентам 3 25.11.2009 09:40