Informatyka UJ forum

kap00ch

w sumie...raczej testow za ciekawych nikt miec nie bedzie :/

a sprawdzalas wszystkie bugi ktore dotad ludzie robili?
w stylu za duzej stalej na inf badz w zaleznsoci od implementacji bledne dzialanie relaxa jesli do czegos nie dojdziemy normalnie a BF z relaxem nam zmieni wartosci inf ;]

trywialna

Nio juz przepchnęłam a błąd miałam kosmiczny. Tzn. przerost formy nad trescia :D

Skrobocik

Heh, wypisywania ujemnych się ustrzegłem, ale i tak mi się waliło. Co się okazało:
- kolejne ulice wczytywałem readln'em zamiast read'em
- jako poczatkowe miasto do wczytywanej ulicy dawalem wartość iteratora do wczytywania ulic zamiast iteratora do miast

dzendras

A dla mnie z kolei "d+h div 10" oznaczało (d+h) div 10, zamiast d+(h div 10) :]

urban

Aj ja tez zoptymalizowalem za bardzo:)

maniek

a co to jest za bład R64??? orientuje sie ktos

Pawel Str.

100 Disk read error
An error occurred when reading from disk. Typically when you try to read past the end of a file.

Na przyszłość - akurat tutaj mógł być problem ze zgadnięciem, że 64hex == 100 dec, ale jak już zna się kod błędu, to jest dokumentacja:

[link widoczny dla zalogowanych]

maniek

mam prosbe jak by siie nie udało znalezc szybko bledu i komus chciało sie luknac na moj kod w celu pomocy w znalezieniu bledu niech pisze na gg 3279141
(taki krotki kod a tyle porblemow mam :) )

AMD · pijak Dołączył: 05 Mar 2006 Posty: 161 Przeczytał: 0 tematów

Mam prosbe moze ktos mi powiedziedziec jak przyspieszyc to zadanie bo ja mam ciagle TLE.
I jescze jedno dlaczego jak zmieniam
taką procedure
=======================================
procedure relax(city:integer;tmp:wsk_par);
var j,cost:longint;
Begin
Tmp:=tab_miast[city].wsk_ul; {
for j:=2 to wsk_licz do tu jest zamiana
tmp:=tmp^.next; }
cost:=D[city]+tmp^.dlugosc+(tab_miast[tmp^.dokad].h-tab_miast[city].h) div 10;
if D[tmp^.dokad]>cost then D[tmp^.dokad]:=cost;
End;

procedure update(city:integer);
var i:longint;tmp:wsk_par;
Begin
for i:=1 to tab_miast[city].m do
begin
relax(city,tmp);
end;
End;
=============================================
i zmieniam na
=============================================
procedure relax(city:integer;tmp:wsk_par);
var j,cost:longint;
Begin
cost:=D[city]+tmp^.dlugosc+(tab_miast[tmp^.dokad].h-tab_miast[city].h) div 10;
if D[tmp^.dokad]>cost then D[tmp^.dokad]:=cost;
End;

procedure update(city:integer);
var i:longint;tmp:wsk_par;
Begin
Tmp:=tab_miast[city].wsk_ul;
for i:=1 to tab_miast[city].m do
begin
relax(city,tmp);
tmp:=tmp^.next;
end;
End;

==========================================
to wywala RCB