1. Pascal / Говнокод #573

    +150

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    VAR FL:TEXTFILE;
    l:string;
    i:integer;
    xmass,itrmass:array [1..100] of real;
begin
{...}
 ASSIGNfile(FL,'results.txt');
   reset(fl);
   readln(fl,l);
   i:=1;
    while L[i]<>' ' do begin
     xmass[i]:=strtoint(L[1]);
     i:=i+1;
                       end;
{...}
end;

    В файле хранилась последовательность вещественных чисел... Такой вот вариант ее оттуда выкорчевать о_О

    Запостил: guest, 19 Февраля 2009

    Комментарии (1) RSS

    • ava guest 19.02.2009 13:46 # 0

      Может должно быть так 
      =strtoint(L[i]);

      А если всё написаное автором верно, то это просто баг или даже 2 бага:)
      Ответить

    Добавить комментарий