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

UptoLike

ВУЗ: 

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

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

Рубрика: 

end;
j:=1;
While (j<=N) and Flag do {вычисление сумм элементов столбцов}
begin
S:=0;
For i := 1 to N do S:=S+A[i, j];
If S<>Standard then Flag := FALSE else j := j+1
end;
If Flag then
begin
S:=0; {вычисление суммы элементов побочной диагонали}
For i := 1 to N do S := S+A[i, N+1-i];
If S<>Standard then Flag := FALSE;
end;
End;
{--------------------------------------------------------}
BEGIN
InputOutput; {Вызов процедуры ввода-вывода }
MagicOrNot(Flag); {Вызов процедуры решения задачи }
If Flag then WriteLn('Это магический квадрат.')
else WriteLn('Это не магический квадрат.');
ReadLn
END.
Пример 6.4. Дана матрица A(N, N). Если хотя бы один элемент строки матрицы
отрицателен, то все элементы этой строки заменить нулями.
Тест
Данные Результат
N Матрица А Матрица А
3
Школьный АЯ
(в этом алгоритме отражены процессы
ввода исходных данных и вывода
результатов )
алг Модификация(арг цел N, арг
рез
вещ таб A[1:N,
1:N])
дано | N>0
надо | элементы строк,
содержащих отрица-
| тельные числа,
заменены на нули
нач цел i, j, лит Flag
ввод N
нц для i от 1 до N
Блок-схема (фрагмент) 
    end;
  j:=1;
  While (j<=N) and Flag do {вычисление сумм элементов столбцов}
    begin
      S:=0;
      For i := 1 to N do S:=S+A[i, j];
      If S<>Standard then Flag := FALSE else j := j+1
    end;
  If Flag then
    begin
      S:=0; {вычисление суммы элементов побочной диагонали}
      For i := 1 to N do S := S+A[i, N+1-i];
      If S<>Standard then Flag := FALSE;
    end;
End;
{--------------------------------------------------------}
BEGIN
  InputOutput; {Вызов процедуры ввода-вывода }
  MagicOrNot(Flag); {Вызов процедуры решения задачи }
  If Flag then WriteLn('Это магический квадрат.')
          else WriteLn('Это не магический квадрат.');
  ReadLn
END.

  Пример 6.4. Дана матрица A(N, N). Если хотя бы один элемент строки матрицы
          отрицателен, то все элементы этой строки заменить нулями.
                                      Тест
        Данные                   Результат

 N        Матрица А             Матрица А

 3




Школьный АЯ                                    Блок-схема (фрагмент)
(в этом алгоритме отражены процессы
ввода исходных данных и вывода
результатов )
алг Модификация(арг цел N, арг
рез
                     вещ таб A[1:N,
1:N])
   дано | N>0
   надо | элементы строк,
содержащих отрица-
          | тельные числа,
заменены на нули
нач цел i, j, лит Flag
   ввод N
   нц для i от 1 до N

Страницы