k_vychodilova

ukol 2

Oct 26th, 2020 (edited)
946
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program HelloWorld(output);
  2.  
  3. var i,j, N: integer;
  4. matice: array[1..3,1..3] of integer;
  5. pole: array[1..3] of integer;
  6. var radky,sloupce,uhlopricky: boolean;
  7. begin
  8. matice[1,1]:=2;
  9. matice[1,2]:=7;
  10. matice[1,3]:=6;
  11. matice[2,1]:=9;
  12. matice[2,2]:=5;
  13. matice[2,3]:=1;
  14. matice[3,1]:=4;
  15. matice[3,2]:=3;
  16. matice[3,3]:=78;
  17. pole[1]:=0;
  18. pole[2]:=0;
  19. pole[3]:=0;
  20. N:=3;
  21. i:=0;
  22. j:=0;
  23. radky:=False;
  24. sloupce:=False;
  25. uhlopricky:=False;
  26. //Testuji radky
  27. repeat i:=i+1;
  28. j:=0;
  29.     repeat j:=j+1;
  30.         pole[i] := pole[i] + matice[i,j];
  31.     until  j=N;
  32. until i=N;
  33. {
  34. writeln('Soucet radek 1: ',pole[1])   ;
  35. writeln('Soucet radek 2: ',pole[2])  ;
  36. writeln('Soucet radek 3: ',pole[3])  ;
  37. }
  38. if (pole[1]=pole[2])and (pole[2]=pole[3]) then radky:=True;
  39. //Testuji sloupce
  40. i:=0;
  41. j:=0;
  42. pole[1]:=0;
  43. pole[2]:=0;
  44. pole[3]:=0;
  45. repeat j:=j+1;
  46. i:=0;
  47.     repeat i:=i+1;
  48.         pole[j] := pole[j] + matice[i,j];
  49.     until  i=N;
  50. until j=N;
  51. if (pole[1]=pole[2])and (pole[2]=pole[3]) then sloupce:=True;
  52.  
  53. //Uhlopricka z leva do prava 11..33
  54. i:=0;
  55. j:=0;
  56. pole[1]:=0;
  57. pole[2]:=0;
  58. repeat i:=i+1;
  59.         j:=j+1;
  60.         pole[1] := pole[1] + matice[i,j];
  61. until  j=N;
  62.  
  63. //Uhlopricka z leva do prava 13..31
  64. i:=0;
  65. j:=4;
  66. pole[2]:=0;
  67. repeat i:=i+1;
  68.         j:=j-1;
  69.         pole[2] := pole[2] + matice[i,j];
  70. until  i=N;
  71. if (pole[1]=pole[2]) then
  72.     uhlopricky:=True;
  73.  
  74. if (radky and sloupce and uhlopricky) then
  75.     writeln('Jedná se o magický ctverec')
  76.    
  77. else writeln('Není magický');
  78.  
  79. end.
RAW Paste Data