Система программирования Турбо Паскаль. Воробьева А.П - 45 стр.

UptoLike

ВУЗ: 

НГАСУ «Сибстрин» | Новосибирск

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

Рубрика: 

91
Program DМ1_2;
Var
B: array [1..5, 1..5] of integer;
i, j, L1, L2, L: integer;
Begin
writeln(‘Введите матрицу B’);
for i := 1 to 5 do
for j := 1 to 5 do read(b[i,j]);
L1 := 0;
L2 := 0;
for i := 1 to 5 do
for j := 1 to 5 do
if b[i,j]=0 then
begin
if i>j then L1 := L1+1;
if i<j then L2 := L2 +1;
end;
L := abs(L1 – L2);
writeln(‘L=’, L);
End.
Реализация алгоритмов задач второго типа
Задача 1.
В матрице
63
}{
×
=
ij
xX вещественных чисел пер-
вый элемент
каждой строки поменять местами с минимальным
элементом этой строки. Вывести матрицу
Х после обмена.
Program DМ2_1;
Var
X: array [1..3, 1..6] of real;
i, j, jmin: integer;
min: real;
Begin
writeln(‘Введите матрицу X’);
for i:= 1 to 3 do
for j := 1 to 6 do read(x[i,j]);
for i:=1 to 3 do
begin
min:=+1E6;
92
for j:=1 to 6 do
if x[i,j]<min then
begin
min:=x[i,j];
jmin:=j;
end;
x[i,jmin]:=x[i,1];
x[i,1]:=min;
end;
for i:=1 to 3 do
begin
for j:=1 to 6 do write(x[i,j]:6:1);
writeln;
end;
End.
Задача 2. Дана матрица вещественных чисел
48
}{
×
=
ij
cC .
Вычислить среднее арифметическое каждого столбца. Результат
оформить в виде одномерного массива
4,1};{ == jsS
j
.
Program DМ2_2a;
Var
C: array [1..8, 1..4] of real;
S: array [1..4] of real;
i, j: integer;
Begin
writeln(‘Введите матрицу C’);
for i := 1 to 8 do
for j := 1 to 4 do read(c[i,j]);
for j := 1 to 4 do
begin
s[j] := 0;
for i := 1 to 8 do s[j]:= s[j] + c[i,j];
s[j] := s[j]/8;
end;
for j := 1 to 4 do write(s[j]:8:2);
writeln;
End. 
              Program DМ1_2;                                                          for j:=1 to 6 do
              Var                                                                         if x[i,j]j then L1 := L1+1;                        End.
                               if i

Страницы