|
||||||||||||||||||||||||||||||||||||||||||||||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
ЗАДАЧА III Б Вычисление суммы (произведения)
Программа
REM алгоритм цикл. REM вычисление суммы DIМ A, G, D, BK, YK, K INPUT “ D, A”; D, A K = 3 G = 0 DO XK = D * K GK = (COS (XK + A) + SQR (ABS (1 – XK))) ^ 2 G = G+GK K = K+ 2 LOOP UNTIL K > 21 PRINT “G = ”; G END | |||||||||||||||||||||||||||||||||||||||||||||||||
3 Цикл «СЧЕТЧИК» | ||||||||||||||||||||||||||||||||||||||||||||||||||
Блок – схема
|
Программа
REM алгоритм цикл. REM вычисление суммы DIМ A, G, D, BK, YK, K INPUT “ D, A”; D, A G = 0 FOR K = 3 TO 21 STEP 2 XK = D * K GK = (COS (XK + A) + SQR (ABS (1 – XK))) ^ 2 G = G + GK NEXT K PRINT “G = ”; G END |
Результат выполнения программы
D, A?_.2, 43
G = 28.14528
ЗАДАНИЕ IV Алгоритм комбинированной структуры
Задание: Вычислить значение функции
, 0,3 < a ≤ 2
z= , a ≤ 0,3 или a > 2,
для a = 0,1; 0,25; 0,3; 0,5; 1; 1,5; 2; 3,5; 4; 5.
Здесь . Пренебречь членами ряда, меньшими 10-5
Решение: обозначим y→ Y, yn → YN, i → I, n → N, ε →Ε как простые переменные, z → Z (I), a → A(I) как одномерные массивы, длина каждого из которых составляет 10 элементов
Вариант решения
Блок – схема
|
| |||
|
+
+ _
|
|
Программа
REM алгоритм комбинированной структуры
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) = (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 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
Вариант решения (использование подпрограммы пользователя)
|
|
|
|
|
|
+
+
Программа
DECLARE SUB SUMMA ‘ текст основной программы
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
CALL SUMMA (E, Y)
FOR i = 1 TO 10
READ A(i)
IF A(i) > 0.3 AND A(i) < = 2 THEN
Z(i) = (2*A(i)+ Y)^5
ELSE
Z(i) = (A(i), Y)
END IF
PRINT “A(”; i; “)=”; A(i), “Z (”; i; “)=”; Z(i)
NEXT i
END
SUB SUMMA(E, Y) ‘ текст подпрограммы пользователя SUMMA
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
END SUB
Поиск по сайту:
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.025 сек.) |