Работа с текстом

[Милашка:)]

Дан текстовый файл. Найти самое длинное слово и слово с самым большим количеством слогов

[andrewpalkin]

Наработки ?

[casekey]

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

[Mad_Cat]

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

.
точнее символ любого разделителя

razd=[':','.',','{и т.д}];

[Stilet]

точнее символ любого разделителя

А точнее только символ буквы. т.е. пока символ - буква увеличивать счетчик.

[XeruH]

) А про слоги так никто ничего и не сказал )

[dekameron]

Сообщение от XeruH

) А про слоги так никто ничего и не сказал )

Посчитать количество [a,e,u,i,o,y] в словах, если текст на английском и мсье любит извращения, можно учитывать то, что иногда две гласные буквы дают один слог (oo,ee,ea,ou...) =)

[Милашка:)]

СПС.....а кусочек проги к нибудь дайте....я не могу

var
temp,s,max:string;
i:integer;
begin
writeln('Введите строку...');
readln(s);
max:='';
for i:=1 to length(s) do
begin
if s[i]<>' ' then
temp:=temp+s[i];
if (s[i]=' ') or (i=length(s)) then
begin
if length(temp)>length(max) then
max:=temp;
temp:=''
end;
end;
writeln('Максимальное слово в строке - ',max)
end.

это я знаю.....а как с файла текст?!и эти слоги...подскажите...не молчите

[Милашка:)]

ЭЭЭЭЭЭЭЭЭЭ тут чо тпрограммеров нету чоли....я ваабще в шоке....ребят дайте идейку(((я вам поцелуй отправлю)))

[Stilet]

чо тпрограммеров нету чоли

Нет. Откуда здесь программисты?

 var maxs,s,s2:string;f:file of char;c:char;w:boolean;   maxe,e,i:integer;
begin
 assign(f,'file1.txt');reset(f);
 w:=false;maxs:='';   maxe:=0;s2:='';
 while not eof(f) do begin
  read(f,c);
  while (not eof(f))and(c<>' ') do begin s:=s+c;read(f,c);end;
  for i:=1 to length(s) do     if pos(s[i],'eyuioa')<>0 then inc(e);
  if e>maxe then begin maxe:=e;s2:=s;end;
  if length(maxs)<length(s) then maxs:=s; s:='';
  while (not eof(f))and(c=' ') do begin read(f,c);end;
 end;
 close(f);
 writeln('Самое длинное слово=',maxs);
 writeln('А слогов то=',s2);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

из текста

hello my world its amazingjnrn lateralus

Выдало

╤рьюх фышээюх ёыютю=mazingjnrn
└ ёыюуют Єю=ateralus

Сойдет такое?