Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
1 / 1 / 0
Регистрация: 13.03.2012
Сообщений: 17
1

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

24.03.2012, 01:54. Показов 2410. Ответов 1
Метки нет (Все метки)

В заданной строке символов найти слова минимальной и максимальной длины и выдать позиции, с которых они начинаются. Подсчитать количество слов в данной строке.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2012, 01:54
Ответы с готовыми решениями:

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

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

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

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

1
791 / 386 / 259
Регистрация: 09.12.2011
Сообщений: 759
Записей в блоге: 29
24.03.2012, 14:02 2
Лучший ответ Сообщение было отмечено 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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2012, 14:02

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

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

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.