Задание 1

Вычислить функцию:

при a=0.87, b=-1.8, z=24.2, x=0.1019

Блок-схема алгоритма

 

Программа

10 INPUT " Введите значения параметров A, B, Z, X", A, B, Z, X

20 Y = (2.5 * X ^ 2 + 1.8 * X - SIN(Z) * SIN(Z)) / (SQR(ABS(COS(B) - A)))

30 PRINT " Значение функции =", Y

END

Контрольный пример

Задание 2

при x≤3

при x>3

 
Вычислить функцию

Блок-схема алгоритма

 

 

 

 

 

 

 

Программа

10 INPUT " Введите значение X", X

20 IF X <= 3 THEN Y = X - 1.5 ELSE Y = X + 1

30 PRINT " При X=", X; "Y=", Y

40 END

Контрольный пример

1)    при X=2  Y=0.5

2)    при X=3  Y=1.5

3)    при X=4  Y=5

Задание 3

Вывести на печать элементы массива B(N), не кратные двум и найти их количество.

Блок-схема алгоритма

 

 

 

 

 

Программа

10 INPUT " Введите число элементов массива ", N

20 DIM B(N)

30 K = 0

40 FOR I = 1 TO N

50 INPUT B(I)

60 NEXT I

70 FOR I = 1 TO N

80 EL = B(I) / 2

90 IF ABS(EL) - INT(ABS(EL)) = 0 THEN GOTO 110

100 PRINT "Число не кратное 2 -", EL: K = K + 1

110 NEXT I

120 PRINT "Число элементов не кратных 2", K

130 END

Контрольный пример

N=10, B(N)={3, -2, 5, 7, -4, 1, -8, 3, 5, 4}

EL={3, 5, 7, 1, 3, 5}, K=6

Задание 4

Найти максимальный элемент матрицы A(N,M) и записать нули в ту строку, где он находится..

Блок-схема алгоритма

 

Программа

10 INPUT " Введите число строк ", N

20 INPUT " Введите число столбцов ", M

30 DIM A(N, M)

40 FOR I = 1 TO N

50 FOR J = 1 TO M

60 INPUT A(I, J)

70 NEXT J

80 NEXT I

90 MAX = A(1, 1)

100 FOR I = 1 TO N

110 FOR J = 1 TO M

120 IF A(I, J) > MAX THEN MAX = A(I, J): STR = I

130 NEXT J

140 NEXT I

150 FOR J = 1 TO M

160 A(STR, J) = 0

170 NEXT J

180 PRINT "Максимальный элемент =", MAX

190 END

Контрольный пример

N=5, M=3

MAX=8, STR=2