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

UptoLike

ВУЗ: 

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

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

Рубрика: 

3 "Да" +
1
2
3
+
+
-
(кц)
-
+
4 -
(кц)
"Есть
отрицательные"
2 "Нет" + 1
2
+
-
(кц)
-
3 +
1
2
3
+
+
-
(кц)
-
-
2
4 -(кц) "Нет отрицательных"
Turbo Pascal
Program UnderDiagonal;
Uses Crt;
Type Mas = Array [1..10, 1..10] of Integer;
Var A : Mas;
N, i, j : Integer;
Flag : Boolean;
{-----------------------------------}
Procedure InputOutput(Var A : Mas); {описание процедуры }
Begin {ввода-вывода данных}
ClrScr;
Write('Количество строк и столбцов - '); ReadLn(N);
For i := 1 to N do
For j := 1 to N do
begin Write('A[' , i , ', ' , j , ']= ? ');
ReadLn(A[i, j])
end; WriteLn;
WriteLn('Матрица :');
For i := 1 to N do
begin
For j := 1 to N do Write(A[i, j] : 5);
WriteLn
end; WriteLn
End; { of InputOutput }
{------------------------------------}
Procedure Solution(Var A : Mas); {описание процедуры поиска
решения}
Begin
i := 2 ; Flag := FALSE;
While (i<=N) and not Flag do
begin
j:=1;
While (j<i) and not Flag do
If (A[i, j]<0) 
                                   +
                             1
                                   +    -
         3   "Да"      +     2
                                   -    +
                             3
                                 (кц)
         4             -                            "Есть
                     (кц)                      отрицательные"
    2    2   "Нет"    +      1    +     -
                             2     -
                                 (кц)
                                   +
                             1
                                   +    -
         3             +     2
                                   -    -
                             3
                                 (кц)
         4           -(кц)                  "Нет отрицательных"

Turbo Pascal
Program UnderDiagonal;
  Uses Crt;
  Type Mas = Array [1..10, 1..10] of Integer;
  Var A         : Mas;
       N, i, j : Integer;
       Flag     : Boolean;
{-----------------------------------}
Procedure InputOutput(Var A : Mas); {описание процедуры }
 Begin                                {ввода-вывода данных}
  ClrScr;
  Write('Количество строк и столбцов - '); ReadLn(N);
  For i := 1 to N do
     For j := 1 to N do
       begin Write('A[' , i , ', ' , j , ']= ? ');
              ReadLn(A[i, j])
       end; WriteLn;
  WriteLn('Матрица :');
  For i := 1 to N do
   begin
      For j := 1 to N do Write(A[i, j] : 5);
      WriteLn
   end; WriteLn
End; { of InputOutput }
{------------------------------------}
Procedure Solution(Var A : Mas); {описание процедуры поиска
решения}
 Begin
  i := 2 ; Flag := FALSE;
  While (i<=N) and not Flag do
     begin
       j:=1;
       While (j

Страницы