Wyskakuje błąd programu, nie wiem czemu ;(

[smatysik]

Proszę o pomoc, błąd mi wyskakuje.

program tablicami;

var

tablica : array[0..100000] of Single;

tablica2 : array[0..100000] of Single;

N, T, D : Longint;

a, b, a2, b2 : Longint;

h, j, j2, k, q1, q2, q3 : Longint;

m : Longint;

begin

a2 := 0;

b2 := 1;

Read (N, T, D);

m := 2 * D;

for q3 := 1 to m do

begin

tablica[q3] := 0;

tablica2[q3] :=0;

end;

for h := 1 to N do

begin

Read (a, b);

for j := 1 to m do

begin

k := j mod 2;

if (a = a2) AND (b = b2) then

tablica[j] := tablica[j] + 1

else tablica[j] := tablica[j] + 0;

if k = 0 then a2 := a2 + 1

else b2 := b2 + 1;

end;

end;

 

for j2 := 1 to m do

begin

if tablica[j2] = 0 then tablica2[1] := tablica2[1] + 1;

if tablica[j2] = 1 then tablica2[2] := tablica2[2] + 1;

if tablica[j2] = 2 then tablica2[3] := tablica2[3] + 1;

if tablica[j2] = 3 then tablica2[4] := tablica2[4] + 1;

if tablica[j2] = 4 then tablica2[5] := tablica2[5] + 1;

if tablica[j2] = 5 then tablica2[6] := tablica2[6] + 1;

if tablica[j2] = 6 then tablica2[7] := tablica2[7] + 1;

if tablica[j2] = 7 then tablica2[8] := tablica2[8] + 1;

end;

q1 := 0;

for q2 := 1 to 8 do

begin

if tablica2[q2] > 0 then WriteLn (q1, tablica2[q2]);

end;

ReadLn;

ReadLn;

end.

[babubabu]

naciśnij ctrl+a a następnie delete.

 

Później napisz kod pod początku zachowując formatowanie i nadaj normalne nazwy zmiennych. Powinno pomóc.

[smatysik]

naciśnij ctrl+a a następnie delete.

 

Później napisz kod pod początku zachowując formatowanie i nadaj normalne nazwy zmiennych. Powinno pomóc.

jak normalne nazwy zmiennych, ja takie literki preferuje, mam taki styl programowania jest spoko czemu się czepiasz, szukam konkretnej odpowiedzi

[olesio]

Poprzednik się nie czepia tylko ma rację. To Tobie wydaje się, że taki styl "jest spoko". Uwierz mi, że nie jest. I każdy bardziej doświadczony nawet programista - amator, Ci to powie. Poza tym brak formatowania. Ok, ja też byłem młodszy i głupi. Nie formatowałem w ogóle kodu, celowo usuwając formatownia nawet domyślne w IDE. Ale wydoroślałem i niesformatowany kod po prostu nie mogę patrzeć.

[babubabu]

jak normalne nazwy zmiennych, ja takie literki preferuje, mam taki styl programowania jest spoko czemu się czepiasz, szukam konkretnej odpowiedzi

 

To szukaj dalej ale na pewno nie z pomocą forum

[smatysik]

program tablicami;
var
tablica : array[0..100000] of Single;
tablica2 : array[0..100000] of Single;
N, T, D : Longint;
a, b, a2, b2 : Longint;
h, j, j2, k, q1, q2, q3 : Longint;
m : Longint;
begin
a2 := 0;
b2 := 1;
Read (N, T, D);
m := 2 * D;
for q3 := 1 to m do
begin
tablica[q3] := 0;
tablica2[q3] :=0;
end;
for h := 1 to N do
begin
Read (a, b);
for j := 1 to m do
begin
k := j mod 2;
if (a = a2) AND (b = b2) then
tablica[j] := tablica[j] + 1
else tablica[j] := tablica[j] + 0;
if k = 0 then a2 := a2 + 1
else b2 := b2 + 1;
end;
end;
for j2 := 1 to m do
begin
if tablica[j2] = 0 then tablica2[1] := tablica2[1] + 1;
if tablica[j2] = 1 then tablica2[2] := tablica2[2] + 1;
if tablica[j2] = 2 then tablica2[3] := tablica2[3] + 1;
if tablica[j2] = 3 then tablica2[4] := tablica2[4] + 1;
if tablica[j2] = 4 then tablica2[5] := tablica2[5] + 1;
if tablica[j2] = 5 then tablica2[6] := tablica2[6] + 1;
if tablica[j2] = 6 then tablica2[7] := tablica2[7] + 1;
if tablica[j2] = 7 then tablica2[8] := tablica2[8] + 1;
end;
q1 := 0;
for q2 := 1 to 8 do
begin
if tablica2[q2] > 0 then WriteLn (q1, tablica2[q2]);
end;
ReadLn;
ReadLn;
end.

[Stelma]

Posłuchaj ty chyba nie rozumiesz co oni do ciebie powiedzieli. Nikomu się nie chce przeglądać kodu gdzie jako zmiennych używa się literek bo jest to po prostu nie czytelne. Jedyne co zrobiłeś to wkleiłeś swój poprzedni kod w blok . To troszeczkę za mało jeżeli chcesz otrzymać pomoc.

 

Twój program nie jest skomplikowany więc jeżeli zastosujesz się do poleceń panów z góry sam dojdziesz co nie działa. Tymczasem na swoim uporze straciłeś około 2 dni.

 

@Edit

No i zapomniałbym nie podałeś jaki ci błąd wyskakuje bo ja po minucie patrzenia w kod wywachałem potencjalne dwa...