|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
тестирующая система выдает ошибку, хотя у меня верный ответ
Здравствуйте, в олимпиадах очень часто порюсь на следующем:
1) пишу программу делфи 2006, без всяких левых модулей и тд. 2) она работает верно. 3) отправляю на тест систему, выдает ошибку на 1 тесте (который в примере и который точно решается верно) 4) запускаю через консоль с параметрами dcc32 -CC -$D- мне выдает верный ответ. Большая просьба помочь, если нужен код Код:
program Project1; uses SysUtils; var n,m,i,j,q:integer; c:char; s,king:string; a:array [1..50,1..3] of string[10]; b:array [1..100] of real; k:array [1..100] of real; procedure blood(l:string;p:integer); var i1:integer; begin p:=2*p; for I1 := 1 to n do if (a[i1,2]=l) or (a[i1,3]=l) then begin b[i1]:=b[i1]+1/p; blood(a[i1,1],p); end; end; begin fillchar(a,sizeof(a),0); fillchar(b,sizeof(b),0); fillchar(k,sizeof(k),0); assign(input,'input.txt'); assign(output,'output.txt'); reset(input); rewrite(output); read(n); readln(m); readln(king); for i:=1 to n do begin for j:=1 to 3 do begin read(c); while (c<>' ') and (not eoln) do begin a[i,j]:=a[i,j]+c; read(c); end; if c<>' ' then a[i,j]:=a[i,j]+c; end; readln; end; i:=0; j:=0; s:=''; q:=0; blood(king,1); for i:=1 to m do begin readln(s); for j := 1 to n do if (s=a[j,1]) and (b[j]>b[q]) then q:=j; end; write(a[q,1]); Close(output); { TODO -oUser -cConsole Main : Insert code here } end. http://olympic.nsu.ru/nsuts-test/nsu...askid=113 111 задача А опции компиляции Borland Delphi 2006 : dcc32 -CC -$D- Последний раз редактировалось Admin, 17.10.2010 в 13:53. |
#2
|
|||
|
|||
извини, не нашел спойлеров , подскажи как делать их у вас? где кнопка
|
#3
|
||||
|
||||
Прикольная ссылка:
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
|||
|
|||
|
#5
|
||||
|
||||
Здесь был умный ответ, но я его убрал, т.к. даже сам не понял его глубины.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 17.10.2010 в 18:37. |
#6
|
|||
|
|||
Люди мне действительно нужна помощь, когда у тебя 5 часов на 10 заданий и начинается такая фигня хочется вешаться. Такая ситуация несколько раз портила все... должно же быть объяснение и решение почему у меня верно на компьютере, а на тестирующей системе неверный ответ выдается.
|