Решить 2 мерный массив

24.11.2009, 17:26. **Показов** 1367. **Ответов** 11

Студворк — интернет-сервис помощи студентам

Задача такая " даны три двух мерных массива A B C числа рандомные и дан массив D.... Нужно сделать что бы Каждый из массивов A,B,C собрал из своего массива все числа в единое И вывел в массив D как то вот так D=[A,B,C].

@кот Бегемот · 24.11.2009, 17:55

А сколько столбцов и строк будет? Они ведь разными могут быть A,B,C и что значит D[A,B,C]- трехмерный массив?

@Давид · 24.11.2009, 18:01

Да врятли тут трехмерный массив...скорее всего имеется ввиду множество чисел массивов А,В,С.
Хотя написана полная неразбириха.

@Тамила · 24.11.2009, 18:06

что значит "собрал в единое N"? Сложить что ли?

@Давид · 24.11.2009, 18:13

Тамила, Не знаю, мне кажется имеется ввиду - вывод всех елементов - которые содержаться во всех трех матрицах, и если я не ошибаюсь то могу предложить свое решение.

Pascal

uses crt;
const m=5;
      n=4;
var a,b,c:array [1..m,1..n] of integer;
    d:array [1..100] of integer;
    i,j:integer;
begin
clrscr;
randomize;
repeat
until m in [1..50];
repeat
until n in [1..50];
writeln;
writeln('Isxodnaja matrica A:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
repeat
until m in [1..50];
repeat
until n in [1..50];
writeln;
writeln('Isxodnaja matrica B:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
    write(b[i,j]:4);
   end;
  writeln;
 end;
writeln;
repeat
until m in [1..50];
repeat
until n in [1..50];
writeln;
writeln('Isxodnaja matrica C:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
    write(c[i,j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to m do
  for j:=1 to n do begin
  d[i]:=a[i,j];
  write (d[i],' ');
  d[i]:=b[i,j];
  write (d[i],' ');
  d[i]:=c[i,j];
  write (d[i],' ');
  end;
readln
end.

@кот Бегемот · 24.11.2009, 19:34

Подозрительное решение, но принимаю за правильное, потому что не хочется браться самому.

24.11.2009, 19:51

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

А сколько столбцов и строк будет? Они ведь разными могут быть A,B,C и что значит D[A,B,C]- трехмерный массив?

Выводится массив D В котором Выводиться [сумма А всех массивов, сумма Б масивов и С массивов]

@Давид · 24.11.2009, 19:57

Kostikee,

[сумма А всех массивов, сумма Б масивов и С массивов]

Это как вообще понять можно?

@кот Бегемот · 24.11.2009, 20:05

Не по теме:

Это ещё что, я тут такую задачу пытался решить:

даны 2 массива, в каждом минимальный встречается раньше.
Результат вывести в виде: массив А, массив В, min.

А вам слабо?

@Давид · 24.11.2009, 20:07

alexevt,

Не по теме:

хахах!:D И как успехи?

@кот Бегемот · 24.11.2009, 20:09

Голову сломал

@Давид · 24.11.2009, 21:31

Kostikee, Вот - переделал программу как вам надо!проверяйте.

Pascal

uses crt;
const m=5;
      n=4;
var a,b,c:array [1..m,1..n] of integer;
    d:array [1..100] of integer;
    i,j:integer;
begin
clrscr;
randomize;
repeat
until m in [1..50];
repeat
until n in [1..50];
writeln;
writeln('Isxodnaja matrica A:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
repeat
until m in [1..50];
repeat
until n in [1..50];
writeln;
writeln('Isxodnaja matrica B:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
    write(b[i,j]:4);
   end;
  writeln;
 end;
writeln;
repeat
until m in [1..50];
repeat
until n in [1..50];
writeln;
writeln('Isxodnaja matrica C:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=random(100);{заполним матрицу случайными числами в инт[0,99]}
    write(c[i,j]:4);
   end;
  writeln;
 end;
writeln;
Write (' Massiv D -> ');
for i:=1 to m do
  for j:=1 to n do begin
  d[i]:=a[i,j]+b[i,j]+c[i,j];
  write (d[i],' ');
  end;
readln
end.

Kostikee
		1
	Решить 2 мерный массив 24.11.2009, 17:26. Показов 1367. Ответов 11 Метки нет (Все метки) Задача такая " даны три двух мерных массива A B C числа рандомные и дан массив D.... Нужно сделать что бы Каждый из массивов A,B,C собрал из своего массива все числа в единое И вывел в массив D как то вот так D=[A,B,C].

@кот Бегемот Платежеспособный зверь 8821 / 4248 / 1618 Регистрация: 28.10.2009 Сообщений: 11,389
	24.11.2009, 17:55	2
	А сколько столбцов и строк будет? Они ведь разными могут быть A,B,C и что значит D[A,B,C]- трехмерный массив? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	24.11.2009, 18:01	3
	Да врятли тут трехмерный массив...скорее всего имеется ввиду множество чисел массивов А,В,С. Хотя написана полная неразбириха. 0

@Тамила 753 / 546 / 211 Регистрация: 12.11.2009 Сообщений: 1,100
	24.11.2009, 18:06	4
	что значит "собрал в единое N"? Сложить что ли? 0

@кот Бегемот Платежеспособный зверь 8821 / 4248 / 1618 Регистрация: 28.10.2009 Сообщений: 11,389
	24.11.2009, 19:34	6
	Подозрительное решение, но принимаю за правильное, потому что не хочется браться самому. 0

Kostikee
	24.11.2009, 19:51	7
	Сообщение от alexevt А сколько столбцов и строк будет? Они ведь разными могут быть A,B,C и что значит D[A,B,C]- трехмерный массив? Выводится массив D В котором Выводиться [сумма А всех массивов, сумма Б масивов и С массивов]

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	24.11.2009, 19:57	8
	Kostikee, [сумма А всех массивов, сумма Б масивов и С массивов] Это как вообще понять можно? 0

@кот Бегемот
	24.11.2009, 20:05 #9
	Не по теме: Это ещё что, я тут такую задачу пытался решить: даны 2 массива, в каждом минимальный встречается раньше. Результат вывести в виде: массив А, массив В, min. А вам слабо? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	24.11.2009, 20:07	10
	alexevt, Не по теме: хахах!:D И как успехи? 0

@кот Бегемот Платежеспособный зверь 8821 / 4248 / 1618 Регистрация: 28.10.2009 Сообщений: 11,389
	24.11.2009, 20:09	11
	Голову сломал 0

Опции темы