Школоло / Говнокод #573 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 guest, (Updated )

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

  • ava guest # Ссылка на оригинал 0

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

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

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓