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

    −50

    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
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    const
 base = 10000;
 dig = 4;
 maxlen = 100;
type
 ArrCh = ARRAY [0..maxlen] of integer;
 
function StrToArr(a: string): ArrCh;
var NUM: ArrCh;
    len,j,c: integer;
    temp: string;
begin
 len:=length(a);
 While len>dig do
  begin
    temp:=copy(a,len-dig+1,dig);
    inc(j);
    val(temp,NUM[j],c);
    delete(a,len-dig+1,dig);
    len:=length(a);
  end;  
 val(a,NUM[j+1],c); 
 NUM[0]:=j+1;
 StrToArr:=NUM;
end;

function ADD(a,b:ArrCh): ArrCh;
var i,r: integer;
begin
r:=0;
if a[0]<b[0] then a[0]:=b[0];
for i:=1 to a[0] do
  begin
    if r=0 then a[i]:=a[i]+b[i]
           else begin
                  a[i]:=a[i]+b[i]+1;
                  r:=0;
                end; 
    if a[i]>=base then 
      begin
        a[i]:=a[i] mod base;
        r:=1;
      end;
  end;
 if r<>0 then 
   begin
    a[0]:=a[0]+1;
    a[a[0]]:=1;
   end; 
 ADD:=a;  
end;  
      
var a,b: string;
    i: integer;
    n1,n2,sum: ArrCh;
begin
 readln(a); readln(b);
 n1:=StrToArr(a); n2:=StrToArr(b);
 writeln(n1[0]);
 sum:=ADD(n1,n2);
 for i:=sum[0] downto 1 do 
   if sum[i]=0 then write('0000')
               else if (sum[i]<1000) and (i<>sum[0]) then 
                      begin
                        if sum[i] div 10=0 then write('000',sum[i])
                                           else
                        if sum[i] div 100=0 then write('00',sum[i])
                                            else
                        if sum[i] div 1000=0 then write('0',sum[i]);
                      end  
               else write(sum[i]);
end.

    Говнокод, складывающий длинные числа.

    Запостил: FenFench, 07 Марта 2016

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

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

    Ошибка компиляции комментария:
    1. Гости могут высказаться только в понедельник, среду, четверг или воскресение
    ava Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:
    А не использовать ли нам bbcode?
    • [b]жирный[/b] — жирный
    • [i]курсив[/i] — курсив
    • [u]подчеркнутый[/u] — подчеркнутый
    • [s]перечеркнутый[/s] — перечеркнутый
    • [blink]мигающий[/blink] — мигающий
    • [color=red]цвет[/color] — цвет (подробнее)
    • [size=20]размер[/size] — размер (подробнее)
    • [code=<language>]some code[/code] (подробнее)
    Проверочный код