2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
1

Массив. Вывести элеметы с нечётными номерами в порядке убывания номеров

28.04.2012, 20:04. Показов 4187. Ответов 20
Метки нет (Все метки)

дан массив А размера N (N нечётное число). Вывести его элеметы с нечётными номерами в порядке убывания номеров: Аn, An-2,An-4,.....,A1, а затем все элементы с чётными номерами в порядке возврастания.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2012, 20:04
Ответы с готовыми решениями:

Вывести вначале элементы массива с нечетными номерами в порядке возрастания номеров, затем - элементы с четными в порядке убывания номеров
дан массив А размера N.вывести вначале элементы с нечетными номерами в порядке возрастания...

Вывести элементы с нечетными номерами в порядке возрастания номеров, а затем - элементы с четными номерами в порядке убывания номеров
Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания...

Вывести элементы массива с нечетными номерами в порядке номеров
Дан массив А размера N(n - нечетное число). Вывести его элементы с нечетными номерами в порядке...

Массив: Вывести его элементы с нечетными номерами в порядке убывания номеров
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

20
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.04.2012, 20:38 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
24
25
26
27
28
29
30
31
uses crt;
const nmax=25;
var a: array [1..nmax] of integer;
    n,i: integer;
begin
repeat
write('Количество элементов, не более ',nmax,', нечетное число, n=');
readln(n);
until (n in [1..nmax]) and (odd(n));
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:3);
    end;
writeln;
writeln('Итоговый массив');
i:=n;
while i>=1 do
      begin
      write(a[i]:3);
      i:=i-2;
      end;
i:=2;
while i<n do
      begin
      write(a[i]:3);
      i:=i+2;
      end;
readln;
end.
1
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
02.05.2012, 17:01  [ТС] 3
КонецСвета, Спасибо , но код работает не правильно можешь просмотреть еще?
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.05.2012, 17:08 4
masa1, а что неправильно? вроде все по условию...
Миниатюры
Массив. Вывести элеметы с нечётными номерами в порядке убывания номеров  
1
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
02.05.2012, 17:11  [ТС] 5
КонецСвета, а да прости, а можешь сделать все это на основе генератора случайных чисел?
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.05.2012, 17:15 6
вот он, генератор случайных чисел в диапазоне от -9 до 9
Цитата Сообщение от КонецСвета Посмотреть сообщение
a[i]:=random(19)-9;
если паскаль турбо, надо еще в начале программы прописать randomize;
1
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
03.05.2012, 20:42  [ТС] 7
Можете составить блок-схему для данной задачи, пожалуйста?
0
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
12.05.2012, 20:11  [ТС] 8
Можете составить блок-схему для данной задачи, пожалуйста?
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 570
12.05.2012, 20:28 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от masa1 Посмотреть сообщение
Можете составить блок-схему для данной задачи, пожалуйста?
можем
Миниатюры
Массив. Вывести элеметы с нечётными номерами в порядке убывания номеров  
0
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
16.05.2012, 15:18  [ТС] 10
Paster Fob,
можно в excel?)
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 570
16.05.2012, 19:50 11
Цитата Сообщение от masa1 Посмотреть сообщение
Paster Fob,
можно в excel?)
можно
http://rghost.ru/38118954
0
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
24.05.2012, 21:21  [ТС] 12
КонецСвета, для решения задачи нужно провести сортировку массмива и вывести преобразованный массив на экран с помощью команды : for i:=1 to n do;
write(a[i]:3)'
0
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
24.05.2012, 21:34 13
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

masa1, могу сделать только с вспомогательным массивом... пойдет?
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;
const nmax=25;
var a,b: array [1..nmax] of integer;
    n,i,e,buf: integer;
    
begin
repeat
write('Количество элементов, не более ',nmax,', нечетное число, n=');
readln(n);
until (n in [1..nmax]) and (odd(n));
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:3);
    end;
writeln;
writeln('Итоговый массив');
i:=n; e:=0;
while i>=1 do
      begin
      inc(e);
      b[e]:=a[i];
      i:=i-2;
      end;
i:=2;
while i<n do
      begin
      inc(e);
      b[e]:=a[i];
      i:=i+2;
      end;
for i:=1 to n do
    write(b[i]:3);
readln;
end.
0
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
24.05.2012, 21:37  [ТС] 14
КонецСвета, не пойдет
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
26.05.2012, 17:30 15
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,j,n,tmp,k,u: integer;
begin
  randomize;
  repeat
    write('Введите размер массива N (N - нечетное число): ');
    readln(n);
  until (n mod 2<>0);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
  end;
  writeln;
 
  j:=n; k:=n; u:=0;
  for i:=1 to n div 2 do
  begin
    begin
      tmp:=a[k];
      for j:=n-u downto i+1 do
        a[j]:=a[j-1];
      dec(k);
      inc(u);
      a[i]:=tmp;
    end;
  end;
 
  writeln('Измененный массив:');
  for i:=1 to n do
    write(a[i],' ');
  readln;
end.
1
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
28.05.2012, 16:17  [ТС] 16
ermolay, тут сортировка не обязательна?
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
28.05.2012, 17:05 17
Цитата Сообщение от masa1 Посмотреть сообщение
тут сортировка не обязательна?
тут мы берем массив и сортируем его так, как того требует задание.. то есть тут мы применяем свою собственную сортировку..
0
2 / 2 / 0
Регистрация: 28.04.2012
Сообщений: 52
29.05.2012, 21:34  [ТС] 18
ermolay, это в какой части?
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
29.05.2012, 22:22 19
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
j:=n; k:=n; u:=0;
  for i:=1 to n div 2 do
  begin
    begin
      tmp:=a[k];
      for j:=n-u downto i+1 do
        a[j]:=a[j-1];
      dec(k);
      inc(u);
      a[i]:=tmp;
    end;
  end;
Добавлено через 2 минуты

хорошо, что глянул свежим взглядом, пара строк здесь лишние.. не ошибка, но и не к чему
Pascal
1
2
3
4
5
6
7
8
9
10
j:=n; k:=n; u:=0;
  for i:=1 to n div 2 do
  begin
      tmp:=a[k];
      for j:=n-u downto i+1 do
        a[j]:=a[j-1];
      dec(k);
      inc(u);
      a[i]:=tmp;
  end;
0
1 / 1 / 0
Регистрация: 21.09.2015
Сообщений: 79
21.09.2015, 09:29 20
А можно эту же задачу только с условными оператороми
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.09.2015, 09:29
Помогаю со студенческими работами здесь

Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN,
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
Оформить в виде функции. Дан массив А размера N (N-нечетное число). Вывести его элементы с...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
помогите, пожалуйста!:help: Дано массив А размера n (n-нечетное число) вывести его элементы с...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
Помогите пожалуйста,нужна программа.Пишу сама,выдает runtime error 105.Может знаете,что за ошибка?...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
.Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...


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

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

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