30 IF Y>0 THEN K=1 ELSE K=2
40 PRINT Y, K
50 END
б). Исполнить программу, выполнив RUN, при появлении на экране знака: ? , что означает запрос по команде INPUT на ввод числа с клавиатуры, набрать любое число и ввести его, нажав клавишу ENTER.
в). Наблюдать на экране результат решения в виде двух чисел, при этом, если первое из них положительно, то второе число будет равным 1, и наоборот, если первое число отрицательно, то второе равно 2.
г). Очистить память NEW и экран компьютера CLS.
Задача 4: (циклический алгоритм)
а). Набрать текст программы:
10 H=20
20 C=H-8
30 PRINT H, C
40 H=H-6
50 IF C>0 GOTO 20
60 END
б). Распечатать текст программы на экране.
в). Исполнить программу и наблюдать результат:
20 12
14 6
8 0
г). Очистить экран и память.
Задача 5: (разветвленный алгоритм)
Решить задачу с условием: подсчитать значение величины Y по формуле: Y=X2+А при X<0 и по формуле: Y=tg(X3)-sin(X/3)-А при X>=0.
а).Набрать текст программы:
10 INPUT “A, X=”;A,X
20 IF X>=0 GOTO 50
30 Y=X^2+A
40 GOTO 60
50 Y=TAN(X^3)-SIN(X/3)-A
60 PRINT “Результат=”,X,Y
70 END
б). Исполнить программу, при появлении на экране записи: A,X=? ввести с клавиатуры два числа через запятую и нажать клавишу ENTER.
в). Наблюдать результат в виде записи: Результат= с двумя числами, записанными с промежутком между ними.
г). Очистить экран и память ЭВМ.
Задача 6: (циклический алгоритм)
а). Набрать текст программы:
10 FOR X=0 TO 0.5 STEP 0.1
20 Y=10*X+5
30 PRINT X,Y
40 NEXT X
50 PRINT
60 PRINT “X=”,X
70 END
б). Исполнить программу и наблюдать на экране результат:
0 5
0.1 6
0.2 7
0.3 8
0.4 9
0.5 10
Х= 0.6
в). Очистить экран и память.
Задача 7: (циклический алгоритм, использование массива случайных чисел)
Заполнить массив размером 6 случайными числами в диапазоне от 0 до 10 и распечатать номер элемента массива и его значение.
а). Набрать текст программы:
10 DIM A(6)
20 FOR I=1 TO 6
30 A(I)=10*RND(1)
40 PRINT I,A(I)
50 NEXT I
60 PRINT “Индекс I стал равен:”,I
70 END
б). Исполнить программу и наблюдать результат:
в). Очистить экран и память.
Задача 8: (алгоритм, включающий условие и цикл)
Определить максимальное значение функции: Y=sin(X)+ln(X) в интервале значений аргумента от 1 до 3 с дискретностью 0.01 .
10 REM Программа
20 YMAX=0
30 GOSUB 60
40 PRINT XMAX,YMAX
50 END
60 REM Подпрограмма
70 FOR X=1 TO 3 STEP 0.01
80 Y=SIN(X)+LOG(X)
