Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 5
1

Строка содержит одно слово максимальной и одно минимальной длины. Поменять их местами.

10.12.2011, 18:01. Просмотров 1842. Ответов 2
Метки нет (Все метки)

Строка содержит одно слово максимальной и одно минимальной длины. Поменять их местами.
Помогите решить заранее спасибо.

 Комментарий модератора 
Заголовок темы изменен модератором.
Он должен быть информативным, отображая содержание темы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2011, 18:01
Ответы с готовыми решениями:

Поменять местами слово максимальной и минимальной длины.
Поменять местами слово максимальной и минимальной длины. строки char*. Как это можно сделать? Слова...

Поменять первое слово максимальной длины и последнее слово минимальной длины
Отсортировать по убыванию слова любого предложения. Поменять первое слово максимальной длины и...

Поменять местами подстроки минимальной и максимальной длины
Дана строка длиной не более 40 символов. Строка разделена точками на подстроки. Поменять местами...

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

2
Почетный модератор
7954 / 3925 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
10.12.2011, 23:31 2
Лучший ответ Сообщение было отмечено ilnaz как решение

Решение

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
uses crt;
var s,sl,smax,smin,sn: string;
    k,i,imax,imin,dmax,dmin: integer;
begin
writeln('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmax:=0; dmin:=length(s);
k:=1;
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;
          imax:=pos(sl,s);
          end;
       if (length(sl)<>0) and (length(sl)<dmin) then
          begin
          dmin:=length(sl);
          smin:=sl;
          imin:=k;
          end;
       k:=k+length(sl)+1;
       sl:='';
       end;
 writeln(smax,imax);
 writeln(smin,imin);
if imax>imin then
     sn:=copy(s,1,imin-1)+smax+copy(s,imin+dmin,imax-imin-dmin)+smin+copy(s,imax+dmax,length(s))
else sn:=copy(s,1,imax-1)+smin+copy(s,imax+dmax,imin-imax-dmax)+smax+copy(s,imin+dmin,length(s));
write(sn);
readkey
end.
0
0 / 0 / 0
Регистрация: 07.12.2011
Сообщений: 5
11.12.2011, 11:15  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2011, 11:15

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить в предложении слова максимальной и минимальной длины и поменять их местами. C
Доброе время суток!:) Уважаемы программисты, помогите, пожалуйста решить задачу: Дана строка...

Строка: Поменять в данной строке второе слово и слово минимальной длины...
Поменять в данной строке второе слово и слово минимальной длинны (первое по порядку)

Дана строка символов. Определить, содержит ли слово минимальной длины заданную с клавиатуры букву
Помоги девчушке-блондинке с задачками! Ну никак не понимаю(((( Буду весьма благодарна,если...

Строка: Поменять местами слово, содержащее максимальное число гласных и слово с минимальной длиной.
1)Поменять местами слово, содержащее максимальное число гласных и слово с минимальной длиной....


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

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

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