из одномерного массива сделать матрицу

[Шико]

ДАн одномерный массив из 12 членов, надо сделать из нгео матрицу 3на4. ЗАранее спс за помощь в решении. ХОтя бы подскажите как это делать) Ума не приложу. СРазу оговорю, что преподу 3 writeln сразу после read е понравились))
ЗЫ паскаль зло.

[puporev]

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

uses crt;
const n=3;
      m=4;
var a:array[1..n*m] of integer;
    b:array[1..n,1..m] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
for i:=1 to n*m do
   begin
     a[i]:=random(10);
     write(a[i],' ');
   end;
writeln;
writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to m do
       begin
         b[i,j]:=a[j+m*(i-1)];
         write(b[i,j]:3);
       end;
     writeln;
   end;
readln
end.

[Arkuz]

Самый простой вариант...

program Project1;
var mas:array[1..12] of integer;
    mas1:array[1..3,1..4] of integer;
    b:integer;
begin
 randomize;
 write('Odnomernii massiv: ');
 for b:=1 to 12 do      //
 begin                  // zapolnenie
   mas[b]:=random(9);   //      odnomernogo
   write(mas[b],' ');   //              massiva
 end;                   //
 readln;

 for b:=1 to 4 do mas1[1,b]:=mas[b];   // perenos
 for b:=5 to 8 do mas1[2,b]:=mas[b];   //    v dvumernii
 for b:=9 to 12 do mas1[3,b]:=mas[b];  //            massiv

 writeln;                                // vivod
 writeln('Dvumernii massiv: ');          //
 for b:=1 to 4 do write(mas1[1,b],' ');  //
 writeln;                                // vivod
 for b:=5 to 8 do write(mas1[2,b],' ');  //
 writeln;                                //
 for b:=9 to 12 do write(mas1[3,b],' '); // vivod
 writeln;
 readln;
end.

[puporev]

А если матрица 50х50, тоже так будешь переносить?

[Stilet]

А как вам такое решение, Господа?

uses crt;
var a:array[1..12] of byte;
 e,i:integer;
 b:array[1..3,1..4] of byte;
begin    clrscr;
 for i:=1 to 12 do begin a[i]:=i;write(a[i]:3);end;
 for i:=1 to 3 do  move(a[(i-1)*3+i],b[i,1],5);
 writeln;writeln;
 for i:=1 to 3 do begin
   for e:=1 to 4 do write(b[i,e]:3);
   writeln;
 end;
 readln;
 end.

Преподу конечно не понравится но по-моему прикольное.

[Arkuz]

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

А если матрица 50х50, тоже так будешь переносить?

я сделал для частного случая... Я и не думал над тем как по формуле для общего случая сделать... сказали 3X3 или как там я и сделал!

[Arkuz]

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

А как вам такое решение, Господа?

Забавно...
Изголяемся как хотим над куском кода...
У кого на что фантазии хватит...
Садисты мы все тут!

[Serge_Bliznykov]

думаю, что препод ждёт что-то вроде такого:

var
  a:array[1..12] of byte;
  b:array[1..3,1..4] of byte;
  i,j :integer;
  ii, jj : integer; {индексы для двухмерного массива}
begin
 {заполнение исходной матрицы
   последовательными числами от 1 до 12 и вывод их на экран}
 for i:=1 to 12 do
   begin
     a[i]:=i;
     write(a[i]:3);
   end;
 WriteLn;


 {преобразовать одномерный массив в двухмерный}
 for i:=1 to 12 do begin
   ii := ((i-1) div 4) + 1;
   jj := ((i-1) mod 4) + 1;
   b[ ii, jj] := a[i];
 end;

 {вывести результат}
 WriteLn;
 for i:=1 to 3 do begin
   for j:=1 to 4 do
     write(b[i,j]:3);
   writeln;
 end;
 readln
end.

[alexBlack]

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

Забавно...
Изголяемся как хотим над куском кода...
У кого на что фантазии хватит...
Садисты мы все тут!

Автору: Преподавателю не показывайте. Он явно не этого ждет

move(a, b, sizeOf(a));

type 
  TArray = array [1..3,1..4] of byte;
  ...
   b := TArray(a);