Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Построить и распечатать множество https://www.cyberforum.ru/ pascalabc-net/ thread2122441.html
Построить и распечатать множество, элементами которого являются цифры 0..8 и буквы 'A'..'L' Использовать множество и подпрограммы. P.S. Помогите, пжлст :)
PascalABC.NET Определить, превышает ли дробная часть числа 0,5
Для дроби m/n определить превышает ли дробная часть числа 0,5. Если превышает, то число m удвоить, иначе удвоить число n .
PascalABC.NET Подскажите, пожалуйста, как создать график в паскале и вывести его значения https://www.cyberforum.ru/ pascalabc-net/ thread2122385.html
Подскажите, пожалуйста, как создать график в паскале и вывеси его значения Само задание звучит так: Для функции Y=f(X) вывести на экран значения Y для X=0, 0.25, 0.5, ... 19.75 и вывести график на экран. (график прикреплён ниже) Если шанс вывести значения на экран стремиться к нулю, то нарисовать график шансов вообще нет. GraphABC даже ни разу не упоминался ни на лекция, ни на...
PascalABC.NET Определить, во сколько лет штангист может стать чемпионом мира https://www.cyberforum.ru/ pascalabc-net/ thread2122363.html
Решить с помощью рекурсии. С 25 лет штангист каждые полгода увеличивает вес штанги на 10% от предыдущего веса, начав со 120 кг. Написать программу, определяющую во сколько лет он может стать чемпионом мира, подняв свыше 210 кг?
PascalABC.NET Протабулировать функцию
Трижды протабулировать функцию, используя три различных цикла f(x)=\begin{cases}\frac{k}{x^3+9x^2+26x+24} & \text{, if } x^3+9x^2+26x+24\neq 0 \\ 2^x & \text{, if } x^3+9x^2+26x+24=0\end{cases} на интервале x \small \in , Δx = 0.5
PascalABC.NET Определить, можно ли строку x преобразовать в строку y по заданному правилу Даны две строки x и y. Строка x состоит из нулей и единиц, строка y из символов А и В. Можно ли строку x преобразовать в строку y по следующему правилу: цифра 0 преобразуется в непустую последовательность букв А, а 1- либо в непустую последовательность букв А,либо в непустую последовательность букв В? https://www.cyberforum.ru/ pascalabc-net/ thread2122192.html
PascalABC.NET Удаление процедуры обработчика https://www.cyberforum.ru/ pascalabc-net/ thread2122173.html
Как удалить процедуру-обработчик, если она уже не нужна? Есть ли какой то быстрый способ это сделать, не удаляя из кода напрямую? Добавлено через 46 секунд unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type
PascalABC.NET Сократить код программы
Пожалуйста помогите сократить код программы: const n=5; var i,m,j,x:integer; A:ARRAY OF INTEGER; begin writeln('Введите массив'); for i:=1 to n do read(A); for i := 1 to n - 1 do
PascalABC.NET Написать блок-схему https://www.cyberforum.ru/ pascalabc-net/ thread2122161.html
Напишите, пожалуйста, блок-сему к данной программе : var n, i, x, y: integer; t: boolean; begin write('Введите число:'); read(n); t := false;
PascalABC.NET Записать выражение синтаксисом языка Паскаль Записать выражение синтаксисом языка Паскаль: 1.25\left(\frac{5.98A}{\exp \frac{B(C+1.41)^{0.5}}{87}}-D \right) https://www.cyberforum.ru/ pascalabc-net/ thread2121966.html
Заполнить матрицу числами 1 – выше главной диагонали, 2 – ниже главной диагонали PascalABC.NET
Дан двумерный массив целых чисел размера М строк и М столбцов. Заполнить этот массив числами 1 – выше главной диагонали, 2 – ниже главной диагонали. На главной диагонали записать число 3.
PascalABC.NET Получить сумму тех элементов массива, которые удовлетворяют заданному условию Дан одномерный массив А целых чисел длины N. Получить сумму тех элементов массива, которые удовлетворяют условию: |ai|<i^2 https://www.cyberforum.ru/ pascalabc-net/ thread2121964.html
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32977 / 21288 / 8175
Регистрация: 22.10.2011
Сообщений: 36,565
Записей в блоге: 8
15.11.2017, 12:41 0

Процедура: определить в строке длину самого короткого и самого длинного слова - PascalABC.NET - Ответ 11713644

15.11.2017, 12:41. Показов 2790. Ответов 9
Метки (Все метки)

Ответ

Я тоже в печальке...

str.Where(v -> v.Length = str.Max(c -> c.Length)).First.Length - что это за ужас?
Pascal
1
2
3
4
5
begin
  var str := ReadlnString.ToWords;
  writelnformat('Самое длинное слово состоит из {0} символов.', str.MaxBy(s -> s.Length).Length);
  writelnformat('Самое короткое слово состоит из {0} символов.', str.MinBy(s -> s.Length).Length);
end.
не проще?

Вернуться к обсуждению:
Процедура: определить в строке длину самого короткого и самого длинного слова PascalABC.NET
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2017, 12:41
Готовые ответы и решения:

Дана строка, состоящая из слов, разделенных пробелами. Определить длину самого короткого и самого длинного
1.Дана строка, состоящая из русских слов, разделенных пробелами.Определить длину самого короткого и...

Найти длину самого короткого слова в предложении
Найти длину самого короткого слова в предложении

Найти длину самого короткого и самого длинного слова
пожалуйста помогите решать эту программу мне надо блок схема и программа. Дана строка, содержащая...

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

9
15.11.2017, 12:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2017, 12:41
Помогаю со студенческими работами здесь

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

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

Определить длину самого длинного слова в строке
С клавиатуры вводится строка символов. Определить длину самого длинного слова в строке. ...

Процедура определения самого длинного слова в строке
процедура определения самого длинного слова в строке Паскаль

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru