Файл: Митяков Информатика Часть 1.pdf

71 

Задание №4 

1.  В матрице А(7,7) найти наибольший из элементов, удовлетворяющих ус-

ловию 

5

0

a

ij

2

,

cos

>

, и поменять его местами с первым элементом шестого 

столбца. 

2.  Создать новый одномерный массив, состоящий из произведений элемен-

тов матрицы А(6,4) по столбцам. 

3.  Найти строку, содержащую минимальный элемент матрицы А(5,7), и по-

менять ее местами с четвертой строкой. 

4.  В строке, содержащей максимальный элемент матрицы А(6,8), подсчитать 

сумму положительных элементов. 

5.  Найти сумму отрицательных элементов на побочной диагонали матрицы 

А(8,8), а также произведение ненулевых элементов в области выше глав-

ной диагонали. 

6.  В квадратной матрице А(7,7) найти число отрицательных элементов в об-

ласти выше главной и ниже побочной диагонали. Поменять местами ми-

нимальный элемент первой строки и последний элемент матрицы. 

7.  Сформировать одномерный массив В из отрицательных элементов облас-

ти исходной матрицы А(9,7), лежащей левее шестого столбца. В получен-

ном массиве поменять местами первый и максимальный элементы. 

8.  В  квадратной  матрице  А(7,7)  поменять  местами  минимальные  элементы 

первой  и  третьей  строк,  максимальные  элементы  главной  и  побочной 

диагоналей. 

9.  Сформировать  одномерный  массив  В  из  элементов  исходной  матрицы 

А(7,7), удовлетворяющих условию 

8

1

a

(

g

8

0

ij

,

)

t

,

<

<

. В полученном мас-

сиве найти минимальный из положительных элементов. 

10. В квадратной матрице А(7,7) найти среднее арифметическое положитель-

ных  элементов,  произведение  ненулевых  элементов,  а  также  количество 

нулей на побочной диагонали. 

72 

11. В матрице A(8,8) поменять местами первую и шестую строку. В получен-

ной  матрице  найти  сумму  элементов,  расположенных  ниже  побочной 

диагонали. 

12. В матрице А(7,8) найти наибольший из элементов, удовлетворяющих ус-

ловию 

5

0

a

ij

2

,

cos

>

, и поменять его местами с первым элементом шестого 

столбца. 

13. Создать  новый  одномерный  массив  В  из  элементов  исходной  матрицы 

A(6,8), удовлетворяющих условию 

5

0

a

0

ij

,

cos

<

≤

. В полученном массиве 

поменять местами максимальный и минимальный элементы. 

14. В  матрице  A(7,7)  найти  произведение  ненулевых  диагональных  элемен-

тов,  максимальный  элемент  третьего  столбца  и  минимальный  элемент 

шестой строки. 

15. В матрице A(7,5) найти количество нулевых элементов. Поменять места-

ми минимальные элементы второй и пятой строк. 

73 

6. МЕТОДИЧЕСКИЕ УКАЗАНИЯ И ПРИМЕРЫ ВЫПОЛНЕНИЯ 

КОНТРОЛЬНЫХ РАБОТ 

Ниже приведены образцы оформления контрольных работ  

Задание №1 

Составить блок-схему и программу для вычисления Y и Z по заданным фор-

мулам 

)

arccos(

)

sin(

a

x

2

e

Z

a

x

Y

x

2

4

2

+

+

=

−

=

при а=0,35, х=0,21 

Блок-схема 

Программа на Фортране 

WRITE(*,*) ’ введение а и х’ 
READ (*,*) a ,x 
Y=ABS (sin(x-a**2))**4 
Z=EXP (2*x)+ACOS (2*x+a) 
WRITE (*,*)’ a=’,a, ‘x=’,x, ‘Y=’,Y, 
‘Z=’,Z 
END 

Задание №2 

Составить блок-схему и программу для вычисления таблицы значений 

функции U(x,y) при изменении значений аргументов x и y в заданных пределах 

и с заданным шагом 

⎪

⎩

⎪

⎨

⎧

≥

<

≤

+

<

=

3

xy

если

xy

3

xy

1

если

y

x

1

xy

если

e

U

2

2

,

ctg

,

,

tg

xn=-0.5; xk=1.6; hx=1; 

yn=1;   yk=2.1; hy=0.5 

74 

Блок-схема 

Программа на Фортране 

WRITE(*,*)’введите 
xn,xk,hx,yn,yk,hy’ 
READ (*,*) xn,xk,hx,yn,yk,hy 
DO x=xn,xk,hx 
 DO 

y=yn,yk,hy 

   If 

(ABS(x*y).LT.1) 

THEN 

U=TAN (EXP(1)) 

ELSEIF (ABS(x*y).GE.3) THEN 
 U=1/TAN(x*y) 
 ELSE 
 U=x**2+y**2 
 END 

IF 

WRITE (*,*)’ x=’,x, 

‘y=’,y,U=’,U 

END DO 

END DO 
   END

начало 

xn, xk, hx, yn, yk, hy 

x=xn 

y=yn 

|xy|<1 

|xy|>=3 

u=x2+y2 

u=ctg(xy

) 

u=tg(e) 

x, y, u 

x=x+hx 

y=y+hy 

x<=xk 

y<=yk 

Конец 

да 

да 

да 

да 

75 

Задание №3 

В одномерном массиве X (15) найти сумму неположительных, произведе-

ние неотрицательных элементов, помен

я

ть местами первый и последний эле-

менты 

DIMENSION x(15) 
WRITE(*,*)’введите массив х(15)’ 
DO i=1,15 
 READ(*,*) 

x(i) 

END DO 
WRITE(*,*)’массив х(15)’ 

DO i=1,15 

  WRITE(*,*) 

x(i) 

 END DO 
S=0 
P=1 
DO i=1,15 

IF (x(i).LE.0) THEN 

S=S+x(i) 
ELSE 

P=P*x(i) 

END IF 
END DO 
a=x(1) 
x(1)=x(15) 
x(15)=a 
WRITE (*,*)’ S=’,S, ‘P=’,P, ‘новый 
массив’ 

DO i=1,15 

  WRITE(*,*) 

x(i) 

 END 

DO 

END 

начало 

конец 

Ввод массива X 

Вывод массива

 X 

S=0 

P=1 

I=1 

S=S+Xi 

Xi<0 

I=I+1 

P=P*Xi 

I<=15 

X

1

=X

15

A=X

1

X

15

=A 

S,P 

Вывод массива X 

да 

да