8 / 8 / 10
Регистрация: 16.10.2012
Сообщений: 523
1

Сформировать два массива, включив в первый элементы с четными индексами, во второй - с нечетными

28.10.2012, 19:46. Показов 1392. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать массив, сделать блок схему
25. Дан массив размерностью 10 из целых чисел. Сформировать два массива размерностью 5, включив в первый массив элементы с четными индексами, а во второй - с нечетными.

 Комментарий модератора 
Darkvoid, в следующий раз набирайте текстовое задание от руки (таково требование правил форума), а не заливайте файл с файлопомойки.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2012, 19:46
Ответы с готовыми решениями:

Сформировать два массива, включив в первый элементы исходного с четными индексами, а во второй - с нечетными
дан массив из 20 элементов. Сформировать два массива размером 10,включив в первый из них элементы...

Элементы массива X[N] с четными индексами увеличить на третий, а с нечетными – уменьшить на первый элемент
Элементы массива X с четными индексами увеличить на тре- тий, а с нечетными – уменьшить на первый...

В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными
Задан массив с количеством элементов N. Сформировать два массива: в первый включить элементы...

В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными
1) задан массив а размерности n. сформируйте два массива в и с: в первый включить элементы...

7
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 570
28.10.2012, 20:30 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
var a:array [1..10] of byte;
    b,c:array [1..5] of byte;
    i,j,e:byte;
begin
  j:=0;e:=0;
  for i:=1 to 10 do begin
    a[i]:=i;
    write(a[i],' ');
    if i mod 2 <> 0 then begin
      inc(j);
      b[j]:=i;
    end
    else begin
      inc(e);
      c[e]:=i;
    end;
  end;
  writeln;
  for i:=1 to 5 do
    write(b[i],' ');
  writeln;
  for i:=1 to 5 do
    write(c[i],' ');
  readln;
end.
0
8 / 8 / 10
Регистрация: 16.10.2012
Сообщений: 523
28.10.2012, 22:01  [ТС] 3
Блок схема?оО

Добавлено через 1 минуту
inc(*)-что это означает???и можно ли написать это по другому???
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
28.10.2012, 22:10 4
Цитата Сообщение от Darkvoid Посмотреть сообщение
inc(*)-что это означает???и можно ли написать это по другому???
Pascal
1
inc(i);
то же что и
Pascal
1
i:=i+1;
0
8 / 8 / 10
Регистрация: 16.10.2012
Сообщений: 523
29.10.2012, 11:31  [ТС] 5
мне пишет бешенную джигурду, выдает в строчку два массива с пятью единицами, могу скрин сделать

Добавлено через 26 минут
Программа то турбо паскаль, а не обычный

Добавлено через 11 минут
выдает в обычном паскале три правильный массива
1 2 3 4 5 6 7 8 9 10
1 3 5 7 9
2 4 6 8 10
в турбо паскале выдает тоже самое только вместо всех цифр тупо единицы
1 1 1 1 1 1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
29.10.2012, 12:05 6
Paster Fob, маленькая поправочка - элементами второго массива должны быть элементы первого массива с четными индексами, а не четные индексы первого массива (в третьем - аналогично). Если элементами первого будут неупорядоченные, то второй и третий также будут индексы выводить.

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
var a:array [1..10] of byte;
    b,c:array [1..5] of byte;
    i,j,e:byte;
begin
  j:=0;e:=0;
  for i:=1 to 10 do 
  begin
    a[i]:=i;
    write(a[i],' ');
    if i mod 2 = 0 then 
    begin
      inc(j);
      b[j]:=a[i];
    end
    else 
    begin
      inc(e);
      c[e]:=a[i];
    end;
  end;
  writeln;
  for i:=1 to 5 do
    write(b[i],' ');
  writeln;
  for i:=1 to 5 do
    write(c[i],' ');
  readln;
end.

Darkvoid,
Цитата Сообщение от Darkvoid Посмотреть сообщение
Программа то турбо паскаль, а не обычный
что вы подразумеваете под обычным?
У меня добросовестно работает программа и в турбо паскале, и в PascalABC.net

Скрин работы программы от Paster Fob
Миниатюры
Сформировать два массива, включив в первый элементы с четными индексами, во второй - с нечетными  
0
8 / 8 / 10
Регистрация: 16.10.2012
Сообщений: 523
29.10.2012, 15:06  [ТС] 7
А как блок схему сделать?
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.10.2012, 15:52 8
как-то так...
Миниатюры
Сформировать два массива, включив в первый элементы с четными индексами, во второй - с нечетными  
0
29.10.2012, 15:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2012, 15:52
Помогаю со студенческими работами здесь

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

Вывести в начале массива элементы с четными, а затем с нечетными индексами
Дан массив размера N.Вывести в начале его элементы с четными 1|нечетными 2 индексами,а затем с...

Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами
Задан массив размером K. Сформировать два массива, включая в первый четные элементы исходного...

Сформировать два массива: в первый включить элементы исходного с четными номерами, а во второй с нечетными
помогите пожалуйста решить задачи=) язык программирования паскаль №2) задан массив а размерности...


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

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

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