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

    +81

    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
    { ... }
  writeln('vvedite indexi "X" i "=" 1-ogo uravneniay');
  writeln('x1');
  readln(x11);
  writeln('x2');
  readln(x12);
  writeln('x3');
  readln(x13);
  writeln('x4');
  readln(x14);
  writeln('=');
  readln(x15);
  writeln('vvedite indexi "X" i "=" 2-ogo uravneniay');
  writeln('x1');
  readln(x21);
  writeln('x2');
  readln(x22);
  writeln('x3');
  readln(x23);
  writeln('x4');
  readln(x24);
  writeln('=');
  readln(x25);
  writeln('vvedite indexi "X" i "=" 3-ogo uravneniay');
  writeln('x1');
  readln(x31);
  writeln('x2');
  readln(x32);
  writeln('x3');
  readln(x33);
  writeln('x4');
  readln(x34);
  writeln('=');
  readln(x35);
  writeln('vvedite indexi "X" i "=" 4-ogo uravneniay');
  writeln('x1');
  readln(x41);
  writeln('x2');
  readln(x42);
  writeln('x3');
  readln(x43);
  writeln('x4');
  readln(x44);
  writeln('=');
  readln(x45);
  {веселье - вот зачем это все нужно было))}
  m2[1,1]:=x11;
  m2[1,2]:=x12;
  m2[1,3]:=x13;
  m2[1,4]:=x14;
  m2[2,1]:=x21;
  m2[2,2]:=x22;
  m2[2,3]:=x23;
  m2[2,4]:=x24;
  m2[3,1]:=x31;
  m2[3,2]:=x32;
  m2[3,3]:=x33;
  m2[3,4]:=x34;
  m2[4,1]:=x41;
  m2[4,2]:=x42;
  m2[4,3]:=x43;
  m2[4,4]:=x44;
{ ... }

    Классика ввода матриц. Опять. С киберфорума. http://www.cyberforum.ru/turbo-pascal/thread425906.html#post2374414

    Запостил: HighPredator, 10 Января 2012

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

    • ava Lure Of Chaos 10.01.2012 23:30 # +6

      one more shitlab
      Ответить

    • ava MAGnit 11.01.2012 11:22 # 0

      Заебали лабопосты!
      Ответить

    • ava TarasB 11.01.2012 11:28 # 0

      > vvedite indexi "X" i "=" 1-ogo uravneniay

      Я не могу понять смысл этой фразы
      Ответить

      • ava SmackMyBitchUp 11.01.2012 11:49 # 0

        Коэффициенты поди просят ввести
        Ответить

        • ava TarasB 11.01.2012 11:54 # 0

          Не, вот нахуя икс в кавычках, а не просто? И нахуя вводить равно в кавычках?
          У что такое "уравнениай"?
          Ответить

          • ava eth0 11.01.2012 18:16 # 0

            Предположу, что имелось в виду "уравнения".
            [Сука я безграмотная.]
            Ответить

    • ava guest8 09.04.2019 12:30 # −999

      показать все, что скрытоvanished
      Ответить

    • ava utinger 24.08.2021 03:15 # 0

      Эта история произошла со мной, когда мне едва исполнилось 18 лет. Я рос без отца, наверное, поэтому мне не хватало твердости в характере. Я был очень податливым и легко поддавался чужому влиянию.
      Ответить

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