I,j,k:Integer;
Begin {Формируем матрицу A и выводим ее значения на экран}
WriteLn(' Матрица A');
For i:=1 to 8 do begin For j:=1 to 6 do begin
if i<j Then A[i,j]:=i+j Else if i=j then A[i,j]:=1 Else A[i,j]:=i/j;
Write(A[i,j]:6:2,' ');
end;
WriteLn ;
end ;
k:=0; {количество остающихся строк}
For i:=1 to 8 do {цикл по строкам}
begin
Max:=A[i,1]; {исходное значение максимума строки}
For j:=1 to 6 do {цикл поиска максимума строки}
if A[i,j]>Max then Max:=A[i,j];
WriteLn('Строка ',i:1,' Max=',Max:5:2);
if Max<> 7.00 then {если максимум строки не равен 7,00}
begin {то оставляем строку}
k:=k+1; {увеличиваем количество остающихся строк}
for J:=1 to 6 do A[k,j]:=A[i,j]; {копируем строку на место}
end;
end;
WriteLn; {Пустая строка}
if k<>0 THEN {если в матрице осталась хоть одна строка}
begin
WriteLn('Сформированная матрица после удаления строк');
For i:=1 to k do begin
For j:=1 to 6 do
Write(A[i,j]:6:2,' ');
WriteLn;
end ;
end
ELSE
WriteLn('Все строки матрицы удалены')
END.
4. Вид печати:
Матрица A
1.00 3.00 4.00 5.00 6.00 7.00
2.00 1.00 5.00 6.00 7.00 8.00
3.00 1.50 1.00 7.00 8.00 9.00
4.00 2.00 1.33 1.00 9.00 10.00
5.00 2.50 1.67 1.25 1.00 11.00
6.00 3.00 2.00 1.50 1.20 1.00
7.00 3.50 2.33 1.75 1.40 1.17
8.00 4.00 2.67 2.00 1.60 1.33
Строка 1 Max= 7.00
Строка 2 Max= 8.00
Строка 3 Max= 9.00
Строка 4 Max=10.00
Строка 5 Max=11.00
Строка 6 Max= 6.00
Строка 7 Max= 7.00
Строка 8 Max= 8.00
Сформированная матрица после удаления строк
2.00 1.00 5.00 6.00 7.00 8.00
3.00 1.50 1.00 7.00 8.00 9.00
4.00 2.00 1.33 1.00 9.00 10.00
5.00 2.50 1.67 1.25 1.00 11.00
6.00 3.00 2.00 1.50 1.20 1.00
8.00 4.00 2.67 2.00 1.60 1.33
Задание 2 . Составить программы для решения двух задач.
Задача
1. Создать
два одномерных массива по правилам
,
где
и
,
где
.
Образовать
из них двумерный массив по правилу
,
где
;
.
Исходные данные представлены в табл. 1.
Указания:
1.
Задать числа
в начале
программы в виде констант и использовать
эти константы при описании массивов.
2. Вывести на печать массивы A и B в виде строк, а массив C в виде таблицы; перед выводом каждого массива указать его имя.
Таблица 1
-
Вариант
1.
1
10
2
8
3
6
3
7
a2 - 5b
2.
0
6
-2
3
0
4
-1
2
ab
3.
3
9
7
14
4
8
7
10
3a + b
4.
5
12
-5
0
10
12
-4
0
a + 2b
5.
8
16
-3
5
11
14
1
5
3a + 4b
6.
-5
2
0
7
-3
1
3
6
a + b
7.
4
9
1
9
4
7
5
9
ab + 3
8.
-3
5
3
5
0
4
4
5
2a - b
9.
2
10
2
10
2
8
2
6
a + ab
10.
7
11
1
5
7
10
1
4
a + 7b
Задача
3. Найти
элементы двумерного массива
,
где
;
по правилу
.
Упорядочить массив
по возрастанию (убыванию) элементов
дробной части столбца (строки) с номером
.
Вывести на печать исходный и отсортированный
массивы. Исходные данные представлены
в табл. 2.
Таблица 2
Вариант
|
|
|
|
Возрастание ( + ) или убывание ( - ) |
|
Строки ( L ) или столбцы ( С ) |
|||||
|
|
7 |
5 |
|
+ |
5 |
L |
|
||||
|
|
6 |
5 |
|
- |
2 |
L |
|
||||
|
|
5 |
5 |
|
+ |
1 |
L |
|
||||
|
|
9 |
8 |
|
- |
7 |
L |
|
||||
|
|
5 |
4 |
|
- |
4 |
L |
|
||||
|
|
5 |
8 |
|
+ |
7 |
C |
|
||||
|
|
8 |
6 |
|
- |
4 |
L |
|
||||
|
|
7 |
4 |
|
- |
6 |
L |
|
||||
|
|
6 |
4 |
|
+ |
2 |
L |
|
||||
|
|
5 |
9 |
|
- |
8 |
C |
|
||||
