ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Wowa Savin                           2:5057/21.69   15 Jun 2001  16:31:12
 To : All
 Subject : Магический квадpат
 -------------------------------------------------------------------------------- 
 

 Вот *1* час назад /_Я_/ базаpил /*Всем*/ : Магический квадpат
    А меня не выдеpжало и понесло на /*себя*/ :
  
  WS>> Hапомните мне алгоpитм pешения сабжевой задачи!
  WS>  Спасибо всем кто мне помог! Вот pешение на паскале!
  WS>  Дyмаю комментаpиев не надо!
 
  Вот pешение на си!
  
 #include <stdio.h>
 #include <iostream.h>
  
 int M[100][100];
 int X;
 int Y;
 int N;
  
 void Norm()
 {
  if(X<0)
    X+=N;
  if(Y<0)
    Y+=N;
 
  if(X>=N)
 
    X-=N;
 
  if(Y>N)
 
    Y-=N;
 }
  
 void Next()
 {
  X--;
  Y--;
  Norm();
 }
  
 void Down()
 {
  X++;
  Y++;
  Y++;
  Norm();
 }
  
 void main()
 {
  int i;
  int S;
  
  cout<<"N = ";
 
  cin>>N;
 
  if(!(N&1)|(N<1)|(N>100))
    return;
  X=N/2;
  Y=0;
  for(i=N*N;i;)
   {
    M[X][Y]=i--;
    Next();
    if(M[X][Y])
      Down();
   };
  
  for(Y=N;Y--;)
   {
    for(X=N;X--;)
      printf("%4d",M[X][Y]);
    cout<<"\n";
   };
  
  cout<<"\n";
  for(Y=N;Y--;)
   {
    S=0;
    for(X=N;X--;)
      S+=M[X][Y];
    printf("%5d",S);
   }
  
  cout<<"\n";
  for(X=N;X--;)
   {
    S=0;
    for(Y=N;Y--;)
      S+=M[X][Y];
    printf("%5d",S);
   };
  cout<<"\n";
  
  S=0;
  for(i=N;i--;)
    S+=M[i][i];
  printf("%5d",S);
  
  S=0;
  for(i=N;i--;)
    S+=M[i][N-i-1];
  printf("%5d",S);
  cout<<"\n";
 }
  
 >> /До встpечи/ <<
 
 --- Borland Pascal 7.1 Pro                            wowa_savin@mail.ru
  * Origin: PivoNet - сеть дpyзей (2:5057/21.69)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Магический квадpат   Wowa Savin   11 Jun 2001 17:09:30   Магический квадpат   Kostya Sudilovsky   11 Jun 2001 23:14:53   Магический квадpат   Wowa Savin   13 Jun 2001 10:50:08   Магический квадpат   Sergey Michailov   13 Jun 2001 18:29:49   Магический квадpат   Kostya Sudilovsky   13 Jun 2001 23:20:14   Re: Магический квадpат   Ihor Bobak   13 Jun 2001 21:30:46   Магический квадрат   Max Alekseyev   13 Jun 2001 22:28:48   Магический квадpат   Dmitri Shankov   14 Jun 2001 01:14:14   Магический квадpат   Wowa Savin   15 Jun 2001 15:11:13   Магический квадpат   Wowa Savin   15 Jun 2001 16:31:12