Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Nicole
0 / 0 / 0
Регистрация: 06.01.2011
Сообщений: 11
#1

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

06.01.2011, 23:32. Просмотров 463. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удаление слов из строки. (Pascal ABC):

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

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

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

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

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

удаление строки - Pascal ABC
дан 2х мерный массив 5х6 удалить среднюю спомощью процедуры delete

2
NSLANDE
14 / 14 / 3
Регистрация: 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
Привет! Вот еще темы с ответами:

Удаление строки - Pascal
Собственно требуется удалить последнюю строку из текстового файла и записать ее в переменную типа string, сохранив предыдущие строки...

удаление строки - Pascal
помогите пожалуйста как в паске работает удаления строки в базе данный, по какому принципу for i:=y to j-1 teh:=teh; нужно обьяснить как...

строки.последовательность слов - Pascal
Дана последовательность, содержащая до 30 слов, в каждом из которых от 1 до 5 букв. между соседними словами - запятая, за последним словом...

Удаление нулей из строки - Pascal ABC
Собственно есть у нас число: 00000000511111(число может быть любое и кол-во нулей может меняться) Я преобразую его в переменную типа...


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

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

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