Tworzenie tablicy wieloelementowej

Odpowiedz Nowy wątek
2006-12-03 21:11
0

czy może mi ktos powiedzieć gdzie jest blad ?? :-(
var
A1, A2, AW : array of array of double;
x,y : integer;
krok : double;

const
rozmiartab = 10;

{$R *.res}

begin
krok := 2.0 / rozmiartab;
setlength(A1,rozmiartab,rozmiartab);
setlength(A2,rozmiartab,rozmiartab);
setlength(AW,rozmiartab,rozmiartab);

for y:=1 to rozmiartab do
 for x:=1 to rozmiartab do

begin
   A1[x,y] :=(1) + (x+krok);
   A2[y,x] :=(1) + (x+krok);

end;

for y:=1 to rozmiartab do for x:=1 to rozmiartab do

AW[x,y] := sqr(A1[x,y]) + sqr(A2[y,x]);

Writeln( '',A1[x,y] );
Writeln('A2= ', A2[x,y] );
Writeln( AW[x,y] );

Readln;

end.

Pozostało 580 znaków

2006-12-03 22:04
kurc66
0
  1. Powinno być:
    for y:=0 to rozmiartab-1 do
      for x:=0 to rozmiartab-1 do
  2. Używasz zmiennych x,y już po wyjściu z ostatniej pętli. Mogą w nich być przypadkowe wartości. A może zapomniałeś zgrupować instrukcje w ostatniej pętli za pomocą begin end?

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0