- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
{$R-}
fal:=true;
ty:= length(mas1);
while(fal=true) do
for j:=0 to kp-1 do
begin
for i:=i+k+j to length(mas2)-1 do
begin
while mas2[i+k]= ty do
begin
s:=s+c[i,j];
inc(k);
end;
end;
nl:=mas1[ty-1];
if nl=0 then
mas_Mj[ty]:=0
else
mas_Mj[ty-1][j]:=s/nl;
s:=0;
end;
TarasB 30.12.2009 19:15 # +1
А вот с {$R-} я поржал. Типа "да пошли вы со своими сообщениями об ошибках, ничего не буду править".
TAX 31.12.2009 10:32 # 0
er= array of real;
err= array of er;
var
mas_Mj:err;
//======================================== =======
mas_Mj[ty]:=0 //[Warning] Unit1.pas(795): Constant 0 converted to NIL
guest 31.12.2009 15:45 # −1
TAX 31.12.2009 17:27 # 0