Программа. REM алгоритм комбинированной структуры

REM алгоритм комбинированной структуры

DIM A(1 TO 10), Z(1 TO 10)

DIM N, Y, E, Y,N, i

DATA 0.1, 0.25, 0.3, 0.5, 1, 1.5, 2, 3.5, 4, 5

INPUT “E”; E

N = 1: Y = 0

DO

YN = (N – 1.2) / (3 ^ N + N ^ 2)

Y = Y + YN: N = N + 1

LOOP WHILE ABS(YN) > E

PRINT “Y=”; Y

FOR i = 1 TO 10

READ A(i)

IF A(i) > 0.3 AND A(i) < = 2 THEN

Z(i) = (A (i) + Y) ^ 5

ELSE

Z(i) = ABS (2 * A (i) – Y) ^ (1 / 3)

END IF

PRINT “A(”; i; “)=”; A(i), “Z (”; i; “)=”; Z(i)

NEXT i

END

Вариант решения (использование функции пользователя)

Блок – схема

Y = Y + Y n

n = n +1

		F2 =

F1 =

+

z (i) = F1(a(i),Y)

z (i) = F1(a (i),Y)

 

 

+ _

 

 

 

 

Программа

DECLARE FUNCTION F1 ‘ текст основной программы

DECLARE FUNCTION F2

DIM SHARED N, Y, E, Y,N, i

DIM A(1 TO 10), Z(1 TO 10)

DATA 0.1, 0.25, 0.3, 0.5, 1, 1.5, 2, 3.5, 4, 5

INPUT “E”; E

N = 1: Y = 0

DO

YN = (N – 1.2) / (3 ^ N + N ^ 2)

Y = Y + YN: N = N + 1

LOOP WHILE ABS(YN) > E

PRINT “Y=”; Y

FOR i = 1 TO 10

READ A(i)

IF A(i) > 0.3 AND A(i) < = 2 THEN

Z(i) = F1(A(i), Y)

ELSE

Z(i) = F2(A(i), Y)

END IF

PRINT “A(”; i; “)=”; A(i), “Z (”; i; “)=”; Z(i)

NEXT i

END

FUNCTION F1(C,D) ‘ текст функции пользователя F1

F1 = (2*C+,D)^5

END FUNCTION

FUNCTION F2(C,D) ‘ текст функции пользователя F2

F2 = ABS(2*C - D)^(1 / 3)

END FUNCTION

Вариант решения (использование подпрограммы пользователя)

z (i)=

z (i) =