Схемы циклических алгоритмов вычисления ряда значений функции при известном (а) и неизвестном (б) законе изменения аргумента

Схемы циклических алгоритмов вычисления ряда значений функций при известном (а) и неизвестном (б) законе изменения аргумента

 1∅ REM пример циклической программы 
 2∅ REM с простыми переменными 
 3∅ REM (вычисление ряда значений функции) 
 4∅ INPUT 'начальное значение аргумента - 'А 
 5∅ INPUT конечное значение аргумента - В 
 6∅ INPUT шаг изменения аргумента - 'С
 7∅ LET X=A 
 8∅ LET Y=(X*X)*(1-EXP(X)) 
 9∅ PRINT !E! 'при X='X, 'Y='Y 
10∅ LET X=X+C 
11∅ IF X<=B THEN 8∅ 
12∅ STOP 
13∅ END

 1∅ REM пример циклической программы 
 2∅ REM с индексированными переменными 
 3∅ REM (вычисление ряда значений функции) 
 4∅ DIM X (1∅∅), Y (1∅∅) 
 5∅ INPUT 'количество значений аргумента - 'N 
 6∅ REM ввод массива X 
 7∅ LET I=1 
 8∅ INPUT 'Х='Х(1) 
 9∅ LET I=I+1 
1∅∅ IF I<=N THEN 8∅ 
11∅ REM вычисление массива Y 
12∅ LET I=1 
13∅ LET Y(I)=(X(I)*X(I))*(1-EXP(X(I))) 
14∅ PRINT !3.∅! I, !E! 'при X='X(I), 'Y='Y(I) 
15∅ LET I=I+1 
16∅ IF I<=N THEN 13∅ 
17∅ STOP 
18∅ END

 1∅ REM вычисление действительных корней 
 2∅ REM квадратного уравнения 
 3∅ REM 
 4∅ REM 1. Ввод значений коэффициентов 
 5∅ INPUT 'A='A 
 6∅ INPUT 'В='В 
 7∅ INPUT 'C='C 
 8∅ REM 2. Вычисление Z 
 9∅ LET Z=B*B-4*А*С 
1∅∅ REM 3. Действительные корни есть? 
11∅ IF Z<∅ THEN 18∅ 
12∅ REM 4; 5. Вычисление корней 
13∅ LET X1=(-B+SQR(Z))/(2*A) 
14∅ LET X2= -B-SQR(Z))/(2*A) 
15∅ REM 6. Вывод значений корней 
16∅ PRINT 'X1='X1, 'X2='X2 
17∅ GOTO 2∅∅ 
18∅ REM 7. Вывод сообщения об отсутствии корней 
19∅ PRINT "действительных корней нет" 
2∅∅ REM конец вычислений 
21∅ STOP 
22∅ END