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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.01.2011, 21:34   #1
Broken Angel
Пользователь
 
Регистрация: 31.12.2010
Сообщений: 14
Восклицание Удалить все слова с длиной, большей заданной длины

Есть небольшая проблемка. Нужно написать прогу по удалению всех слов, которые больше заданной длины. Начало у меня есть, а что писать дальше - не знаю. Помогите, пожалуйста!
Вот начало:
Код:
Program VMV;
uses crt;
const
M=[' ',',','.',';',':','-','=','+'];
var i,Pos2,CntWord,CntRes,d:integer;
    StrSrc,StrWord :string;
begin
write('Введите максимальную длину слова: ');
readln(d);
 begin
 repeat
    Writeln('Введите строку: ');
    Readln(StrSrc);
    CntWord := 0;
    CntRes := 0;
    Pos2 := 0;
    StrWord := '';
    for i := 1 to Length(StrSrc) do begin
      if StrSrc[i] in M then Continue;
      StrWord := StrWord + StrSrc[i];
      if i = Length(StrSrc) then
        Pos2 := i
      else if StrSrc[i + 1] in M then
        Pos2 := i;
      if Pos2 > 0 then begin
        Inc(CntWord);
        if CntWord = 1 then begin

Последний раз редактировалось Stilet; 07.01.2011 в 15:22.
Broken Angel вне форума Ответить с цитированием
Старый 06.01.2011, 21:44   #2
Ghost of Night
Форумчанин
 
Аватар для Ghost of Night
 
Регистрация: 08.08.2010
Сообщений: 371
По умолчанию

Во-первых текст оформлять нужно.
А во-вторых:
Берешь строку, забиваешь в массив слова, а потом сравниваешь длины этих слов с нужным тебе числом, заменяешь слово(выбранный элемент массива) на символ ''. и всё.
Хакинг - не преступление, а способ выживания.
Ghost of Night вне форума Ответить с цитированием
Старый 06.01.2011, 22:06   #3
Broken Angel
Пользователь
 
Регистрация: 31.12.2010
Сообщений: 14
Сообщение

Да сам порядок понятен. Мне бы узнать, как "перейти" на сравнение следующего слова, если данное слово меньше заданного максимума...

Последний раз редактировалось Broken Angel; 06.01.2011 в 23:00.
Broken Angel вне форума Ответить с цитированием
Старый 07.01.2011, 15:17   #4
Ghost of Night
Форумчанин
 
Аватар для Ghost of Night
 
Регистрация: 08.08.2010
Сообщений: 371
По умолчанию

Слова "сидят" в массиве, ты сравниваешь элементы массива, т.е. длину слов.
Организуй цикл, от 1 до последнего эл. массива и сравнивай
Хакинг - не преступление, а способ выживания.
Ghost of Night вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить в предложении все слова, имеющие символы цифр In4ekk Общие вопросы C/C++ 0 19.10.2010 14:10
Удалить все слова, встречающиеся более 2 раз kat297 Общие вопросы Delphi 3 11.06.2010 16:27
СИ. Удалить слова, которые содержат все повторяющиеся буквы первого слова nick23 Помощь студентам 7 01.11.2009 14:47
Вывести все слова входного потока, заканчивающиеся заданной последовательностью символов fiaftw Общие вопросы C/C++ 2 03.02.2009 00:44
В введенном предложении удалить все повторяющиеся слова Алена Помощь студентам 5 21.11.2007 14:12