[Supra0991]

Привет всем! я глухих. ну не грамота пишу.
обьясни
что это такое

uses
SysUtils;

type MyArray= array of array of real;
MyArray_X = array of longint;
вот это красный выделеник какой компонент?
procedure Step_Dual_simplex(var a:MyArray; m,n,i1,j1:integer);
{производит один шаг двойственного симплекс-метода,
ведущий элемент - a[i1,j1]}
var i,j:integer;
b,b1:array of real;
begin
SetLength(b,m);Setlength(b1,n);
for i:=0 to m-1 do b[i]:=a[i,j1];
for i:=0 to n-1 do b1[i]:=a[i1,i];
for i:=0 to m-1 do
for j:=0 to n-1 do begin
if (i=i1) and (j=j1) then a[i,j]:=1/b[i1]
else
if (i=i1) then a[i,j]:=b1[j]/b[i1]
else
if (j=j1) then a[i,j]:=-b[i]/b[i1]
else a[i,j]:=a[i,j]-b[i]*b1[j]/b[i1];
end;
for i:=0 to n-1 do a[i1,i]:=0;a[i1,j1]:=-1;
Finalize(b);Finalize(b1);
end;
это как понят?
function Lexikogr_few(a:MyArray; m,n:integer;i,i1:integer):boolean;
{первый столбец лексикографически меньше второго}
var j:integer;
begin
Lexikogr_few:=false;
j:=0;
while (a[j,i]=a[j,i1]) and (j<m-1) do Inc(j);
if (j<m-1) and (a[j,i]<a[j,i1]) then Lexikogr_few:=true;
end;

внутри документ есть много но какой ставить компонент?? помоги

[Страдалецъ]

1.Это не компонент, это описание пользовательской процедуры с именем Step_Dual_simplex. Далее в коде, скорее есть вызов этой процедуры по ее имени с параметрами.

2. function Lexikogr_few(a:MyArray; m,n:integer;i,i1:integer):boolean;
Это тоже описание, но уже функции. Отличается процедура от функции тем, что первая не возвращает данных, а вторая возвращает. (но тут есть свои тонкости, которые вам еще предстоит изучить)

Вообще ваши вопросы относятся к основам программирования, вы можете без особых проблем купить литературу для начинающих практически в любом книжном магазине.

[Bars1992]

Сообщение от Страдалецъ

Вообще ваши вопросы относятся к основам программирования, вы можете без особых проблем купить литературу для начинающих практически в любом книжном магазине.

А если вы бедный студент тогда просто скачайте