- 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;
guest 01.02.2010 11:28 # +1
Даешь промышленный говнокод!
Grizzly 01.02.2010 11:29 # +1
TarasB 01.02.2010 18:48 # −2
guest 05.02.2010 14:43 # 0
TarasB 06.02.2010 14:09 # 0
Grizzly 15.03.2010 17:22 # 0
"//.............................."
оставлено как есть
guest 01.02.2010 19:31 # 0
jtim 01.02.2010 20:14 # +6
Grizzly 04.02.2010 13:59 # 0
guest 02.02.2010 10:49 # +2
Он обеспечит выход из внутреннего цикла и продолжение внешнего.
Grizzly 04.02.2010 13:57 # 0
guest 02.02.2010 10:52 # −0.8
ISith 02.02.2010 12:35 # 0
guest 02.02.2010 12:23 # −6.4
guest 02.02.2010 17:07 # −2.2
guest 05.02.2010 14:45 # −0.2
1_and_0 05.02.2010 23:53 # +1.2
На Pascal:
if (a[i,j]>0.9) then
begin
rezult[j]:=a[i,m];
goto m2;
end;
а a[i][j] - это же в Си-семантических языках..
guest 06.02.2010 16:42 # +1.8
guest 17.02.2010 17:53 # −1
с брейками залюбишься проверки делать. ЫМХО
ОЛООЛО я идиот убейте меня ктонибудь !!!!!11111адинадинадин
guest 23.03.2012 17:43 # 0
возбуждаешь EAbort и вываливаешься, куда надоть, т.е. туда, где except нанего поставил, ну или ваще нах, вопщем, по ситуации
guest 10.03.2010 16:40 # −2.2