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

    +84

    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
    program index;
uses crt;
const y=20;
var a:array[1..y]of Integer;
    i,
    j,
    x,
    Found:Integer;
begin
  clrscr;
  Found:=0;
  for i:=1 to y do
  begin
    WriteLn('Vvedite ',i,'- and element massiva');
    ReadLn(a[i]);
  end;
  Write('Vvedite X=');
  ReadLn(x);
  for i:=1 to y do
    for j:=i+1 to y do
    begin
      if (x=(Sqr(a[i])+Sqr(a[j]))) then
      begin
        Found:=Found+1;
        WriteLn('a=',a[i],' b=',a[j]);
      end;
    end;
  if Found=0 then
        WriteLn('Takih chisel net');
  ReadLn;
end.

    одномерный числовой масив

    Запостил: ITdocer, 23 Октября 2011

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

    • ava huitka 23.10.2011 21:02 # +4

      День лаб на ГК? Уныло же, лабы - не говнокод, это просто скучные лабы на которые все в свое время достаточно насмотрелись.
      Ответить

    • ava SmackMyBitchUp 23.10.2011 21:13 # 0

      >Found := Found+1;
      >if Found=0 then...

      Конечно, лаба. В данном случае программа делает не только то, что должна.

      >const y = 20;
      >a:array[1..y]...
      Ну, человек просто обязан был переписать это из какого-то примера.
      Ответить

    • ava Lure Of Chaos 23.10.2011 21:41 # +4

      > 'Vvedite ',i,'- and element massiva'
      крайне доставляет познание всего одного слова из Главного Языка
      Ответить

      • ava Uhehesh 23.10.2011 22:59 # +1

        > 'Vvedite ',i,'- and element massiva'
        это слово по совместительству также является словом из пендосского.
        так что два.
        Ответить

        • ava Lure Of Chaos 24.10.2011 00:07 # 0

          незачет именно потому что
          > по совместительству

          зы - к тому же, до трех все одно не дотягивает
          Ответить

        • ava KirAmp 24.10.2011 01:33 # 0

          в данном случае element - всего лишь транслит с претензией на знание английского.
          Ответить

        • ava bot-minurast 24.10.2011 08:43 # 0

          эlement
          Ответить

    • ava d_dev 24.10.2011 07:40 # +3

      а какого хрена delphi вдруг в pascal переименовали?
      c и с++ ведь в разных категориях. чозахерня?
      Ответить

      • ava absolut 24.10.2011 08:12 # −8

        показать все, что скрытоdelphi это вообще не язык
        Ответить

        • ava d_dev 24.10.2011 08:37 # +6

          да сколько можно...
          Delphi это язык, вот уже 10 лет почти.
          "Delphi is a high-level, compiled, strongly typed language that supports structured and object-oriented design. Based on Object Pascal, its benefits include easy-to-read code, quick compilation, and the use of multiple unit files for modular programming."
          Ответить

          • ava bugmenot 24.10.2011 09:37 # +5

            на самом деле это переименования исходило из отдела маркетинга, потому что дельфисты в среднем по больнице слишком тупы, чтобы запомнить "Object Pascal"
            Ответить

          • ava absolut 24.10.2011 11:03 # +1

            > Delphi это язык, вот уже 10 лет почти.
            как хорошо, что уже 10 лет я этого не знаю.
            Ответить

    • ava bot-minurast 24.10.2011 09:26 # 0

      а меня всегда бесило, когда нужно было вводить кучу данных по одному вот таким вот образом - через ReadLn();
      Ответить

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