autoput

program autoput;
var
f:text;
n,d,i,j,r,max,min:longint;
grad:record
x,y,st:integer;
end;
put:array[1..100000] of longint;
begin
readln(n,d);
max:=0;
min:=100000;
r:=0;
for i:=1 to n do
begin
readln(grad.x,grad.y,grad.st);
for j:=grad.x-d to grad.x+d do
put[j]:=put[j]+grad.st;
if grad.x>max then
max:=grad.x;
if grad.x<min then
min:=grad.x;
end;
for i:=min+d to max-d do
if put[i]>r then
r:=put[i];
assign(f,'autoput.out');
rewrite(f);
writeln(f,r);
close(f);
end.

Kompajliranje
Compile Ok
Vreme kompajliranja: 0.11 sekunde
Testiranje

Test 1 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 2 Izlazni kod programa nije 0
Test 3 Izlazni kod programa nije 0
Test 4 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 5 Izlazni kod programa nije 0
Test 6 Pogresno resenje vreme izvrsavanja programa 0.01 sekunde
Test 7 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 8 Izlazni kod programa nije 0
Test 9 Sistemska greska ili prekoracen memorijski limit
Test 10 Pogresno resenje vreme izvrsavanja programa 0 sekunde


Sta ovde ne valja, radilo mi je na oom primeru sto daju uz zadatak a ovde ne valja nijedan test primer.

Hm, koliko ja vidim ti ispisujes u file, ali s druge strane, koliko znam na z-treningu se ucitava i ispisuju na standardni uzlaz/izlaz.

Pisalo je u zadatku da se cita sa standardnog ulaza a ispisuje u autoput.out, medjutim, kad sam isti program prepravio da ispisuje na standardni izlaz desilo se sledece:
Kompajliranje
Compile Ok
Vreme kompajliranja: 0.12 sekunde
Testiranje

Test 1 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 2 Izlazni kod programa nije 0
Test 3 Izlazni kod programa nije 0
Test 4 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 5 Izlazni kod programa nije 0
Test 6 Pogresno resenje vreme izvrsavanja programa 0.01 sekunde
Test 7 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 8 Izlazni kod programa nije 0
Test 9 Sistemska greska ili prekoracen memorijski limit
Test 10 [color=Red]Tacno resenje[/color] vreme izvrsavanja programa 0 sekunde

OK, ali mi i dalje nije jasno sta to ne valja u zadatku, zasto pise da se ispise u autoput.out ako treba na standardni izlaz, sta znaci da izlazni kod nije 0 i kako to da su mi samo primer iz zadatka i 10 test primer tacni.

Greska je u tekstu zadatka ;) Desi se :)
[q]grad:record
x,y,st:integer;
end;[/q]
Prebaci integer u longint ;) 100000 izlazi iz opsega integer-a ;)

Kada izlazni kod nije 0 znaci da se program ne izvrsi do kraja zbog neke greske ;) Npr. deljenje nulom, pristupas 101 elementu niza koji ima 100 clanova, podatak ti izlazi iz opsega i slicno :)

Compile Ok
Vreme kompajliranja: 0.11 sekunde
Testiranje

Test 1 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 2 Pogresno resenje vreme izvrsavanja programa 0.01 sekunde
Test 3 Izlazni kod programa nije 0
Test 4 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 5 Izlazni kod programa nije 0
Test 6 Pogresno resenje vreme izvrsavanja programa 0 sekunde
Test 7 Pogresno resenje vreme izvrsavanja programa 0.01 sekunde
Test 8 [color=Red]Tacno resenje [/color] vreme izvrsavanja programa 0.03 sekunde
Test 9 Sistemska greska ili prekoracen memorijski limit
Test 10 [color=Red]Tacno resenje [/color] vreme izvrsavanja programa 0 sekunde

Nemam ja zivaca za ovo, evo promenio sam, i opet ne vidim gde gresim, osim ovoga sa longint.

vodi racuna o tome da iskaces iz niza
for j:=grad.x-d to grad.x+d do

grad.x je recimo 3 a d=20, dobijes negativno j i iskaces iz arraya

hvala, probacu da ispravim, mislim da je to u pitanju

Kompajliranje
Compile Ok
Vreme kompajliranja: 0.11 sekunde
Testiranje

Test 1 [color=Red]Pogresno resenje [/color] vreme izvrsavanja programa 0 sekunde
Test 2 [color=Green]Tacno resenje [/color] vreme izvrsavanja programa 0.01 sekunde
Test 3 [color=Red]Pogresno resenje [/color] vreme izvrsavanja programa 0.49 sekunde
Test 4 [color=Green]Tacno resenje [/color] vreme izvrsavanja programa 0.03 sekunde
Test 5 [color=Red]Pogresno resenje [/color] vreme izvrsavanja programa 1.1 sekunde
Test 6 [color=Green]Tacno resenje [/color] vreme izvrsavanja programa 1.74 sekunde
Test 7 [color=Green]Tacno resenje [/color] vreme izvrsavanja programa 1.84 sekunde
Test 8 [color=Green]Tacno resenje [/color] vreme izvrsavanja programa 0.03 sekunde
Test 9 [color=Red]Prekoraceno vremensko ogranicenje [/color]
Test 10 [color=Green]Tacno resenje [/color] vreme izvrsavanja programa 0 sekunde

Da, izgleda da je to bio "glavni" problem, ali kao sto vidite, ima ih jos. Ovi pogresno resenje, predpostavljam da nisu mnogo komplikovani, pozabavicu se njima sutra, ali ne znam sta da uradim sa devetim test primerom i prekoracenjem vremena.

Sad je sve ok sa pogresnim resenjima ali je problem u ovom prekoracenju, to je vec 10-ti zadatak da imam prekoracenje i da ne znam sta da radim sa njim, jedino sto me tesi je da na takmicenju daju poene po uspesnom primeru.