Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Шифр ЭЦП Эль-Гамаля. https://www.cyberforum.ru/ turbo-pascal/ thread526701.html
Алгоритм формирования схемы Эль-Гамаля. 1 Выбираем простое число p. 2 Выбираем два случайных числа q<p и x<p. 3 Вычисляем y≡q^x mod p. Открытым ключом схемы Эль-Гамаля являются числа y, q и p....
Turbo Pascal Работа с 60 портом
Тут Pascal кто нить помнит?? или знает? Program kyrsa4; uses crt_; var i,i1,i2:word; st:boolean; keys:arrayof boolean; begin clrscr;
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread526611.html
Описать рекурсивную функцию pow(x, n) от вещественного x (x <> 0) и целого n, которая вычисляет величину x^n (x в степени n) по формуле: Нужно применить exp (с помощью функции) Помогите...
Turbo Pascal Вообшем надо что бы эта куча линий перемещалась по часовой стрелке по кругу https://www.cyberforum.ru/ turbo-pascal/ thread526603.html
Вообшем надо что бы эта куча линий перемещалась по часовой стрелке по кругу program sekundomir; uses Crt,Graph; var x2,y2,x1,y1,r,d,m:integer; x,y,t:real; procedure fon; var d,m:integer;...
Вычислить значение выражения и определить его тип: int(-1.5) Turbo Pascal
Извиняюсь за слишком простой вопрос, в паскале не разбираюсь Вычислить значение выражения и определить его тип int(-1.5)
Turbo Pascal Убрать мигающий курсор Нужно убрать мигающий курсор. goto не подойдет. Мб Ассемблер? Спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread526560.html
Turbo Pascal Выдать сведения о работниках определенной должности в заданном отделе и вычислить их средний стаж. https://www.cyberforum.ru/ turbo-pascal/ thread526551.html
Структура записи исходного документа имеет вид: Ном. отдела * Таб. номер * ФИО * Должность * Образование * Стаж * Выдать сведения о работниках определенной должности в заданном отделе и вычислить...
Поменять в строке четные / нечетные буквы Turbo Pascal
Всем привет! Помогите исправить модуль, который меняет парные и непарные буквы в строке. unit name; Interface const LenStrMod=255; LenStrdata=80; type STRMod = string ; STRData =...
Turbo Pascal Проверить алгоритм вычисления суммы Верен ли алгоритм? где ошибка? var x, s, y, z :real; n, k : integer; begin readln(n, x); s:=0; z:= -1; z:=z*(-1); for k:=0 to y:=1, else to y:=y*k; s:=s+z*(x+1)^k/y или эта формула... https://www.cyberforum.ru/ turbo-pascal/ thread526538.html Turbo Pascal Даны два текстовых файла с целыми числами.Определить,совпадают ли эти файлы Даны два текстовых файла с целыми числами.Определить,совпадают ли эти файлы? https://www.cyberforum.ru/ turbo-pascal/ thread526522.html
Turbo Pascal Получать информацию о служащих фамилия которого введена с клавиатуры
Имеется список служащих,в котором указаны фамилия и инициалы,занимаемая должность,год поступления на работу и оклад.Составить программу которая позволяет а)вводить список б)Выводить список...
Turbo Pascal Прошу помочь изготовить программу, которая могла бы при наличии значений аргумента и значений функции при этом аргументе, подбрала подходящую функцию https://www.cyberforum.ru/ turbo-pascal/ thread526507.html
Прошу помочь изготовить программу, которая могла бы при наличии значений аргумента и значений функции при этом аргументе, подбрала подходящую функцию y=f(x), где x - значение аргумента, ...
792 / 390 / 260
Регистрация: 09.12.2011
Сообщений: 762
Записей в блоге: 29
24.03.2012, 14:02 0

В заданной строке символов найти слова минимальной и максимальной длины и выдать позиции, с которых они начинаются. - Turbo Pascal - Ответ 2830279

24.03.2012, 14:02. Показов 2450. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Omnitek как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses crt;
Var s,p:string; i,k,min,max,x,y:integer;
Begin
ClrScr; Write('Input string:'); Readln(s);
min:=length(s);
For i:=1 to length(s) do
 If not(s[i]=' ') and not(i=length(s)) then p:=p+s[i] else{выделяем слова}
  Begin
   If i=length(s) then p:=p+s[i];
   If length(p)>max then
    Begin
     max:=length(p); x:=Pos(p,s);{находим самое длинное слово и его позицию}
    End;
   If length(p)<min then 
    Begin
     min:=length(p); y:=Pos(p,s);{находим самое короткое слово и его позицию}
    End;
   p:=''; inc(k);
  End;
Writeln('Words:',k);{вывод кол-ва слов}
Writeln('Long:',x,' Short:',y);
Readln;
End.


Вернуться к обсуждению:
В заданной строке символов найти слова минимальной и максимальной длины и выдать позиции, с которых они начинаются. Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2012, 14:02
Готовые ответы и решения:

Поменять местами слова максимальной и минимальной длины в строке
Задание: Дана строка. Подсчитать количество символов в каждом слове. Сформировать новую строку,...

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

Подсчитать количество слов в строке, вывести на экран слова минимальной и максимальной длины
Ввести строку. Подсчитать количество слов в строке, вывести на экран слова минимальной и...

В заданном предложении найдите самое короткое и самое длинное слова и укажите позиции, с которых они начинаются
В заданном предложении найдите самое короткое и самое длинное слова и укажите позиции, с которых...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2012, 14:02

В файле заменить все слова максимальной длины на слова минимальной длины
Нужно в считанном из файла тексте заменить все слова максимальной длины на слова минимальной длины,...

В заданном ряде символов найти слова минимальной и максимальной длинны
В заданном ряде символов найти слова минимальной и максимальной длинны и выдать позиции с которых...

Вывести на экран порядковый номер слова минимальной длины в строке, и количество неповторяющихся символов
Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Выведите на...

Вывести порядковый номер слова максимальной длины и номер позиции в строке, с которой оно начинается
как вывести на экран порядковый номер слова максимальной длины и номер позиции в строке, с которой...

Вывести на экран порядковый номер слова максимальной длины и номер позиции в строке, с которой оно начинается
и так, вот условие: дана строка символов, состоящая из произвольного текста, слова разделены...

Найти в строке слова с максимальной и минимальной длиной и переписать их в другую строку
Ребят, выручите, пожалуйста. Найти слово с максимальной и минимальной длиной и переписать их в...

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