Найти среднее арифметическое элементов массива размером N, преобразовать исходный массив, вычитая из его элементов среднее значение, умноженное на А / В.

Практическая часть

Вариант 2

1.

Блок-схема

Текст программы

CLS

INPUT "Vvedite X = ",X

A = 9

B = 15

C = X^(B/A)-abs(A/B)^(1/3)

PRINT USING "C = #####.##";C

END

2.

Текст программы

CLS

A = 9

B = 15

FOR X = 0.5 TO 1.5 STEP 0.05

IF X < 0.8 THEN

W = A * (X * X) + B * X + X ^ (1 / 3)

END IF

IF X >= 0.8 AND X <= 1.2 THEN

W = A / X + SQR((X * X) + 1)

END IF

IF X > 1.2 THEN

W = (A + B * X) / SQR((X * X) + 1)

END IF

PRINT USING "W = ####.##"; W

NEXT X

END

Блок-схема

Найти среднее арифметическое элементов массива размером N, преобразовать исходный массив, вычитая из его элементов среднее значение, умноженное на А / В.

Текст программы

CLS

INPUT "Vvedite kol-vo elementov massiva N = ", N

WHILE N <= 0

INPUT "N>0! Vvedite kol-vo elementov massiva N =", N

WEND

DIM M(N)

FOR I = 1 TO N

INPUT "Element massiva: ", M(I)

NEXT I

PRINT "Massiv: ";

FOR I = 1 TO N

PRINT M(I);

NEXT I

Sum = 0

A = 9

B = 15

FOR I = 1 TO N

Sum = Sum + M(I)

NEXT I

L = Sum / N

PRINT " "

PRINT "Summa: "; Sum

PRINT "Srednee arifmeticheskoe: "; L

FOR I = 1 TO N

M(I) = M(I) - (L * A / B)

NEXT I

PRINT "Novyj massiv: ";

FOR I = 1 TO N

PRINT M(I);

NEXT I

END

Блок-схема

Не нашли, что искали? Воспользуйтесь поиском: