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

    +95

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    if length(fsizeS)<=9 then fsize:=strtoint(fsizeS);
if (length(fsizeS)>9) and (length(fsizeS)<18) then
  fsize:=strtoint(copy(fsizeS,length(fsizeS)-8,length(fsizeS)-9))+
     strtoint(copy(fsizeS,1,length(fsizeS)-9))*1000000000{10**9};
if length(fsizeS)>18 then
 begin
  writeln;
  writeln('File:'+curstr);
  writeln('Size:'+fsizeS);
  write('Please input file''s size, written above:');
  readln(fsize);
 end;

    Интересный способ конвертации строки в число. Думаю, у вас здесь такого ещё не было. Нашел в своих исходниках времён 8 - 9 класса.

    Запостил: vovams, 24 Января 2013

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

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