Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Nicole
0 / 0 / 0
Регистрация: 06.01.2011
Сообщений: 11
1

Удаление слов из строки.

06.01.2011, 23:32. Просмотров 470. Ответов 2
Метки нет (Все метки)

Прошу помочь. Надо дополнить мою прогу (показывает кол-во букв в словах) операциями по удалению слов, больших по длине чем заданный параметр (в моем случае это значение d).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const
M=[' ',',','.',';',':','-','=','+'];
var d:integer;
s,s1:string;
begin
write('Введите максимальную длину слова: ');
readln(d);
writeln('Введите строку:');
readln(s);
 begin
 while pos(' ',s)<>0 do begin
 
    if pos(' ',s)>1 then begin
 
       s1:=copy(s,1,pos(' ',s)-1);
 
       writeln('В слове ',s1,' - ',length(s1),' символ(ов)');
  end;
   delete(s,1,pos(' ',s));
end;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2011, 23:32
Ответы с готовыми решениями:

Удаление слов из строки, выход за пределы массива
Нужно удалить все лова из чисел, примитивным способом не выделяя дополнительной...

Удаление из текста слов
Очень нужна помощь... Вводится произвольный текст до точки, слова разделяются...

Поиск и удаление слов в тексте
Здравствуйте, тут такое дело, не могу понять в чем ошибка. В общем, я беру...

Задача на удаление слов нечетной длины
Задача: Напишите программу, которая удаляет из строки символов каждое слово...

Удаление первых слов в каждом предложении текста
Совсем не понимаю, как это сделать! Помогите кто-нибудь?

2
NSLANDE
14 / 14 / 7
Регистрация: 11.12.2010
Сообщений: 42
07.01.2011, 15:55 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const
M=[' ',',','.',';',':','-','=','+'];
var d,n,s1:integer;
s:string;
begin
write('Введите максимальную длину слова: ');
readln(d);
writeln('Введите строку:');
readln(s);
s1:=length(s);
writeln('в строке',' ',s,' ','букв',' ',s1);
if s1>d then
   begin
      n:=s1-n;
      delete(s,d+1,n);
   end;
   writeln(s);
end.
Так пойдёт?
1
Nicole
0 / 0 / 0
Регистрация: 06.01.2011
Сообщений: 11
07.01.2011, 16:00  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.01.2011, 16:00

Поиск одинаковых слов и удаление символов между ними
Дан текст, между словами один или несколько пробелов. В тексте имеется два...

удаление строки
помогите пожалуйста как в паске работает удаления строки в базе данный, по...

Удаление строки
Собственно требуется удалить последнюю строку из текстового файла и записать ее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru