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

    −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
    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

    • ava barop 13.09.2016 22:49 # −64

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

      Скажи лучше откуда ты взял сырцы моей программы под dos на trubo pascal 1998го года написания?
      Ответить

      • ava XEP 13.09.2016 23:09 # 0

        с какого года ты посасываешь, бароп?
        Ответить

        • ava BEPXOBHAR_PA9A 14.09.2016 23:25 # 0

          С 1991-го весь пост-СССР посасывает. Хотя он, может быть, начал посасывать позже, если ему нет 25 лет.
          Ответить

    • ava kipar 15.09.2016 14:33 # 0

      s1 не инициализировано, ну ты дно.
      Ну и t12 k12 вместо массива, но это ж лаба.
      Ответить

    • ava inkanus-gray 15.09.2016 14:42 # +2

      вызов readkey выкинуть нафиг. А если уж использовать, то только так:
      if readkey = #0 then readkey;


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

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

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

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