Задачка на Делфи

[R_A_M_I_L7777777]

Помогите с задачкой плиз!
Даны числа а(1),.....а(n) и квадратная матрица порядка n (n>=6). Получить матрицу размера n*(n+1), вставив в исходную матрицу между пятым и шестым столбцами новый столбец с элементами а(1),...а(n)

[Sazary]

Если двумерный массив (матрица) статичный, то просто сдвигаете все столбцы >=6 вправо (по одному, начиная с последнего) на 1 позицию и на место 6-го вставляете вектор a.

[R_A_M_I_L7777777]

Мне бы сам код сделать а то я не очень в делфи.

[Sazary]

а то я не очень в делфи.

Напишите как можете. Что непонятно - спрашивайте.

Объявляете массив и вектор.
В цикле заполняете массив. Потом вектор.
цикл j от n+1 до 6
 цикл i от 1 до n
  элемент[i,j] = элемент[i,j-1]
цикл i от 1 до n
 элемент[i,6] = элемент вектора[i]

Также можете воспользоваться поиском и найти примеры похожих программ.
Например, http://programmersforum.ru/showthrea...EE%EB%E1%E5%F6

[R_A_M_I_L7777777]

Спасибо за поиск. Но я тока начил изучать Делфи и ваще программирование, не смогли бы вы мне эту программу полностью написать. Был бы премного блогадарен. За ранее спсибо!!!!

[XuTpbIu]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  N = 6;
var
  Ar: array [1..N, 1..N] of Byte;
  Vector: array[1..N] of Byte;
  I, J: Integer;
begin
  Randomize;
  for I := 1 to N do
  begin
    Vector[I] := Random(9);
    for J := 1 to N do
      Ar[I, J] := Random(9);
  end;

  writeln('Ar:');
  for I := 1 to N do
  begin
    for J := 1 to N do
    begin
      Write(Ar[I][J], ' ');
    end;
    Writeln;
  end;
  Write('Vector = ( ');
  for I := 1 to N do
    Write(Vector[I], ' ');
  Writeln(')');

  if N > 6 then
	  for I := 1 to N do
  	  for J := N downto 7 do
    	  Ar[I][J] := Ar[I][J - 1];
  for I := 1 to N do
    Ar[I][6] := Vector[I];


  writeln('Ar:');
  for I := 1 to N do
  begin
    for J := 1 to N do
    begin
      Write(Ar[I][J], ' ');
    end;
    Writeln;
  end;
  Write('Vector = ( ');
  for I := 1 to N do
    Write(Vector[I], ' ');
  Writeln(')');



	Readln;
end.

[Sazary]

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

Но я тока начил изучать Делфи и ваще программирование, не смогли бы вы мне эту программу полностью написать.

Значит, изучение программирования для вас состоит в поиске готовых решений? Немногому же вы научитесь..

[R_A_M_I_L7777777]

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

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  N = 6;
var
  Ar: array [1..N, 1..N] of Byte;
  Vector: array[1..N] of Byte;
  I, J: Integer;
begin
  Randomize;
  for I := 1 to N do
  begin
    Vector[I] := Random(9);
    for J := 1 to N do
      Ar[I, J] := Random(9);
  end;

  writeln('Ar:');
  for I := 1 to N do
  begin
    for J := 1 to N do
    begin
      Write(Ar[I][J], ' ');
    end;
    Writeln;
  end;
  Write('Vector = ( ');
  for I := 1 to N do
    Write(Vector[I], ' ');
  Writeln(')');

  if N > 6 then
	  for I := 1 to N do
  	  for J := N downto 7 do
    	  Ar[I][J] := Ar[I][J - 1];
  for I := 1 to N do
    Ar[I][6] := Vector[I];


  writeln('Ar:');
  for I := 1 to N do
  begin
    for J := 1 to N do
    begin
      Write(Ar[I][J], ' ');
    end;
    Writeln;
  end;
  Write('Vector = ( ');
  for I := 1 to N do
    Write(Vector[I], ' ');
  Writeln(')');



	Readln;
end.

Оооо... А это Паскаль??? Мне бы на Делфи. Пожалуйста помогите.

[XuTpbIu]

нет это делфи. Создано консольно приложение

[R_A_M_I_L7777777]

Извените за тупость.
А как это? Я просто взял и скопировал код и вставил его в Unit1. Неполучается. Как мне его реализовать?