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

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

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

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