Вывести на экран слова,содержащие три буквы Опции

[Unconnected]

Программа изменится совсем незначительно:

var
  s,t: string;
  i: integer;

begin
  Write('Vvedite stroku: ');
  ReadLn(s);
  t:='';
  for i:=1 to Length(s)+1 do
    if (i>Length(s))or(s[i]=' ') then begin
      if Length(t)=3 then WriteLn(t);
      t:=''
    end
    else t:=t+s[i];
  ReadLn
end.

[lansel]

Unconnected,спасибо

[lansel]

var
  s,t,s1,s2: string;
  i: integer;

begin
  clrscr;
    write ('vved text');readln(s);
    s:=' '+s+' ';
    if (s[i]=' ') and (s[i+4]=' ')

вот так например,но ведь надо проверить еще ,возможен факт что между этими тремя символами могут выть предлоги....а не слова,подскажите как это можно сделать

!

Ну сколько можно говорить, что код надо заключать в тэги??

[andriano]

Предлоги - такие же слова, как и другие части речи.

[lansel]

andriano?покажи по задаче

[Lapp]

могут выть предлоги....а не слова

Ух ты! Чем это предлоги не слова??
Тебе не только Паскаль, тебе надо еще и русский подучить..

[andriano]

andriano?покажи по задаче

Что именно?

[lansel]

как их тоже включить,продолжите программу

[Lapp]

как их тоже включить,продолжите программу

Кого включить?? выразись точнее, пожалуйста.

[lansel]

ну программу дописать:)))

Добавлено через 4 мин.
может же быть такой случай например".....' 'а' 'у' ' нас во дворе....."и программа ее выведет,вот надо исключить

Сообщение отредактировано: lansel - 27.12.2009 18:34

[Unconnected]

ну программу дописать:)))

Думаешь, людям неизвестно значение слова "включить (во что-то)"??..

может же быть такой случай например".....' 'а' 'у' ' нас во дворе....."и программа ее выведет,вот надо исключить

Кого исключить? Откуда исключить? Зачем? Чем предлоги не слова? В "Угадай мелодию, что хочет lansel" играть будем?

Сообщение отредактировано: Unconnected - 27.12.2009 19:03

[Lapp]

может же быть такой случай например".....' 'а' 'у' ' нас во дворе....."и программа ее выведет,вот надо исключить

Слушай, lansel, ты всех настолько заинтриговал, что, я уверен, люди обедать не сядут, пока не узнают (хорошо мне - уже поужинал)).

Ты выразись яснее! Приведи полный пример. И результат обработки. Как есть (неправильно) и как нужно.

[lansel]

ни кто чтоль ни чего не понимает?свиду все правильно,четко объясняю

Добавлено через 5 мин.

var
  s,t,s1,s2: string;
  i: integer;

begin
  clrscr;
    write ('vved text');readln(s);
    s:=' '+s+' ';
    if (s[i]=' ') and (s[i+4]=' ') then 
      begin 
        s1:=copy (s,s[i],s[i+4]);
        s2:=copy (s,s[i+4],s[i]);
           if pos(' ',s1)=0 and pos(' ',s2)=0 

вот что то в ней не хватает,сам не знаю чего

Сообщение отредактировано: Lapp - 27.12.2009 19:22

[Lapp]

ни кто чтоль ни чего не понимает?свиду все правильно,четко объясняю

За всех говорить не стану, но лично я ничего не понимаю, честно.
То ты говоришь, что что-то надо включить, то исключить. Я говорю: приведи полный пример с результатами обработки - как неправильным (как сейчас) и как правильным (как должно быть).


Добавлено через 3 мин.
как использовать тэги:
- выдели программный код блоком;
- кликни в меню CODE над окном ввода;
- выбери нужный пункт.

[lansel]

Lapp,ясно

[Lapp]

вот что то в ней не хватает,сам не знаю чего

Если ты не знаешь - откуда нам знать? Речь ведь идет не о РЕШЕНИИ, а об УСЛОВИИ. Скажешь, что тебе нужно - тогда будем думать, как исправлять. Понимаешь? Не программу приводи, а условие.

[lansel]

Дана строка содержащая текст , заканчивающиеся точкой. Вывести на экран слова,содержащие три буквы

[Unconnected]

Вариант с использованием множества:

const
   limits = [#0..#32,'.',',',':',';','!','?','"'];

var
  s,t: string;
  i: integer;

begin
  Write('Vvedite stroku: ');
  ReadLn(s);
  t:='';
  for i:=1 to Length(s)+1 do
    if (i>Length(s))or(s[i] in Limits) then begin
      if Length(t)=3 then WriteLn(t);
      t:=''
    end
    else t:=t+s[i];
  ReadLn
end.

Вариант без использования множества (в качестве разделителя только пробел):

var
  s,t: string;
  i: integer;

begin
  Write('Vvedite stroku: ');
  ReadLn(s);
  t:='';
  for i:=1 to Length(s)+1 do
    if (i>Length(s))or(s[i]=' ') then begin
      if Length(t)=3 then WriteLn(t);
      t:=''
    end
    else t:=t+s[i];
  ReadLn
end.

[Lapp]

Дана строка содержащая текст , заканчивающиеся точкой. Вывести на экран слова,содержащие три буквы

Я тут не вижу никакой разницы с первоначальным условием..

Я тебе говорю еще раз: приведи пример, на котором программа работает неправильно.

А может, ты имеешь в виду, что в варианте, где разделителями только пробелы, сочетания типа буквы в кавычках тоже считаются словом? Так это ты сам так захотел, братец. Тебя спросили - ты ответил, что можно считать, что только пробел разделитель. А если кавычки не разделители - то они БУКВЫ. Третьего не дано!
Я прав? в этом дело?

[lansel]

Lapp,да