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

Поменять местами слова, стоящие на четных местах, со словами, стоящими на нечетных местах

11.11.2011, 13:17. Просмотров 1617. Ответов 6
Метки нет (Все метки)

В заданном предложении, составленном из нескольких слов, поменяйте местами слова, стоящие на четных местах, со словами, стоящими на нечетных местах.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2011, 13:17
Ответы с готовыми решениями:

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

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

В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах
В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на...

Поменять местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных
в данном массиве из 8 целых чисел поменять местами элементы стоящие на нечётных местах с...

6
2853 / 1982 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
11.11.2011, 14:13 2
kydriashka17,
 Комментарий модератора 
Называйте темы информативно
0
Почетный модератор
7951 / 3922 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2011, 19:02 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
uses crt;
var s, sl, buf: string;
    a: array [1..100] of string;
    i, j,  ks: integer;
begin
     write ('s=');
     readln (s);
     s:=s+' ';
     sl:='';
     j:=1;
     for i:=1 to length(s) do
         if s[i]<>' ' then sl:=sl+s[i]
            else
                begin
                      a[j]:=sl;
                      sl:='';
                      inc(j);
                end;
     ks:=j;
     j:=1;
     while j<ks-1 do
         begin
              buf:=a[j];
              a[j]:=a[j+1];
              a[j+1]:=buf;
              j:=j+2;
         end;
     for j:=1 to ks do
     write (a[j],' ');
end.
1
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 13
12.11.2011, 08:08  [ТС] 4
только с помощью процедур это записать надо
0
Почетный модератор
7951 / 3922 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
12.11.2011, 15:55 5
[kydriashka17, quote=kydriashka17;2161799]с помощью процедур[/quote] - имеются в виду стандартные процедуры для работы со строками, или процедуры, которые Вам необходимо создась самостоятельно?
0
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 13
15.11.2011, 19:24  [ТС] 6
Создать самостоятельно.
0
КонецСвета
15.11.2011, 19:26     Поменять местами слова, стоящие на четных местах, со словами, стоящими на нечетных местах
  #7

Не по теме:

kydriashka17, слабо секу я в процедурах. Буду думать...

0
15.11.2011, 19:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2011, 19:26
Привет! Вот еще темы с ответами:

В массиве поменять местами элементы, стоящие на нечетных местах, с элементами, стоящими на четных
Программирование с использованием массивов Цель работы: научиться описывать различные массивы,...

Ввести массив а[1], а [2].а[n] целых чисел.Поменять в нем местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных
Ввести массив а, а , .... а целых чисел. Поменять в нем местами соседние элементы, стоящие на...

В произвольном тексте из файла переставить местами слова стоящие на нечетных и четных местах и вывести в файл
Здравствуйте помогите с задачей что то не могу додуматься как сделать. В произвольном тексте из...

В массиве поменять местами соседние элементы, стоящие на нечетных местах со стоящими на четных
уважаемые программисты помогите решить пару детских задач : 1`) Дан массив положительных чисел....


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

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

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