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

UptoLike

ВУЗ: 

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

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

Рубрика: 

нц для j от 1 до N
ввод A[i,j]
кц
кц
нц для i от 1 до N | цикл по
строкам
j := 1; Flag := "Нет"
нц пока (j<=N) и (Flag =
"Нет") |цикл до
если A[i, j]<0
|первого отрицат.
то Flag := "Да"
|элемента строки
иначе j:=j+1
все
кц
если Flag = "Да"
|обнуление строки
то нц для j от 1 до N
A[i, j]:=0
кц
все
кц
нц для i от 1 до N
нц для j от 1 до N
вывод A[i,j]
кц
кц
кон
Исполнение алгоритма
Обозначение проверяемого условия:
(j<=N) и (Flag = "Нет")=> (1)
i Flag j (1) A[i,j]<0 Flag="Да" A[i,j]
1 "Нет"
"Да"
1
2
1
2
3
+
+
-(кц)
-
+
+
A[1,1]=0
A[1,2]=0
A[1,3]=0
2 "Нет" 1
2
3
4
+
+
+
-(кц)
-
-
-
-
3 "Нет"
"Да"
1
1
2
3
+
-(кц)
+ + A[3,1]=0
A[3,2]=0
A[3,3]=0
Turbo Pascal
Program Modify;
Uses Crt; 
    нц для j от 1 до N
       ввод A[i,j]
    кц
  кц
  нц для i от 1 до N | цикл по
строкам
    j := 1; Flag := "Нет"
     нц пока (j<=N) и (Flag =
"Нет") |цикл до
         если A[i, j]<0
|первого отрицат.
           то Flag := "Да"
|элемента строки
           иначе j:=j+1
         все
     кц
     если Flag = "Да"
|обнуление строки
        то нц для j от 1 до N
            A[i, j]:=0
           кц
     все
  кц
  нц для i от 1 до N
     нц для j от 1 до N
         вывод A[i,j]
     кц
  кц
кон
                         Исполнение алгоритма

                    Обозначение проверяемого условия:
                   (j<=N) и (Flag = "Нет")=> (1)
       i    Flag    j     (1)    A[i,j]<0 Flag="Да"      A[i,j]
       1   "Нет"    1      +         -           +
            "Да"    2      +         +                  A[1,1]=0
                    1    -(кц)                          A[1,2]=0
                    2                                   A[1,3]=0
                    3
       2   "Нет"    1      +         -           -
                    2      +         -
                    3      +         -
                    4    -(кц)
       3   "Нет"    1      +         +           +      A[3,1]=0
            "Да"    1    -(кц)                          A[3,2]=0
                    2                                   A[3,3]=0
                    3
Turbo Pascal
Program Modify;
 Uses Crt;

Страницы