Вывести слово минимальной длины

@Луч света · Регистрация: 16.10.2012

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

Разработать программу решения задачи, в которой вывести на экран порядковый номер слова минимальной длины, из строки символов на английском языке (слова разделены пробелами).Исходные данные строки вводятся с клавиатуры.

@КонецСвета · 11.11.2012, 23:30

Луч света, про вывод слова в условии не сказано, сказано только про вывод порядкового номера

Pascal

uses crt;
var s: string;
    i,dmin,nmin,d,ns: byte;
begin
write('s='); readln(s); s:=s+' ';
dmin:=length(s);
ns:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then inc(d) else
       if d<>0 then
          begin
          inc(ns);
          if d<dmin then
             begin
             dmin:=d; nmin:=ns;
             end;
          d:=0;
          end;
writeln('Слово минимальной длины (',dmin,') ',nmin,' по порядку');
readln;
end.

исхожу из предположения, что слово минимальной длины в предложении одно

@Луч света 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 64
		1
	Вывести слово минимальной длины 11.11.2012, 21:24. Показов 1417. Ответов 1 Метки нет (Все метки) Разработать программу решения задачи, в которой вывести на экран порядковый номер слова минимальной длины, из строки символов на английском языке (слова разделены пробелами).Исходные данные строки вводятся с клавиатуры. 0

Опции темы

Вывести слово минимальной длины

Решение