PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Другие темы раздела
Написать блок-схему PascalABC.NET Напишите, пожалуйста, блок-сему к данной программе : var n, i, x, y: integer; t: boolean; begin write('Введите число:'); read(n); t := false;	Определить, во сколько лет штангист может стать чемпионом мира PascalABC.NET Решить с помощью рекурсии. С 25 лет штангист каждые полгода увеличивает вес штанги на 10% от предыдущего веса, начав со 120 кг. Написать программу, определяющую во сколько лет он может стать... function ch(x, w, m: real): real; begin if w > m then ch := x else ch := ch(x + 0.5, w * 1.1, m) end; begin writeln(ch(25, 120, 210):0:1); readln
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}... const a = 0; b = 7; dx = 0.5; mes = ' x f(x)'; var x, f, k, t: real; i: integer; begin write('k = '); readln(k); //цикл с предусловием	PascalABC.NET Удаление процедуры обработчика https://www.cyberforum.ru/ pascalabc-net/ thread2122173.html Как удалить процедуру-обработчик, если она уже не нужна? Есть ли какой то быстрый способ это сделать, не удаляя из кода напрямую? Добавлено через 46 секунд unit Unit1; interface uses... Нет.
Подскажите, пожалуйста, как создать график в паскале и вывести его значения PascalABC.NET Подскажите, пожалуйста, как создать график в паскале и вывеси его значения Само задание звучит так: Для функции Y=f(X) вывести на экран значения Y для X=0, 0.25, 0.5, ... 19.75 и вывести график... Например так. uses graphABC; //функция определения значений y(x) function f(x:real):real; begin if(trunc(x))mod 4=0 then f:=-sqrt(1-sqr(frac(x)-1)) else f:=(trunc(x) mod 4+frac(x))/3-4/3; end;...	PascalABC.NET Заполнить матрицу числами 1 – выше главной диагонали, 2 – ниже главной диагонали Дан двумерный массив целых чисел размера М строк и М столбцов. Заполнить этот массив числами 1 – выше главной диагонали, 2 – ниже главной диагонали. На главной диагонали записать число 3. Что именно не получается? Ввести число и нажать на Enter? Кстати, то же самое делается гораздо короче: begin var m := ReadlnInteger('M = '); var a := MatrGen(m, m, (i, j) -> i < j ? 1 : i >... https://www.cyberforum.ru/ pascalabc-net/ thread2121965.html
PascalABC.NET Определить, превышает ли дробная часть числа 0,5 Для дроби m/n определить превышает ли дробная часть числа 0,5. Если превышает, то число m удвоить, иначе удвоить число n . if frac(m/n)>0.5 then write('Дробная часть больше 0.5') else write('Дробная часть не больше 0.5');	PascalABC.NET Определить, можно ли строку x преобразовать в строку y по заданному правилу https://www.cyberforum.ru/ pascalabc-net/ thread2122192.html Даны две строки x и y. Строка x состоит из нулей и единиц, строка y из символов А и В. Можно ли строку x преобразовать в строку y по следующему правилу: цифра 0 преобразуется в непустую...
PascalABC.NET Записать выражение синтаксисом языка Паскаль Записать выражение синтаксисом языка Паскаль: 1.25\left(\frac{5.98A}{\exp \frac{B(C+1.41)^{0.5}}{87}}-D \right) Y:=1.25(5.98A/exp(B*sqrt(C+1.41)/87)-D);	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... ... и в результате в Integers остается несортированный массив. Прекрасно. https://www.cyberforum.ru/ pascalabc-net/ thread2122162.html
PascalABC.NET Построить и распечатать множество https://www.cyberforum.ru/ pascalabc-net/ thread2122441.html Построить и распечатать множество, элементами которого являются цифры 0..8 и буквы 'A'..'L' Использовать множество и подпрограммы. P.S. Помогите, пжлст :) Верно, в паскале нет множеств из разнородных элементов. Очевидно, имеется ввиду символы цифр '0'..'8'. JuriiMW, "рваный" диапазон - не вопрос. Написано же: "построить множество". Решение для...	PascalABC.NET Получить сумму тех элементов массива, которые удовлетворяют заданному условию Дан одномерный массив А целых чисел длины N. Получить сумму тех элементов массива, которые удовлетворяют условию: \|ai\|<i^2 var sum := 0; for var i := 1 to n do if a < i*i then sum += a;

volvo

Супер-модератор

33076 / 21377 / 8211

Регистрация: 22.10.2011

Сообщений: 36,697

Записей в блоге: 9

15.11.2017, 12:41 0

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

15.11.2017, 12:41. Показов 2816. Ответов 9

Метки (Все метки)

Ответ

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

str.Where(v -> v.Length = str.Max(c -> c.Length)).First.Length - что это за ужас?

Pascal

begin
  var str := ReadlnString.ToWords;
  writelnformat('Самое длинное слово состоит из {0} символов.', str.MaxBy(s -> s.Length).Length);
  writelnformat('Самое короткое слово состоит из {0} символов.', str.MinBy(s -> s.Length).Length);
end.

не проще?

Вернуться к обсуждению:
Процедура: определить в строке длину самого короткого и самого длинного слова PascalABC.NET

Следующий ответ

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

15.11.2017, 12:41

Готовые ответы и решения:

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

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

15.11.2017, 12:41

Помогаю со студенческими работами здесь

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

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

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

Определить длину самого длинного слова в строке
С клавиатуры вводится строка символов. Определить длину самого длинного слова в строке. Добавлено через 13 минут Ребята, ненадо...

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

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

Наверх