С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Напечатать порядковые номера тех чисел последовательности, которые имеют наибольшую длину. https://www.cyberforum.ru/ pascal/ thread129409.html
Дана непустая последовательность натуральных чисел, за которыми следует 0. Напечатать порядковые номера тех чисел последовательности, которые имеют наибольшую длину.
Pascal вычислить сумму
помогите написать в паскале вычислить сумму первых 15 членов a=(n^lg(n))/lg(n)^n где n=2..16 . вычисление lg(n) оформить в виде подпрограммы процедуры. Я так понял,что lg(n)-это ln(n)/ln(10) ,как это оформить в виде процедуры? а программа var n:integer; s,a,m:extended; begin
Pascal Подпрограммы: максимум среди трех массивов срочно!((( https://www.cyberforum.ru/ pascal/ thread129381.html
Помогите пожалуйста с заданием, ооочень срочно, и самое обидное что почти все понятно.. Ввести двумерные массивы X1, X2 , X3 . Получить массив X4 по формуле X4(i,j):=max(X1,X2,X3) и X5по формуле X5(i,j):=max(X1,X2,X4) . Все вышеупомянутые массивы вывести. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name); а также процедуру Sozd(A,Ax,Ay,Az,N,M)...
Pascal ЕГЭ C4: найти месяц(ы), средняя t которого наименее отличается от среднегодовой C4. На вход программе подаются 366 строк, которые содержат информацию о среднесуточной температуре всех дней года. Формат каждой из строк следующий: сначала записана дата в виде dd.mm (на запись номера дня и номера месяца в числовом формате отводится строго два символа, день от месяца отделен точкой), затем через пробел записано значение температуры — число со знаком плюс или минус, с... https://www.cyberforum.ru/ pascal/ thread129372.html
Сложности с заданием по подпрограммам Pascal
Ввести двумерные массивы X1, X2 , X3 . Получить массив X4 по формуле X4(i,j):=max(X1,X2,X3) и X5по формуле X5(i,j):=max(X1,X2,X4) . Все вышеупомянутые массивы вывести. (При решении реализовать процедуры ввода и вывода массивов: Vvod2m(A,N,M,Name), Vivod2m(A,N,M,Name); а также процедуру Sozd(A,Ax,Ay,Az,N,M) – создание матрицы A, на основе Ax, Ay, Az; и функцию Max(p,q):<тип массива> –...
Pascal Метод Хорд Помогите с решением.Если ввести a=-2,b=2,Ошибка:Вещественое деление на 0.Как убрать uses Crt; var x,eps,a,b,c:real; n:integer; function f(x:real):real; begin f:=x*x-1; end; begin https://www.cyberforum.ru/ pascal/ thread129360.html
Pascal Разработать программу для вычисления значения определенного интеграла от функции f(X) по заданному https://www.cyberforum.ru/ pascal/ thread129349.html
Разработать программу для вычисления значения определенного интеграла от функции f(X) по заданному и в пределах от A (нижняя граница) до B (верхняя граница интегрирования) с абсолютной погрешностью R (в пределах от 0.0001 до 0.01). Подынтегральная функция: x*на корень, под ним 2+sinпx Метод интегрирования: Симпсона Контролируемый параметр: Погрешность Помогите, кто шарит в данном...
формула бине-коши Pascal
привет всем)народ помогите плиз прогу замутить уже который день ничо не могу олкового сделать(( нахождении определителя произведения двух прямоугольных матриц по формуле бине-коши.помогите плиииз оч надо курсовая%)
Pascal Вычислить значение выражения Как будет на паскале |2x+3|^k-1 https://www.cyberforum.ru/ pascal/ thread129338.html Pascal Написать программу нахождения точки !!!!! Нужно написать программу нахождения точки,лежащей на оси и равноудаленной от данных точек A и В плоскости хОу. Искомая точка лежит на пересечении срединного перпендикуляра к отрезку АВ и оси Ох, если они пересекаются.Подготовить и использовать процедуру для нахождения точки пересечения двух прямых, если она существует:-* https://www.cyberforum.ru/ pascal/ thread129336.html
Pascal таблица футбольного чемпионата
Таблица фудбольного чемпионата задана квадратной матрицей порядка n,в которой все элементы, преднолежащие главной диогонали, равны нулю,а каждый элемент, не предналежащий главной диогонали, равен 2, 1 или 0 (числу очков, набронных в игре: 2- выигрыш,1- ничья, 0- проигрыш). Определить номера команд, прошедших чемпиотнат без поражение. Добавлено через 1 минуту нужно сделать так что бы...
Pascal используя функции. увеличить все цифры строк на 1. выполнить для двух строк используя функции. увеличить все цифры строк на 1. выполнить для двух строк https://www.cyberforum.ru/ pascal/ thread129322.html
0 / 0 / 1
Регистрация: 05.04.2010
Сообщений: 14
0

Удалить самое длинное слово в тексте. - Pascal - Ответ 725020

13.05.2010, 22:40. Показов 3575. Ответов 5
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте,

помогите пожалуйста решить следующую задачу:

Вводится произвольная строка. Удалить самое длинное слово.

Заранее БОЛЬШОЕ СПАСИБО за помощь.

Добавлено через 11 секунд
Через поиск нашел только код для программы по нахождению самого длинного слова, но не знаю как его переделать под мою задачу.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
 s,s1,max:string;
 i:integer;
begin
 readln(s);
 s:= s + ' ';
 while pos(' ',s) > 0 do begin
   s1:= copy(s,1,pos(' ',s));
   delete(s,1,pos(' ',s));
   if length(s1) > length(max) then max:=s1;
 end;
 writeln(max);
end.


Вернуться к обсуждению:
Удалить самое длинное слово в тексте. Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2010, 22:40
Готовые ответы и решения:

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

Найти самое длинное слово в тексте.
Дан текст. Найти самое длинное слово в тексте.

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

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

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

Найти самое длинное слово в тексте
Однопроходные алгоритмы. Найти самое длинное слово в тексте, подскажите с кодом программы на...

Вывести самое длинное слово в строке / тексте
Здравствуйте. Столкнулась с ошибкой и нет идей как пофиксить. Задание заключается в том, чтобы с...

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

В заданном тексте найти самое длинное слово и самую длинную фразу.
В заданном тексте найти самое длинное слово и самую длинную фразу.

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