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

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

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2016, 21:59   #1
LanaTsvik
Пользователь
 
Регистрация: 07.06.2016
Сообщений: 18
По умолчанию обработка символов и строк (Лазарус, Паскаль)

Создать программу, в которой из заданной текстовой строки будут выведены все слова, в которых изъято последнюю букву.
Нужно что-то в таком духе:
Код:
var i: integer;
    s, word: string;
begin
    s:=Edit1.Text;
    i:=1;
while (i <=length(s)) do
    begin
 while (s[i]<>' ') and (i <=length(s)) do
     begin
      word:=word+s[i];
      i:=i+1;
     end;
 If (word[length(word)]='') then Label1.Caption:='Word';
 word:='a';
 i:=i+1;
   Label1.Caption:='Slova s izyatoy bukvoy net';
end;
LanaTsvik вне форума Ответить с цитированием
Старый 09.06.2016, 15:55   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Загони ты их в TStringList и оттуда уже бери в цикле без буков.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 16.06.2016, 19:30   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

Что-то недоговариваете.
Нужен минимум образец и строка обрезанная, иначе программе просто неоткуда взять понятие действительно целых слов, что бы найти битые.
Человек_Борща вне форума Ответить с цитированием
Старый 17.06.2016, 08:23   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Человек_Борща, Вы неверно прочитали задание.
дана строка со словами. Нужно вывести слова из строки без последнего символа.
например,
дана строка:
Мама чистила пулемёт

вывести
Мам чистил пулемё
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Три задачи на Delphi (Паскаль): обработка строк, обработка множеств, работа с типизированным файлом Тедеев Помощь студентам 11 13.12.2013 13:38
Обработка символов, строк, текста (C++) Sdw Помощь студентам 1 23.12.2011 03:05
Pascal.Обработка символов и строк. kelly Помощь студентам 1 15.12.2011 11:02
Обработка строк символов Wilda Паскаль, Turbo Pascal, PascalABC.NET 3 12.12.2007 18:54