Пример 3.3. В заданной матрице a(n, m) поменять местами строки с номерами p и

Q

(1 <= P <= N, 1 <= Q <= N).

Тест

Данные	Результат
N=3 M=3 P=1 Q=3

Алгоритмический язык

алг Поменять местами строки (арг цел N, M, арг цел P, Q, арг рез вещ таб А[1:N, 1:M] )

нач цел j, вещ Tmp

нц для j от 1 до M | цикл по элементам строк матрицы

Tmp:=A[P, j]; A[P, j]:=A[Q, j]; A[Q, j]:=Tmp

кц

кон

Исполнение алгоритма Блок-схема (фрагмент)

j	Tmp	A[1,j]	A[3,j]
1 2 3	1 2 1	3 1 3	1 2 1

Turbo Pascal

Program Exchange;

Uses Crt;

Type Mas = Array [1..10, 1..10] of Real;

Var A : Mas;

N, M, P, Q, i, j : Integer;

Tmp : Real;

{--------------------------------------------------------------}

Procedure InputOutput(Var A:Mas); {описание процедуры ввода-вывода}

Begin

ClrScr;

Write('Количество строк - '); ReadLn(N);

Write('Количество столбцов - '); ReadLn(M);

For i := 1 to N do

For j := 1 to M do

begin Write('A[' , i , ', ' , j , '] = ? ');

Read(A[i, j]);

end; WriteLn;

WriteLn('Номера строк, которые нужно поменять местами :');

Write('P = '); ReadLn(P); Write('Q = '); ReadLn(Q);

WriteLn;

ClrScr; WriteLn('Исходная матрица : ' ) ;

For i := 1 to N do

begin

For j := 1 to M do Write(A[i, j] : 5 : 1);

WriteLn;

end; WriteLn

End; { of InputOutput}

{--------------------------------------------------------}

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;

все

кц

кц

кон

Turbo Pascal

Program Regulation;

Uses Crt;

Type Mas = Array [1..10] of Real;

Var A : Mas;

i, j, N : Integer;

Tmp : Real;

{--------------------------------------------}

Procedure Input; {описание процедуры ввода массива }

Begin

ClrScr;

Write('Введите N = '); ReadLn(N);

WriteLn('Введите элементы массива: ');

For i := 1 to N do

begin Write('A [ ' , i , ' ] = ');

ReadLn(A[i]);

end;

End; {of Input}

{--------------------------------------------}

Procedure Regulate; {описание процедуры упорядочения по возрастанию}

Begin

For i := 1 to N-1 do

For j := i+1 to N do

If A[i] > A[j] then

begin

Tmp:=A[i];

A[i]:=A[j];

A[j]:=Tmp;

end;

End; {of Regulate}

{--------------------------------------------}

Procedure Output; {описание процедуры вывода результата}

Begin

WriteLn('Упорядоченный массив :');

For i:=1 to N do Write( A[i] : 6 : 1);

WriteLn; ReadLn

End; {of Output}

{--------------------------------------------}

BEGIN

Input; {вызов процедуры ввода массива }

Regulate; {вызов процедуры упорядочения по возрастанию}

Output; {вызов процедуры вывода результата}

END.

Пример 3.5. В массиве A(N, N) вычислить две суммы элементов, расположенных

ниже и выше главной диагонали.

Данные	Результат
N=3	S1=6 S2=9

Тест

Алгоритмический язык

алг Две суммы (арг цел N, арг вещ таб A[1:N, 1:N], рез вещ S1, S2)

надо | S1 = сумма элементов ниже главной диагонали

| S2 = сумма элементов выше главной диагонали Блок-схема (фрагмент)

нач цел i, j

S1:=0; S2:=0

нц для i от 2 до N | циклы по элементам, расположенным

нц для j от 1 до i-1 | ниже главной диагонали

S1:=S1 + A[i, j]

кц

кц

нц для i от 1 до N-1 | циклы по элементам, расположенным

нц для j от i+1 до N | выше главной диагонали

S2:=S2 + A[i, j]

кц

кц

кон

Turbo Pascal

Program TwoSums;

Uses Crt;

Var A : Array [1..10, 1..10] of Real;

S1, S2 : Real; {S1, S2 - суммы элементов, расположенных

ниже и выше главной диагонали, соответственно}

N, i, j : Integer;

{--------------------------------------------}

Procedure InputOutput;{описание процедуры ввода-вывода

исходных данных}

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;

ClrScr; WriteLn(' Матрица А');

For i := 1 to N do {Вывод матрицы}

begin

For j := 1 to N do Write(A[i, j] : 5 : 1);

WriteLn

end; WriteLn

End; { of InputOutput }

{--------------------------------------------}

Procedure Under;

Begin {описание процедуры суммирования элементов, }

S1 := 0; {расположенных ниже главной диагонали }

For i := 2 to N do

For j := 1 to i-1 do

S1 := S1 + A[i, j];

WriteLn('О т в е т :');

WriteLn('Сумма элементов, лежащих ниже главной диагонали =', S1:5:1);

End;

{--------------------------------------------}

Procedure Over;

Begin {описание процедуры суммирования элементов,}

S2 := 0; {расположенных выше главной диагонали}

For i := 1 to N-1 do

For j := i+1 to N do

S2 := S2 + A[i, j];

WriteLn('Сумма элементов, лежащих выше главной диагонали =', S2:5:1);

ReadLn;

End;

{--------------------------------------------}

BEGIN

InputOutput; {Вызов процедуры ввода-вывода матрицы }

Under; {Вычисление суммы элементов, лежащих ниже главной диагонали}

Over; {Вычисление суммы элементов, лежащих выше главной диагонали }

END.