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

Сообщение отредактировано: lansel - 16.12.2009 22:22

var s:string;
begin 
s:='На заборе тоже три буквы написано: *** .';
writeln('три ***');
end.

sheka,правда?

Добавлено через 13 мин.
а если через
write ('введите текст');readln (s);
а дальше.....что бы только на три буквы?

1. Разделить строку на отдельные слова.
2. Вывести только те, длина которых равна 3.
Примечание: можно делать в единственном цикле.

andriano,можешь показать

Могу.
Но будет лучше, если ты сам попытаешься хоть что-то сделать.

andriano,ну пожалуйста

напишите кто нибудь,,,,,мне срочно......пожалуйста

Разбиение на слова, все способы
Получить длину строки можно функцией length(s);, она возвращает целое значеие, равное длине строки.

Надо будет, думаю, завести отдельный массив для слов.

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

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

type
  TWords = array[1..40] of string;

var
   s:string;
   words:TWords;
   i,n:integer;

function GetWords(s:string; var w:TWords):byte;
var i,back,n:byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;
   GetWords := n;
end;

begin
  writeln('Vvedite stroku');
  readln(s);
  n:=getwords(s,words);
  for i:=1 to n do if length(words[i])=3 then writeln(words[i]);
  readln;
end.

Способ разбиения на слова позаимствовал у klem4'а, по ссылке в предыдущем посте.

Unconnected,спасиб

Добавлено через 1 мин.
а попроще способа нет?

А чем тебе этот сложный? Спрашивай.

Можно обойтись без массива, если выводить слова в процессе разбора.

Совершенно согласен.
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.

Lapp,огромное спасибо!!)))

а без Limits можно обойтись?

Сообщение отредактировано: lansel - 19.12.2009 15:28

Можно, в принципе, если знаешь, что в твоей строке из разделителей будут только пробелы.

Unconnected,прост мы такое еще не проходили....

Ты бы лучше на вопрос ответил. Годится использовать ТОЛЬКО пробел в качестве разделителя? Какие символы МЕЖДУ словами могут быть?

давай с пробелом