Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Программа. 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
Вариант решения (использование функции пользователя)
 |
Блок – схема
 |
|
|
|
| |||||||||
 | |||||||||
 | |||||||||
 | |||||||||
| |||||||||
 |
|
+
 |
|
|
+ _
 | |||
 | |||
Программа
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
Вариант решения (использование подпрограммы пользователя)
|
|
Блок – схемы | |||
 |
|
+
+
Date: 2015-11-13; view: 398; Нарушение авторских прав