Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 75 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

все
кц
j:=1
нц пока (j<=N) и (Flag="Да") | вычисление сумм элементов
столбцов
S:=0
нц для i от 1 до N
S:=S+A[i, j]
кц
если S<>St |сравнение суммы элементов
текущего
то Flag:="Нет" |столбца с эталонной суммой
иначе j:=j+1
все
кц
если Flag="Да"
то S:=0 | вычисление суммы элементов побочной диагонали
нц для i от 1 до N
S:=S+A[i, N+1-i]
кц
если S<>St | сравнение суммы с эталонной
то Flag:="Нет"
все
все
если Flag="Да"
то Otvet := "Это магический квадрат."
иначе Otvet := "Это не магический квадрат."
все
кон
Блок-схема (фрагмент)
Вычисление суммы
элементов главной
диагонали в качестве
эталонной суммы 
    все
  кц
  j:=1
  нц пока (j<=N) и (Flag="Да") | вычисление сумм элементов
столбцов
    S:=0
     нц для i от 1 до N
       S:=S+A[i, j]
     кц
     если S<>St                    |сравнение суммы элементов
текущего
        то Flag:="Нет"             |столбца с эталонной суммой
        иначе j:=j+1
     все
  кц
  если Flag="Да"
     то S:=0 | вычисление суммы элементов побочной диагонали
        нц для i от 1 до N
          S:=S+A[i, N+1-i]
        кц
        если S<>St | сравнение суммы с эталонной
           то Flag:="Нет"
        все
  все
  если Flag="Да"
     то Otvet := "Это магический квадрат."
     иначе Otvet := "Это не магический квадрат."
  все
кон
                          Блок-схема (фрагмент)
                                         Вычисление суммы
                                         элементов главной
                                         диагонали в качестве
                                         эталонной суммы

Страницы