Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Lab_4.DOC
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
1.07 Mб
Скачать

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

Варианты заданий

Задача 5.1. Создать два одномерных массива по правилам , где и , где . Образовать из них двумерный массив по правилу , где ; . Исходные данные представлены в табл. 5.1.

Указания:

1. Задать числа в начале программы в виде констант и использовать эти константы при описании массивов.

2. Вывести на печать массивы A и B в виде строк, а массив C в виде таблицы; перед выводом каждого массива указать его имя.

Таблица 5.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

11.

-2

4

-2

3

0

4

-1

2

a - 3b

12.

1

7

1

5

1

6

1

3

a - b

13.

1

9

-1

4

1

5

-1

3

a2 + b

14.

3

10

2

5

7

10

2

4

b(a - 2)

15.

-1

8

0

6

-1

2

1

5

5a + 2b

16.

1

8

-2

8

0

3

-1

4

4a - b

17.

4

10

3

9

5

9

4

7

a + 6b

18.

1

6

2

8

2

5

3

6

3a - b

Задача 5.2. Образовать матрицу по правилу , где ; . Найти сумму (произведение) наибольших (наименьших) элементов чётных (нечётных) строк (столбцов) матрицы. Вывести на печать саму матрицу, номера строк (столбцов), в которых производился поиск наибольших (наименьших) элементов, сами наибольшие (наименьшие) элементы и окончательный ответ. Исходные данные представлены в табл. 5.2.

Таблица 5.2

Вариант

Сумма

(  )

или

произ

ведение

(  )

Строки

( L )

или

столбцы

( С )

Наиболь

шие(+)

или

наименьшие(-)

значения

Чётные

( ч )

или

нечётные

( н / ч )

1.

5

8

L

+

ч

2.

4

6

L

+

н/ч

3.

4

9

C

+

ч

4.

8

7

C

+

ч

5.

5

6

L

-

н/ч

6.

8

4

L

-

н/ч

7.

9

5

C

-

ч

8.

10

4

C

-

н/ч

9.

5

7

L

+

н/ч

10.

6

8

L

+

ч

11.

8

5

C

+

ч

12.

7

9

C

+

н/ч

13.

10

6

L

-

н/ч

14.

6

6

L

-

ч

15.

7

5

C

-

ч

16.

4

7

L

+

н/ч

17.

5

4

C

-

ч

18.

4

6

L

+

н/ч

Задача 5.3. Найти элементы двумерного массива , где ; по правилу . Упорядочить массив по возрастанию (убыванию) элементов дробной (целой) части столбца (строки) с номером . Вывести на печать исходный и отсортированный массивы. Исходные данные представлены в табл. 5.3.

Таблица 5.3

Вариант

Возрастание

( + )

или

убывание

( - )

Дробная

( F )

или

целая

( I )

Строки

( L )

или

столбцы

( С )

1.

7

5

+

F

5

L

2.

4

6

+

I

3

C

3.

6

5

-

F

2

L

4.

5

7

-

I

6

C

5.

5

5

+

F

1

L

6.

9

8

-

F

7

L

7.

6

7

-

I

6

C

8.

8

7

-

I

2

L

9.

5

4

-

F

4

L

10.

4

9

+

I

8

C

11.

5

8

+

F

7

C

Продолжение таблицы 5.3

Вариант

Возрастание

( + )

или

убывание

( - )

Дробная

( F )

или

целая

( I )

Строки

( L )

или

столбцы

( С )

12.

8

6

-

F

4

L

13.

7

4

-

I

6

L

14.

6

4

+

F

2

L

15.

5

9

-

F

8

C

16.

9

4

+

I

7

L

17.

8

4

+

F

8

L

18.

5

9

-

I

5

C

Задача 5.4. Разработать программу, формирующую матрицу  , размерности строк и столбцов, элементы которой определяются по формуле

где - номер строки. - номер столбца элемента матрицы. В сформированной матрице удалить все строки (столбцы), наибольший (наименьший) элемент которых меньше (больше, равен, не равен) . Вывести исходную матрицу, наибольшие (наименьшие) элементы для каждой строки (столбца), а также преобразованную матрицу. Исходные данные представлены в табл. 5.4.

Таблица 5.4

Вариант

Меньше(<)

больше(>)

равно(=)

не равно

( )

Наиболь

шие

(+)

или

наименьшие

(-)

значения

Строки

( L )

или

столб-цы

( С )

1.

9

7

2.

9

8

3.

8

6

4.

6

9

5.

6

7

6.

7

6

7.

8

9

8.

5

8

9.

9

6

10.

6

6

11.

8

5

Продолжение таблицы 5.4

Вариант

Меньше(<)

больше(>)

равно(=)

не равно

( )

Наиболь

шие

(+)

или

наименьшие

(-)

значения

Строки

( L )

или

столбцы

( С )

12.

8

5

13.

7

7

14.

7

8

15.

8

9

16.

6

8

17.

9

5

18.

8

7

23

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]