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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2017, 21:33   #1
dmitryio
Новичок
Джуниор
 
Регистрация: 04.12.2017
Сообщений: 1
По умолчанию программа со строками.

Ввести строку, состоящую из слов,разделенных пробелами. Удалить из каждого слова повторяющиеся буквы, заново вывести на экран.
dmitryio вне форума Ответить с цитированием
Старый 05.12.2017, 02:09   #2
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Слушаюсь!
Куда прикажете доставить решение?
kropotkina-alice вне форума Ответить с цитированием
Старый 05.12.2017, 07:47   #3
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от kropotkina-alice Посмотреть сообщение
Слушаюсь!
Куда прикажете доставить решение?
Да сразу преподавателю давай
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 10.12.2017, 09:35   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var s:string;
    i,j,pr{probel}:integer;
begin
   Write('s = '); Readln(s);
   pr:=1;
   i:=1;
   While i<=Length(s) do
   begin
      If i=pr then
         For j:=i+1 to Length(s) do
         begin
            If s[j]=' ' then
            begin
               pr:=j;
               Break;
            end;
            If j=Length(s) then
               pr:=j+1;
         end;
      For j:=pr-1 downto i+1 do
         If s[i]=s[j] then
            Delete(s,j,1);
      i:=i+1;
   end;
   Writeln(s);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа со строками Vania19961712 Помощь студентам 7 07.03.2014 16:17
Программа со строками (C++) Ligeros905 Помощь студентам 6 18.12.2013 14:26
Программа со строками Seferus Паскаль, Turbo Pascal, PascalABC.NET 1 29.06.2012 01:12
программа со строками.!!!! radeon37 Паскаль, Turbo Pascal, PascalABC.NET 0 20.05.2010 17:58
программа со строками в Си champion92 Общие вопросы C/C++ 2 02.12.2009 16:52