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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Procedure Change(P, Q: Integer); {описание процедуры замены
строк }
Begin
For j := 1 to M do
begin Tmp:=A[P, j]; A[P, j]:=A[Q, j]; A[Q, j]:=Tmp end;
End; { of Change}
{--------------------------------------------------------}
Procedure OutRes(Var A:Mas); {описание процедуры вывода
результатов}
Begin
WriteLn('Матрица-результат :');
For i := 1 to N do
begin
For j := 1 to M do Write(A[i, j] : 5 : 1) ;
WriteLn
end; ReadLn
End; { of OutRes}
{--------------------------------------------------------}
BEGIN
InputOutput(A); {вызов процедуры ввода-вывода исходных данных}
Change(P, Q); {вызов процедуры замены строк }
OutRes(A) {вызов процедуры вывода результатов}
END.
Пример 3.4. Элементы заданного числового массива a
1
, a
2
, ..., a
N
упорядочить по
возрастанию.
Тест
Данные Результат
N=4 A=(5, 2, 7, 1) A=(1, 2, 5, 7)
Школьный АЯ
алг Возрастание(арг цел N, арг
рез
вещ таб A[1:N])
нач цел i, j, вещ Tmp
нц для i от 1 до N-1
нц для j от i+1 до N
ecли A[i] > A[j]
то Tmp:=A[i]; A[i]:=A[j];
A[j]:=Tmp
все
кц
кц
кон
Исполнение алгоритма
i j A[i]>A[j] Массив A
1 2
3
4
+
-
+
2, 5,
7
,
1
Блок-схема (фрагмент) 
 Procedure Change(P, Q: Integer); {описание процедуры замены
строк }
  Begin
    For j := 1 to M do
      begin Tmp:=A[P, j]; A[P, j]:=A[Q, j]; A[Q, j]:=Tmp end;
  End; { of Change}
{--------------------------------------------------------}
 Procedure OutRes(Var A:Mas); {описание процедуры вывода
результатов}
  Begin
    WriteLn('Матрица-результат :');
    For i := 1 to N do
      begin
        For j := 1 to M do Write(A[i, j] : 5 : 1) ;
        WriteLn
      end; ReadLn
  End; { of OutRes}
{--------------------------------------------------------}
BEGIN
  InputOutput(A); {вызов процедуры ввода-вывода исходных данных}
  Change(P, Q); {вызов процедуры замены строк }
  OutRes(A) {вызов процедуры вывода результатов}
END.

  Пример 3.4. Элементы заданного числового массива a1, a2, ..., aN упорядочить по
                                возрастанию.

                                        Тест

                           Данные                Результат
                    N=4     A=(5, 2, 7, 1)     A=(1, 2, 5, 7)
Школьный АЯ
алг Возрастание(арг цел N, арг
рез                                                 Блок-схема (фрагмент)
                  вещ таб A[1:N])
нач цел i, j, вещ Tmp
  нц для i от 1 до N-1
     нц для j от i+1 до N
       ecли A[i] > A[j]
          то Tmp:=A[i]; A[i]:=A[j];
A[j]:=Tmp
        все
     кц
  кц
кон
Исполнение алгоритма

   i      j      A[i]>A[j]       Массив A
   1      2           +          2, 5, 7,
          3           -              1
          4           +

Страницы