Question

Найти длину самого короткого и самого длинного слова.(Составить программу на языке Паскаль)

Answer 1

Решение на Pascal ABC.NET

var

 s: string;

 long, short: Integer;

 words: array of string;

begin

 Read(s);

 words := s.Split(' ');

 long := 0;

 short := 99999;

 

 for var i: Integer := 1 to length(words) - 1 do begin

   if length(words[i]) > long then

     long := length(words[i]);

   if (length(words[i]) < short) and (length(words[i]) <> 0) then

     short := length(words[i])

 end;

 

 WriteLn(short);

 WriteLn(long)

end.

Answer 2

Для нахождения длины самого короткого и самого длинного слова в тексте на языке Паскаль, можно использовать следующую программу:

program FindWordLengths;
var
  text: string;
  shortestLength, longestLength, currentLength: integer;
  word: string;
begin
  // Ввод текста
  writeln('Введите текст:');
  readln(text);
  
  // Инициализация переменных
  shortestLength := MaxInt;
  longestLength := 0;
  currentLength := 0;
  
  // Обработка текста
  for var i := 1 to Length(text) do
  begin
    if text[i] <> ' ' then
    begin
      // Формирование текущего слова
      word := word + text[i];
      currentLength := currentLength + 1;
    end
    else
    begin
      // Проверка длины текущего слова
      if currentLength < shortestLength then
        shortestLength := currentLength;
      if currentLength > longestLength then
        longestLength := currentLength;
      
      // Сброс текущего слова
      word := '';
      currentLength := 0;
    end;
  end;
  
  // Проверка длины последнего слова
  if currentLength < shortestLength then
    shortestLength := currentLength;
  if currentLength > longestLength then
    longestLength := currentLength;
  
  // Вывод результатов
  writeln('Самое короткое слово имеет длину: ', shortestLength);
  writeln('Самое длинное слово имеет длину: ', longestLength);
end.

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

Пример работы программы:

Введите текст:
Привет, как дела?

Самое короткое слово имеет длину: 2
Самое длинное слово имеет длину: 6

В данном примере текст "Привет, как дела?" содержит самое короткое слово "как" длиной 3 символа и самое длинное слово "Привет" длиной 6 символов.

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