Строка символов

[lyubashka21]

Дана строка символов, состоящая из слов. Найти длину самого короткого слова. Помогите плз

[Вадим Мошев]

У вас есть наработки? Что сами сделали?
Кстати, откуда/как в середине лета появилась у вас задача?

[lyubashka21]

Есть подобная задача, не знаю что исправить, чтобы работала с моим условием...

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

uses crt;
var s,sl,smax: string;
* * i,dmax: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmax:=0;
for i:=1 to length(s) do
* * if s[i]<>' ' then sl:=sl+s[i] else
* * * *begin
* * * *if length(sl)>dmax then
* * * * * begin
* * * * * dmax:=length(sl);
* * * * * smax:=sl;
* * * * * end;
* * * *sl:='';
* * * *end;
writeln ('Самые длинные слова длиной в ',dmax,' символов:');
for i:=1 to length(s) do
* * if s[i]<>' ' then sl:=sl+s[i] else
* * * *begin
* * * *if length(sl)=dmax then
* * * * * write(sl,' ');
* * * *sl:='';
* * * *end;
readkey
end.

[Вадим Мошев]

Поправил в вашем коде то, что в глаза бросалось

uses crt;
var s,sl,smax: string;
i,dmax: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; {не уверен в необходимости этой строки, скорей всего, она не нужна}
sl:='';dmax:=length(s);
for i:=1 to length(s) do
	 if s[i]<>' ' then sl:=sl+s[i] else
		begin
			if length(sl)<dmax then
			 begin
				dmax:=length(sl);
				smax:=sl;
			 end;
			sl:='';
		end;
		
writeLn('Длина самого короткого слова равна: ', dmax);

end.

Кстати, оформляйте ваш код кнопочкой #

[Arigato]

Простой конечный автомат:

const
  spaces = [#9,#10,#13,#32];

var
  s: string;
  i, min, len: integer;

begin
  readln (s);
  s := s + ' ';
  min := high (min);
  len := 0;
  for i := 1 to length (s) do begin
    if s[i] in spaces then begin
      if (len < min) and (len > 0) then min := len;
      len := 0;
    end else inc (len);
  end; {for}
  if s = ' ' then min := 0;
  writeln (min);
  readln;
end.

[BDA]

Вадим Мошев, дописывание пробела нужно, чтобы не делать лишней проверки после конца строки (вдруг последнее слово удовлетворяет условию).

[lyubashka21]

спасибо большое)))

[Вадим Мошев]

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

спасибо большое)))

У вас всё работает?

[lyubashka21]

все работает)) огромное спасибо, выручили)