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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2019, 11:24   #1
Enotik_1998
Пользователь
 
Регистрация: 09.03.2018
Сообщений: 77
По умолчанию Работа со строками в pascal abc

Здравствуйте. Нужна помощь с задачей: Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.
У меня вводится буква и затем удаляются слова, которые начинаются с неё. Как сделать, чтобы слова удалялись без ввода буквы? Это требование преподавателя.
И у меня, если последнее слово начинается на одну и ту же букву, как и остальные, оно удаляется, но остаётся последняя буква этого слова. Как это исправить?
Вот исходный код:
Код:
Program p1;
var
i:integer;
st:string;
s:char;
Begin
writeln('Введите строку st:');
readln(st);
write('Введите букву: ');
readln(s);
st:=' '+st;
repeat
i:=pos(' '+s,st);
inc(i);
if i<>1 then
repeat
delete(st,i,1);
until (st[i]=' ')or(i=length(st));
until  i=1;
writeln('st=',st);
End.
Enotik_1998 вне форума Ответить с цитированием
Старый 10.04.2019, 12:20   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
но остаётся последняя буква этого слова.
Цитата:
until // закончить если
(st[i]=' ') // это НЕ слово
or // или
(i=length(st)); // это последняя буква текста
Цитата:
Как это исправить?
исправить условие на текст кончился (за пределами строки)

Цитата:
Как сделать, чтобы слова удалялись без ввода буквы?
а как узнать какие слова удалять (слова с какой буквы) ?
программа — запись алгоритма на языке понятном транслятору
evg_m на форуме Ответить с цитированием
Старый 10.04.2019, 13:20   #3
Enotik_1998
Пользователь
 
Регистрация: 09.03.2018
Сообщений: 77
По умолчанию

спасибо
Enotik_1998 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со строками (Pascal) Gonzo_Reality Помощь студентам 2 16.12.2015 19:11
Pascal, работа со строками Magenta Помощь студентам 20 26.03.2015 22:53
Работа со строками Pascal ksenija15reg Помощь студентам 3 28.11.2013 23:25
(pascal) работа со строками aleksander1993 Помощь студентам 0 12.03.2012 11:32
работа со строками (Pascal) Вероника_94 Помощь студентам 2 25.01.2012 23:39