1. Список говнокодов пользователя AndreyZ

    Всего: 4

  2. C++ / Говнокод #19534

    +3

    1. 1
    2. 2
    3. 3
    int main() { 
for (float n = 0, l = 0, q = scanf("%f", &n), r = n, m = (l + r) / 2; r - l > 0.00001 || 0 * printf("%f", l); m*m <= n ? l = m : r = m, m = (l + r) / 2); 
}

    Просто бинпоиск в одну строчку)

    AndreyZ, 25 Февраля 2016

    Комментарии (21)

  3. C++ / Говнокод #18017

    +142

    1. 1
    return st1.empty() || st2.empty() ? st1.empty() && st2.empty() ? 0 : st1.empty() ? st2.gcd() : st1.gcd() : qwer::gcd(st1.gcd(), st2.gcd());

    Когда увлёкся условными конструкциями...

    AndreyZ, 18 Апреля 2015

    Комментарии (5)

  4. Pascal / Говнокод #17402

    +107

    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
    var a : int64;
 
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  read(a);
  if a=25 then write ('2.7182818284590452353602875');
  if a=24 then write ('2.718281828459045235360288');
  if a=23 then write ('2.71828182845904523536029');
  if a=22 then write ('2.7182818284590452353603');
  if a=21 then write ('2.718281828459045235360');
  if a=20 then write ('2.71828182845904523536');
  if a=19 then write ('2.7182818284590452354');
  if a=18 then write ('2.718281828459045235');
  if a=17 then write ('2.71828182845904524');
  if a=16 then write ('2.7182818284590452');
  if a=15 then write ('2.718281828459045');
  if a=14 then write ('2.71828182845905');
  if a=13 then write ('2.7182818284590');
  if a=12 then write ('2.718281828459');
  if a=11 then write ('2.71828182846');
  if a=10 then write ('2.7182818285');
  if a=9 then write ('2.718281828');
  if a=8 then write ('2.71828183');
  if a=7 then write ('2.7182818');
  if a=6 then write ('2.718282');
  if a=5 then write ('2.71828');
  if a=4 then write ('2.7183');
  if a=3 then write ('2.718');
  if a=2 then write ('2.72');
  if a=1 then write ('2.7');
  if a=0 then write ('3') 
end.

    Вывод числа e с заданной точностью

    AndreyZ, 04 Января 2015

    Комментарии (4)

  5. Pascal / Говнокод #17324

    +88

    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
    procedure sr(var q, w: string; j, k: integer);
begin
  for j := 1 to 100 do
  begin
    if ord(q[j]) - ord(w[j]) > 0 then begin for k := 1 to pos(' ', q) do write(q[k]);exit; end
    else if ord(q[j]) - ord(w[j]) < 0 then begin for k := 1 to pos(' ', w) do write(w[k]);exit; end;
  end;
  for k := 1 to pos(' ', w) do write(w[k]);
end;
 
procedure sr2(var q, w, e, r: string; j, k, p: integer);
begin
  for j := 1 to 101 do
  begin
    if ord(q[j]) - ord(w[j]) > 0 then begin r := q;break; end
    else if ord(q[j]) - ord(w[j]) < 0 then begin r := w;break;end;
    inc(p);
  end;
  if p>100 then r:=w;
  for j := 1 to 100 do
  begin
    IF E[J]=' ' Then break;
    if ord(e[j]) - ord(r[j]) > 0 then begin for k := 1 to pos(' ', e) do write(e[k]);exit; end
    else if ord(e[j]) - ord(r[j]) < 0 then begin for k := 1 to pos(' ', r) do write(r[k]);exit; end;
  end;
  for k := 1 to pos(' ', r) do write(r[k]);
end;
 
var
  st, a, b, c, rd: string;
  i, s: integer;
 
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  read(st);
  for i := 1 to 102
  do
  begin
    a := a + ' ';
    b := b + ' ';
    c := c + ' ';
  end;
  for i := 1 to length(st) do
    if st[i] = ' ' then inc(s)
    else
      case s of
        0: a[i] := st[i];
        1: b[i - pos(' ', a)] := st[i];
        2: c[i - pos(' ', a) - pos(' ', b)] := st[i];
      end;
  if (a=b) and (b=c) then for i := 1 to pos(' ', a) do write(a[i])
  else if (pos(' ', a) > pos(' ', b)) and (pos(' ', a) > pos(' ', c)) then for i := 1 to pos(' ', a) do write(a[i])
  else if (pos(' ', b) > pos(' ', a)) and (pos(' ', b) > pos(' ', c)) then for i := 1 to pos(' ', b) do write(b[i])
  else if (pos(' ', c) > pos(' ', b)) and (pos(' ', c) > pos(' ', a)) then for i := 1 to pos(' ', c) do write(c[i])
  else if (pos(' ', a) = pos(' ', b)) and (pos(' ', b) = pos(' ', c)) then sr2(a, b, c, rd, 0, 0, 0)
  else if pos(' ', a) = pos(' ', b) then sr(a, b, 0, 0)
  else if pos(' ', c) = pos(' ', b) then sr(c, b, 0, 0)
  else if pos(' ', a) = pos(' ', c) then sr(a, c, 0, 0);
end.

    Выбор максимума из 3 целых длинных чисел

    AndreyZ, 17 Декабря 2014

    Комментарии (4)