Процедуры и функции

[andriy1048]

Помогите пожалуйста!!!

Дано действительную матрицу X (n, n), n <= 20. Разработать программу побудовы вектора Y (i), i = 1,2, ..., n, по правилу: Y (i) равна произведению квадратов тех элементов i -й строки матрицы, модули которых принадлежат промежутку [a, b], если таких элементов нет, то Y (i) = 0. Использовать процедуру построения вектора и функцию для вычисления произведения квадратов элементов. Напечатать вектор по пять элементов в строке.

[newerow1989]

const n=20;
      a=3;
      b=7;
var x:array[1..n,1..n] of integer;
    y:array[1..n] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         x[i,j]:=-10+Random(21);
         Write(x[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      s:=0;
      For j:=1 to n do
         If (Abs(x[i,j])>=a) and (Abs(x[i,j])<=b) then
            s:=s+x[i,j]*x[i,j];
      y[i]:=s;
      Write(y[i],'  ');
      If i mod 5=0 then
         Writeln;
   end;
   Readln;
end.

Сойдет?

[andriy1048]

А в форме как запишется код?

[newerow1989]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const n=20;
      a=3;
      b=7;
var x:array[1..n,1..n] of integer;
    y:array[1..n] of integer;
    i,j:integer;

function pr(i:integer):integer;
begin
   Result:=0;
   For j:=1 to n do
      If (Abs(x[i,j])>=a) and (Abs(x[i,j])<=b) then
         Result:=Result+x[i,j]*x[i,j];
end;

procedure vec;
begin
   For i:=1 to n do
      y[i]:=pr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Randomize;
   Label1.Caption:='';
   Label2.Caption:='';
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         x[i,j]:=-10+Random(21);
         Label1.Caption:=Label1.Caption+'  '+IntToStr(x[i,j]);
      end;
      Label1.Caption:=Label1.Caption+#13#10;
   end;
   vec;
   For i:=1 to n do
   begin
      Label2.Caption:=Label2.Caption+'  '+IntToStr(y[i]);
      If i mod 5=0 then
         Label2.Caption:=Label2.Caption+#13#10;
   end;
end;

end.

[andriy1048]

Большое спасибо вам))) Приятно, что в России есть такие приятные люди, которые способны выручить))) Ещё раз большое спасибо вам!

[newerow1989]

Пожалуйста!

[andriy1048]

То как здесь быть с этими значениями? Рандом не подойдёт(((

[JUDAS]

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

То как здесь быть с этими значениями? Рандом не подойдёт(((

Чесно говоря не понял как работает код коллеги, но вроде показывает то, что в начальном задании

[andriy1048]

Что-то не то с этой прогой ((( Нужно отдельной процедурой и отдельной функцией...

[newerow1989]

4 пост я изменил сегодня утром