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

JuriiMW

5084 / 2655 / 2350

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

Сообщений: 10,047

15.11.2017, 07:22

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

15.11.2017, 07:22. Показов 2790. Ответов 9

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

Ответ

Pascal

procedure FindLens(s : String; var mi, ma : Integer);
begin
  try
    var d := ' .,?!:;"'.ToCharArray;
    var l := s.toWords(d).select(word->word.length);
    (mi,ma) := (l.Min,l.Max);
  except
  end;
end;
 
begin
  var minLen, maxLen : Integer;
  FindLens(ReadLnString('Введите строку символов:'), minLen, maxLen);
  WriteLn('Длина самого короткого и самого длинного слов строки соответственно: ' + minLen + ' и ' + maxLen + '.');
end.

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

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

15.11.2017, 07:22

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

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

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

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

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

	15.11.2017, 07:22

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

15.11.2017, 07:22

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

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

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

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

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

Наверх