3 / 3 / 2
Регистрация: 14.05.2010
Сообщений: 86
1

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

05.01.2012, 18:12. Показов 1838. Ответов 4
Метки нет (Все метки)

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

Найти самое длинное и самое короткое слово в строке и поменять их местами
Дано предложение. Найти самое длинное и самое короткое слова и поменять их местами. Удалить слова...

Найти самое короткое и самое длинное слово в строке и их позиции
Тема: Разработка алгоритмов и программ обработки строк. Использование множеств с целью решения...

В каждой строке строке файла найти самое длинное слово и дописать его в конец строки
Ввести строки с клавиатуры. Создать файл определить количество строк файла в каждой строке строке...

В строке найти самое длинное слово оканчивающееся на заданную букву
Помогите данную задачу оформить с помощью процедуры uses crt; Const mn=; Var s,sl,max:string; ...

4
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.01.2012, 18:22 2
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,sl,smax: string;
    i,dmax: integer;
begin
write('s=');
readln(s);
s:=s+' '; sl:='';dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          end;
       sl:='';
       end;
writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов');
delete(s,pos(smax,s),length(smax)+1);
write('s=',s);
readln;
end.
1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
05.01.2012, 18:26 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
var s,s1,s2:string;
    n,i,j,d,mx,imx:byte;
begin
clrscr;
writeln('Введите слова, разделенные пробелами');
readln(s);
i:=1;
mx:=0;{максимальная длина}
n:=length(s);
while i<=n do
if (s[i]<>' ')and((i=1)or(s[i-1]=' '))then{начало слова}
 begin
  s1:='';
  j:=i;
  d:=0;{его длина}
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    d:=d+1;
    j:=j+1;
   end;
  if d>mx then{если длиннее других}
   begin
    mx:=d;{макс длина}
    imx:=i;{начало}
    s2:=s1;{само слово}
   end;
  i:=i+d;{перешагиваем}
 end
else i:=i+1;
writeln('Самое длинное слово ',s2);
delete(s,imx,mx);
writeln('Удаление этого слова');
write(s);
readln
end.
1
3 / 3 / 2
Регистрация: 14.05.2010
Сообщений: 86
05.01.2012, 18:38  [ТС] 4
пасиба)))
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
05.01.2012, 18:45 5
даровье))
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2012, 18:45
Помогаю со студенческими работами здесь

Строки. Ввести предложение , найти самое длинное слово и удалить его.
Ввести предложение , найти самое длинное слово и удалить его.

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

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

Найти самое длинное и самое короткое слово и количество символов в них
Помогите решить задачи на строки.на стандартные операции и функции для строк 1.В предложении...


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

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

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