![]() Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 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: 397; Нарушение авторских прав |