Массивы

@Lacerta992 · Регистрация: 09.06.2010

Помогите пожалуйста справится с это задачей . не получается .

задача: даны два массива А и B одинаковой размерности. Сформировать третий массив С, образованный из двух данных следующим образом: С(A1, B1, A2, B2,...).

@Mиxaил · 09.06.2010, 17:32

Pascal

const n=4;
var a,b:array[1..n] of integer;
    c:array[1..2*n] of integer;
    i,m,k:integer;
begin
for i:=1 to n do
  begin
    write('a[',i,'] = ');
    readln(a[i]);
    write('b[',i,'] = ');
    readln(b[i]);
  end;
m:=1;
k:=1;
for i:=1 to 2*n do
  if odd(i) then 
    begin
      c[i]:=a[m];
      inc(m);
    end
  else
    begin
      c[i]:=b[k];
      inc(k);
    end;
for i:=1 to 2*n do
  write(c[i]:3);
readln;
end.

@Mad_Dog · 09.06.2010, 17:40

А я бы массив C заполнил бы вот так:

Pascal

for i:=1 to N do
  begin
    C[2*i-1]:=A[i];
    C[2*i]:=B[i]
  end;

@Mиxaил · 09.06.2010, 17:56

Сообщение от Mad_Dog

А я бы массив C заполнил бы вот так:

Pascal

for i:=1 to N do
  begin
    C[2*i-1]:=A[i];
    C[2*i]:=B[i]
  end;

тоже вариант

@Lacerta992 · 09.06.2010, 18:25 **[ТС]**

а ответ выводит такой

a[1] = 1
b[1] = 2
a[2] = 3
b[2] = 4
a[3] = 5
b[3] = 6
a[4] = 7
b[4] = 8
1 2 3 4 5 6 7 8

разве он не должен выводить как массивы или я что то не правильно сделал

@Mиxaил · 09.06.2010, 19:25

все правильно выводит

@SpiritD · 09.06.2010, 19:30

помогите пожалуст написать прогрмку обезательно с процедурами и функциями.
Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. В противном случае все отрицательные элементы матрицы возвести в квадрат.

@Lacerta992 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 8
		1
	Массивы 09.06.2010, 17:19. Просмотров 430. Ответов 6 Метки нет (Все метки) Помогите пожалуйста справится с это задачей . не получается . задача: даны два массива А и B одинаковой размерности. Сформировать третий массив С, образованный из двух данных следующим образом: С(A1, B1, A2, B2,...). 0

@Lacerta992 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 8
	09.06.2010, 18:25 [ТС]	5
	а ответ выводит такой a[1] = 1 b[1] = 2 a[2] = 3 b[2] = 4 a[3] = 5 b[3] = 6 a[4] = 7 b[4] = 8 1 2 3 4 5 6 7 8 разве он не должен выводить как массивы или я что то не правильно сделал 0

@Mиxaил 538 / 443 / 162 Регистрация: 10.12.2009 Сообщений: 1,857
	09.06.2010, 19:25	6
	все правильно выводит 1

@SpiritD 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 3
	09.06.2010, 19:30	7
	помогите пожалуст написать прогрмку обезательно с процедурами и функциями. Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. В противном случае все отрицательные элементы матрицы возвести в квадрат. 0

Опции темы