Gdzie jest bład

Question

Gdzie jest błąd? Pojawia się on gdy podmieniam wartość y wartością o 1 większą w sposób y:= y + 1; Jeśli po prostu w to miejsce wpiszę y:= 5; to wszystko działa. Wypada error 201, który chyba oznacza, że wypadam poza tablicę, ale nie mogę zrozumieć dlaczego o.O

 

uses crt;
VAR
pole: array[1..20,1..20] of char;

i,j,k,l,x,y:integer;

BEGIN

clrscr;
x:=10;
y:=4;
for i:=1 to 20 do
begin
gotoxy(x,y);
for k:=1 to 2 do
begin
for j:=1 to 20 do
begin

pole[x,y]:= '+';
write(pole[x,y]);
y:= y + 1;
end;
end;

 

end;
readkey;
END.

Answer 1

Kod y := y + 1; jest w pętli for więc wartość zmiennej y zwiększa się najpierw do 5, potem do 6, potem do 7 itd. aż zwiększy się do 21 i wtedy program chce pobrać pole[x,21], które nie istnieje.

Dodaj sobie więcej write aby wypisywał Ci zawartość różnych zmiennych i wtedy będziesz widział co się dzieje podczas wykonywania programu. To jest może prymitywny ale prosty i często skuteczny sposób na szukanie błędów i uczenie się :)

przy okazji: w edytorze jest specjalny przycisk do wstawiania kodu przez co będzie on kolorowany i bardziej czytelny. Nie zapomnij też o odpowiednim sformatowaniu kodu - robić wcięcia - bo to też poprawia czytelność. Nieczytelnych kodów ludzie nie chcą oglądać i pomagać.

Comments

Problem w tym, że nawet jak pojemność miejsc w tablicy zwiększam do [1..300,1..300] to błąd dalej występuje.

---

Spójrz, że to dodawanie masz w "for j:=1 to 20", które jest w "for k:=1 to 2", ktore zaś jest w "for i:=1 to 20" co ostatecznie sprawia, że to dodawanie będzie wykonane z 20*2*20 razy czyli z 800 razy. Ostatecznie więc y będzie miało wartość około 804

---

Dobra, rozumiem, dzięki :)