[ Pobierz całość w formacie PDF ]
.UntitledType||TablicaDoubli = array of double;||function rozklad(var a[][]:double,n:double ):TablicaDoubli;||var||i,k,s:integer;||l:array [1.n,1.n] of double;||tmp:double;||begin||double:=0;||for k := 1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + pow(l[k][s],2);||l[k][k] := sqrt(a[k][k] - tmp);||tmp :=0;||for i:=k+1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + l[i][s]*l[k][s];||l[i][i] := (a[i][k] - tmp)/[k][k]; ||end;||end;||return l;||end;Type||TablicaDoubli = array of double;||function rozklad(var a[][]:double,n:double ):TablicaDoubli;||var||i,k,s:integer;||l:array [1.n,1.n] of double;||tmp:double;||begin||double:=0;||for k := 1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + pow(l[k][s],2);||l[k][k] := sqrt(a[k][k] - tmp);||tmp :=0;||for i:=k+1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + l[i][s]*l[k][s];||l[i][i] := (a[i][k] - tmp)/[k][k]; ||end;||end;||return l;||end;Type||TablicaDoubli = array of double;||function rozklad(var a[][]:double,n:double ):TablicaDoubli;||var||i,k,s:integer;||l:array [1.n,1.n] of double;||tmp:double;||begin||double:=0;||for k := 1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + pow(l[k][s],2);||l[k][k] := sqrt(a[k][k] - tmp);||tmp :=0;||for i:=k+1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + l[i][s]*l[k][s];||l[i][i] := (a[i][k] - tmp)/[k][k]; ||end;||end;||return l;||end;Type||TablicaDoubli = array of double;||function rozklad(var a[][]:double,n:double ):TablicaDoubli;||var||i,k,s:integer;||l:array [1.n,1.n] of double;||tmp:double;||begin||double:=0;||for k := 1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + pow(l[k][s],2);||l[k][k] := sqrt(a[k][k] - tmp);||tmp :=0;||for i:=k+1 to n do||begin||for s:=1 to k-1 do||tmp := tmp + l[i][s]*l[k][s];||l[i][i] := (a[i][k] - tmp)/[k][k]; ||end;||end;||return l;||end; [ Pobierz całość w formacie PDF ]