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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2012, 17:44   #1
Универ
Новичок
Джуниор
 
Регистрация: 26.05.2012
Сообщений: 7
По умолчанию интересно, ряды

Решить задание двумя способами:А)Разглядывая рядок как масив символов
Б)применяя функции и процедуры обработки рядка.

Задача.Заменить пропуски(пробелы) между словами в рядке символом - (дефис).
Универ вне форума Ответить с цитированием
Старый 26.05.2012, 18:46   #2
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Кристина Андреевна, то, что Вы называете рядком, в русском языке принято называть строкой.
s-andriano вне форума Ответить с цитированием
Старый 26.05.2012, 20:44   #3
Универ
Новичок
Джуниор
 
Регистрация: 26.05.2012
Сообщений: 7
По умолчанию

ну ошиблась я,с кем не бывает?
Универ вне форума Ответить с цитированием
Старый 27.05.2012, 14:09   #4
ВДПУ
Пользователь
 
Регистрация: 09.02.2011
Сообщений: 37
По умолчанию

Кристина Андреевна))
ВДПУ вне форума Ответить с цитированием
Старый 27.05.2012, 14:11   #5
Универ
Новичок
Джуниор
 
Регистрация: 26.05.2012
Сообщений: 7
По умолчанию

лучше бы помог,чем смеяться))
Универ вне форума Ответить с цитированием
Старый 27.05.2012, 16:12   #6
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Помочь можно только тому, кто сам что-то пытается сделать.
Пока что никаких результатов Ваших попыток мы не видели.
s-andriano вне форума Ответить с цитированием
Старый 27.05.2012, 16:21   #7
Универ
Новичок
Джуниор
 
Регистрация: 26.05.2012
Сообщений: 7
По умолчанию

если я ничего в этом не понимаю,то здесь моей вины нет...я затем и обратилась,чтоб помогли...
Универ вне форума Ответить с цитированием
Старый 27.05.2012, 16:53   #8
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Если совсем ничего, видимо, оно тебе и не нужно.
s-andriano вне форума Ответить с цитированием
Старый 27.05.2012, 16:54   #9
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Вариант с процедурами (не проверял в паскале, но должен работать):
Код:
procedure replace(var s: string; in1, out1: string);
var
  s1: string;
  i, j: word;
begin
  if pos(in1, s) <> 0 then
  begin
    s1 := '';
    i := 1;
    j := pos(in1, s) - 1;
    repeat
      s1 := s1 + copy(s, i, j - i + 1) + out1;
      i := pos(in1, s);
      delete(s, pos(in1, s), length(in1));
      j := pos(in1, s) - 1;
    until pos(in1, s) = 0;
    s1 := s1 + copy(s, i, length(s) - i + 1);
    s := s1;
  end;
end;
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ряды Foxx Microsoft Office Excel 2 14.02.2012 13:21
Ряды в С++ L_A_R Общие вопросы C/C++ 3 30.12.2010 11:44
ряды alexy Паскаль, Turbo Pascal, PascalABC.NET 3 26.12.2010 17:22
Си,ряды acko Помощь студентам 0 21.11.2010 05:46