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

    0

    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
    program magic_square;
    uses crt;
    const n=1000;
    var a:array[1..n,1..n] of real;
        n1,i,j:integer;
        s,t,t1,t2,k,k1,k2,b,s1:real;
    begin
     clrscr;
     writeln('‚ўҐ¤ЁвҐ а §ап¤­®бвм ¬ ббЁў ');
     readln(n1);
     writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ¬ ббЁў ');
     for i:=1 to n1 do
      for j:=1 to n1 do
       readln(a[i,j]);
     for i:=1 to n1 do
      begin
       for j:=1 to n1 do
        write(' ',a[i,j]:3:1);
       writeln;
      end;
     s:=0;
     for i:=1 to n1 do
      s:=s+a[i,i];
     for i:=3 downto 1 do
      s1:=s1+a[i,i];
     for i:=1 to n1 do
      begin
       for j:=1 to n1 do
         if i=1 then t:=t+a[i,j] else
         if i=2 then t1:=t1+a[i,j] else
         if i=3 then t2:=t2+a[i,j];
       writeln;
      end;
     for i:=1 to n1 do
      begin
       for j:=1 to n1 do
         if j=1 then k:=k+a[i,j] else
         if j=2 then k1:=k1+a[i,j] else
         if j=3 then k2:=k2+a[i,j];
       writeln;
      end;
     writeln('‘㬬  н«Ґ¬Ґ­в®ў ¤Ё Ј®­ «Ё - ',s:3:1);
     writeln('‘㬬  нҐ«Ґ¬Ґ­в®ў Ї®Ў®з­®© ¤Ё Ј®­ «Ё - ', s1:3:1);
     writeln(t:3:1,' ', t1:3:1,' ', t2:3:1);
     writeln(k:3:1,' ', k1:3:1,' ', k2:3:1);
     If (s=t) and (t=t1) and (t1=t2) and (t2=k) and (k=k1) and (k1=k2) and (k2=s1) then writeln('Љў ¤а в - ¬ ЈЁзҐбЄЁ©!!!') else writeln('Љў ¤а в - ­Ґ ¬ ЈЁзҐбЄЁ©!!!');
     readkey();
    end.

    Шкварюсь на ОАП

    Запостил: Simodgo, 13 Сентября 2016

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

    • показать все, что скрытоОбъектно Ариентированное Программирование?
      Оспектно Ариентированное Программирование?

      Скажи лучше откуда ты взял сырцы моей программы под dos на trubo pascal 1998го года написания?
      Ответить
      • с какого года ты посасываешь, бароп?
        Ответить
        • С 1991-го весь пост-СССР посасывает. Хотя он, может быть, начал посасывать позже, если ему нет 25 лет.
          Ответить
    • s1 не инициализировано, ну ты дно.
      Ну и t12 k12 вместо массива, но это ж лаба.
      Ответить
    • вызов readkey выкинуть нафиг. А если уж использовать, то только так:
      if readkey = #0 then readkey;


      Почему? При нажатии некоторых клавиш readkey возвращает #0, а настоящий код клавиши остаётся в буфере и, чтобы его вытащить из буфера, нужно сделать второй вызов.

      А ещё эта тупая функция не реагирует на F11, F12 и ещё на некоторые клавиши, которых нет на 84-клавишной клавиатуре, поэтому приходится писать свою...

      Хотя зачем это я? Просто выкинуть. Консольная программа должна вывести ответ и не делать никаких пауз.
      Ответить

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