Двухмерный массив

[briko]

2ой день ломаю голову через 3 дня зачет, а вам наверно на 5 минут делов
Даны целые положительные числа M,N и набор из М чисел. Сформировать матрицу размера МхN у которой в каждом столбце содержатся все числа из исходного набора( в том же порядке).

[p51x]

for i := 1 to N do
  for j := 1 to M do
    Matr[i, j] := Vector[j];

П.С. Перечитал ваш пост внимательно: разберитесь с условием! Если размерность выходной матрицы МхN и надо в столбец писать "набор из М чисел", то задача не корректна.

[Grag]

Собственно, а что в задаче не корректного???
Нужно сформировать матрицу из M(строк) Х N(столбцов)... Задан вектор из M элементов... Каждый N-й столбец матрицы содержит вектор из M элементов... просто все элементы каждой строки будут равны друг другу...
Из Вики:
"У каждого элемента матрицы есть 2 нижних индекса (aij) — первый «i» обозначает номер строки, в которой находится элемент, а второй «j» — номер столбца."
В нашем случае I - это M, а J - это N....

[p51x]

2 Grag
Увлекся, задумался... виноват, перепутал немного.

[briko]

большое спасибо ребят но не могли бы вы написать весь текс программы ибо мои знания паскаля не позволяют мне сделать этого
Program P3;
var matr: array [1..10,1..10] of real;
vector: array [1..10] of real;
i,j,n, m : integer;
begin
readln(n);
readln(m);
begin
for i := 1 to N do
for j := 1 to M do
Matr[i, j] := Vector[j];
write (matr[i,j]:3:3);
end;
readln;
end.

вот такая собственно ахинея у меня получается...

[Serge_Bliznykov]

ну, в принципе, всё верно!
Только надо
1) обеспечить заполнение массива Vector (в котором должны находится набор из М чисел
2) размерность массивов я бы сделал побольше, ну, хотя бы [1..100,1..100]
3) проверка на то, что введённые N и M меньше максимально допустимой размерности - явно не помешает:

const  MaxSize = 100;
var matr: array [1..MaxSize,1..MaxSize] of real;
vector: array [1..MaxSize] of real;

4) и последнее.
вывести матрицу можно, например, так:

WriteLn('Полученная матрица: ');
for i := 1 to N do begin
  for j := 1 to M do
     Write(Matr[i, j]:5:2,' ');
  WriteLn;
end;

_____________________

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

(aij) — первый «i» обозначает номер строки, в которой находится элемент, а второй «j» — номер столбца."
В нашем случае I - это M, а J - это N....

2 Grag, коллега, а Вам тогда не кажется, что цикл по I должен быть от 1 до M, а по J от 1 до N ?!
типа так ???:

  for j:=1 to N do
    for i:=1 to M do
        Matr[i,j] := Vector[i];

[briko]

огоромное Вам спасибо! Вы меня очень выручили