Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 10.04.2019, 12:24   #1
Enotik_1998
Форумчанин
 
Регистрация: 09.03.2018
Сообщений: 54
Репутация: 10
По умолчанию Работа со строками в 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, 13:20   #2
evg_m
Профессионал
 
Регистрация: 20.04.2008
Сообщений: 4,897
Репутация: 2195
По умолчанию

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со строками (Pascal) Gonzo_Reality Помощь студентам 2 16.12.2015 20:11
Pascal, работа со строками Magenta Помощь студентам 20 26.03.2015 23: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


09:26.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru