Заблокирован
1

Поменять местами первое и третье слово

27.01.2012, 23:03. Показов 2137. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано предложение. Поменять местами первое и третье слово. Определить их длину.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2012, 23:03
Ответы с готовыми решениями:

Поменять местами первое и третье слово
Дано предложение. Поменять местами первое и третье слово. Определить их длину.

Поменять местами первое и второе слова,третье и четвертое и т.д.
дано предложение. Поменять местами первое и второе слова,третье и четвертое и т.д.Если количество...

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

Поменять местами первое и последнее слово
Помогите написать программу. "Поменяйте местами первое и последнее слово" (ввод строк...

4
magirus
28.01.2012, 01:03
  #2
 Комментарий модератора 
на будущее, чтобы Вас не постигла судьба Найти количество цифр данного числа, больших А
читайте правила, и выполняйте их требования.
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.01.2012, 21:29 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var s,s2: string;
    i,ns: integer;
begin
write('s=');
readln(s);
s:=s+' ';
ns:=pos(' ',s)+1;
i:=ns;
while s[i]<>' ' do
      inc(i);
s2:=copy(s,ns,i-ns)+' ';
writeln(s2);
delete (s,ns,i-ns+1);
i:=ns;
while s[i]<>' ' do
      inc(i);
insert(s2,s,i+1);
write('s=',s);
readln;
end.
Добавлено через 1 час 11 минут
***Анастасия***, ошибка у меня, извини! меняю второе и третье... сейчас исправлю...
1
Заблокирован
28.01.2012, 21:33  [ТС] 4
ёда я проверила меняет второе и третье..только тут ещё надо найти длину слов..всё равно спасибо=))
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.01.2012, 21:55 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

вот переделанная, только поясни про длину слов - каждого слова? тогда совсем другое решение будет ....
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
uses crt;
var s,s1,s3: string;
    i,k,ns: integer;
begin
write('s=');
readln(s);
s:=s+' ';
s1:='';
while s[1]<>' ' do
      begin
      s1:=s1+s[1];
      delete(s,1,1);
      end;
k:=0; i:=0;
while k<2 do
      begin
      if s[i]=' ' then inc(k);
      inc(i);
      end;
ns:=i;
writeln(i);
while s[i]<>' ' do
      inc(i);
writeln(i);
s3:=copy(s,ns,i-ns);
delete (s,ns,length(s3));
insert(s1,s,ns);
insert(s3,s,1);
writeln('s=',s);
writeln('Длина  первого: ',length(s1));
writeln('Длина третьего: ',length(s3));
readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2012, 21:55
Помогаю со студенческими работами здесь

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

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

Поменять местами первое слово строки с последним
Помогите пожалуйста, срочно надо!!! Условие: Дана строка заканчивающаяся точкой, а слова в которой...

Поменять местами второе и третье слова
Помогите пожалуйста с задачкой! На вид задача не сложная, но со строками не могу никак...


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

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

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