Удалить слово максимальной длины

@Osimi · Регистрация: 30.10.2011

Author24 — интернет-сервис помощи студентам

Дана строка длиной не более 40 символов. Последний символ – «.». Слова в тексте разделены несколькими пробелами. Удалить слово максимальной длины.

@pudz · 08.11.2011, 21:32

Pascal

uses crt;
var s : string[40];
    l,i,n : integer;
 begin
   clrscr;
   writeln('Vvedite slovo');
   readln(s);
   l:=length(s)+1;
   s[l]:=' ';
   for i:=1 to l do
   if s[i]=' 'then n:=n+1;
   write('V predlozhenii ',s,' - ',n,' slov');
   readln;
 end.

Здесь идет подсчет слов в предложении, исходя из этого можно удалить наиболее длинное из них.. Пока не сообразил как

@TAVulator · 08.11.2011, 21:34

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

Здесь идет подсчет слов в предложении

неверно т.к.

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

Слова в тексте разделены несколькими пробелами.

@pudz · 08.11.2011, 22:08

Вот собственно решение:

Pascal

Uses CRT;
var max, s : string[40];
    dlin : integer;
Begin
     ClrScr;
     WriteLn('Vvedite predlozhenie');
     ReadLn(s);
     max:='';
     while Pos(' ',s) <> 0 Do 
       begin
        dlin:=Pos(' ',s);
        If Length(max)<Length(Copy(s,1,dlin-1)) Then 
        max := Copy(s,1,dlin-1);
        Delete(s,1,dlin);
     End;
     If Length(max)<Length(s) Then 
     max:=s;
     WriteLn('‘*Max slovo');
     WriteLn(max);
     ReadLn;
End.

@Osimi 0 / 0 / 0 Регистрация: 30.10.2011 Сообщений: 13
		1
	Удалить слово максимальной длины 08.11.2011, 20:55. Показов 1825. Ответов 3 Метки нет (Все метки) Дана строка длиной не более 40 символов. Последний символ – «.». Слова в тексте разделены несколькими пробелами. Удалить слово максимальной длины. 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	08.11.2011, 21:34	3
	Сообщение от pudz Здесь идет подсчет слов в предложении неверно т.к. Сообщение от Osimi Слова в тексте разделены несколькими пробелами. 0

	08.11.2011, 22:08

Опции темы

Удалить слово максимальной длины

Решение