Найти самое длинное и самое короткое слова в строке и, рассматривая эти слова как числа, определить их сумму

@Максим098 · Регистрация: 26.02.2017

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

Дана строка символов, состоящая из нулей, единиц и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Требуется найти самое длинное и самое короткое слово в строке и, рассматривая эти слова как числа, определить их сумму.

@ZX Spectrum-128 · 25.11.2017, 12:45

Взято отсюда:
Найти самое длинное и самое короткое слово в строке

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var
  Str, Source, MaxStr, MinStr: string;
  Min, Max, Len: integer;
  err, i: byte;
  MaxE, MinE: real;
 
begin
  Source := '';
  MaxStr := '';
  MinStr := '';
  Max := 0;Len := 0;
  writeln('Введите строку: ');
  readln(Str);
  Str := Str + ' ';
  Min := length(Str);
  for i := 1 to length(Str) do
    if Str[i] <> ' ' then
    begin
      inc(Len);
      Source := Source + Str[i];
    end
    else
    begin
      if Len > Max then
      begin
        Max := Len;
        MaxStr := Source;
      end;
      if Len < Min then
      begin
        Min := Len;
        MinStr := Source;
      end;
      Len := 0;Source := '';
    end;
  writeln('Самое длинное слово: ', MaxStr);
  writeln('Самое короткое слово: ', MinStr);
  //Val(MaxStr, MaxE, err);
  MaxE := StrToFloat(MaxStr);
  MinE := StrToFloat(MinStr);
  writeln('Их сумма: ', MaxE + MinE);
end.

@Puporev · 26.11.2017, 18:23

Сообщение от Максим098

рассматривая эти слова как числа

Числа в СС 2? Они же из 0 и 1.

@Максим098 · 02.12.2017, 15:06 **[ТС]**

Program1.pas(40) : Ошибка времени выполнения: Входная строка имела неверный формат.

@Puporev · 02.12.2017, 17:26

Так введите строку типа
12 345 6789
У Вас даже нет проверки ввода строки, можно ввести типа
abcsfyytytygfy

@Максим098 · 03.12.2017, 14:45 **[ТС]**

а как можно сделать чтобы буквы можно было писать

@Cyborg Drone · 04.12.2017, 00:10

Максим098, напишите, что должна делать программа. А то вовсе перестало быть понятным, что Вам вообще требуется, и пока что Ваше пожелание выглядит несколько несуразно: если есть буквы, то какой к лешему перевод строки в числа? Вот какому числу соответствует "abcsfyytytygfy"?

@Cyborg Drone · 27.12.2017, 22:21

Не по теме:

После того, как объединил темы, всё стало ясно. Максим098... Ничего не буду говорить, но, думаю, Вы меня поняли.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Максим098 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 115

	Найти самое длинное и самое короткое слова в строке и, рассматривая эти слова как числа, определить их сумму 20.11.2017, 19:00. Показов 3175. Ответов 7 Метки нет (Все метки) Дана строка символов, состоящая из нулей, единиц и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Требуется найти самое длинное и самое короткое слово в строке и, рассматривая эти слова как числа, определить их сумму. 0

@Максим098 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 115
	02.12.2017, 15:06 [ТС]
	Program1.pas(40) : Ошибка времени выполнения: Входная строка имела неверный формат. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.12.2017, 17:26
	Так введите строку типа 12 345 6789 У Вас даже нет проверки ввода строки, можно ввести типа abcsfyytytygfy 0

@Максим098 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 115
	03.12.2017, 14:45 [ТС]
	а как можно сделать чтобы буквы можно было писать 0

@Cyborg Drone Модератор 10423 / 5711 / 3402 Регистрация: 17.08.2012 Сообщений: 17,371
	04.12.2017, 00:10
	Максим098, напишите, что должна делать программа. А то вовсе перестало быть понятным, что Вам вообще требуется, и пока что Ваше пожелание выглядит несколько несуразно: если есть буквы, то какой к лешему перевод строки в числа? Вот какому числу соответствует "abcsfyytytygfy"? 0

@Cyborg Drone
	27.12.2017, 22:21
	Не по теме: После того, как объединил темы, всё стало ясно. Максим098... Ничего не буду говорить, но, думаю, Вы меня поняли. 0