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

[XuTpbIu]

Когда нажимаете кнопочку "создать новый проект", то выбираете не Application, а Console Wizard. Вставляете весь код и будет Вам счастье

[R_A_M_I_L7777777]

Спасибо огромное за помощь XuTpbIu!!!!!!!!!!!

Извеняюсь, но можное ее как нибудь через форму? Не консольное.

[Sazary]

но можное ее как нибудь через форму?

Кидаете на форму мемо (для матрицы) и эдит (для вектора).
Выделяете оттуда числа. А дальше то же самое.
Потом выводите конечную матрицу заместо исходной.

Или стринггрид можно использовать.

[R_A_M_I_L7777777]

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

Выделяете оттуда числа.

Или стринггрид можно использовать.

Это как? какие числа? В коде менять счто ни будь надо? Форма так должна выглядить?

[Sazary]

Поменяется только ввод-вывод.

Форма так должна выглядить?

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

Небольшой пример:
Пусть есть грид 3 на 3.
Вводите туда матрицу.

const n=3;

var a : array[1..n,1..n] of integer;
i,j : integer;
begin
for i:=1 to n do
 for j:=1 to n do
  a[i,j] := StrToInt(StringGrid1.Cells[j-1,i-1]);

Теперь в a - наша матрица.

[R_A_M_I_L7777777]

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

Поменяется только ввод-вывод.


.

А где именно он поменяется можете в коде исправить эти места?
И как связать форму с кодом? Ведь код формы находится в unit1. А наш код в Project1.

[Sazary]

А где именно он поменяется можете в коде исправить эти места?

Вы знаете что такое ввод-вывод?
Вот операторы ввода-вывода и нужно заменить.

И как связать форму с кодом? Ведь код формы находится в unit1. А наш код в Project1.

Достаточно поместить код в какой-нибудь обработчик. Например, в обработчик кнопки.

[R_A_M_I_L7777777]

InToStr и StrToInt??? Это операторы?? Если честно я незнаю

Допустим

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:');// Вместо этого пишем InToStr:=('Ar:')так чтоли?
  for I := 1 to N do
  begin
    for J := 1 to N do
    begin
      Write(Ar[i][J], ' ');//Вместо этого пишем InToStr:=(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]

InToStr и StrToInt??? Это операторы??

Это функции преобразования строки в число и обратно.

http://ru.wikipedia.org/wiki/Ввод/вывод
Да, вы правильно обозначили места (почти все).
Но заменять нужно не только процедуры (writeln, readln), а полностью блок, отвечающий за ввод или вывод.
И вот это:

Ar[i][6] := Vector[i];//тут??

например, заменять не нужно. Это связано с вычислениями, а не с выводом.

[R_A_M_I_L7777777]

Дааа... мне этого так быстро не понять... Преподовательница отшлепает меня если я до конца этой недели не зделаю ей это))))