- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
procedure GaussMas ( n:integer;a: Matr;var rezult:V10);
var
s,s1:extended;
m,i,j,k,km,jm:integer;
z,d: array [0..10] of Extended ;
label m2;
begin
//..............................
for i := 1 to n do
begin
for j := 1 to n do
if (a[i][j]>0.9) then
begin
rezult[j]:=a[i][m];
goto m2;
end;
m2: continue;
end;
end;
Даешь промышленный говнокод!
"//.............................."
оставлено как есть
Он обеспечит выход из внутреннего цикла и продолжение внешнего.
На Pascal:
if (a[i,j]>0.9) then
begin
rezult[j]:=a[i,m];
goto m2;
end;
а a[i][j] - это же в Си-семантических языках..
с брейками залюбишься проверки делать. ЫМХО
ОЛООЛО я идиот убейте меня ктонибудь !!!!!11111адинадинадин
возбуждаешь EAbort и вываливаешься, куда надоть, т.е. туда, где except нанего поставил, ну или ваще нах, вопщем, по ситуации