Вывод точки на экран и ее удаление
PSET (x, y) [, цвет] PRESET (x, y)
x, y – координаты точки, определяемые в абсолютной или относительной форме.
Цвет – цвет точки.
При выполнении PSET на экран выводится точка с координатами x и y заданного цвета.
PRESET выводит на экран точку цвета фона (т.е. стирает ее, делает невидимой).
Пример: построение диагональной линии и стирание ее
SCREEN 2
FOR X=10 TO 100
PSET (X,X)
NEXT X
FOR X=100 TO 10 STEP -1
PRESET (X,X)
NEXT X
Построение линии и прямоугольника
LINE (x1, y1)- (x2, y2), цвет, B
LINE -(x, y), цвет
x1, y1, x2, y2-абсолютныекоординаты
x, y – относительные координаты точки.
Цвет – цвет линии или контура прямоугольника.
В – признак прямоугольника, стороны которого параллельны осям, а вершины определяются координатами главной диагонали.
Пример: построение ломаной линии и прямоугольника
SCREEN 2
LINE (20,30)- (100,130)
LINE -(250,80)
LINE (300,50)- (350,150),,В
Построение эллипса (окружности)
CIRCLE (x, y), рад, цвет, нач., кон., отн.
x, y – координаты центра эллипса (в абсолютной или относительной форме).
рад – радиус большой полуоси.
цвет – цвет эллипса.
нач., кон. – величина в радианах угла, соответственно начального и конечного радиусов. Угол отсчитывается от положительного направления оси Х против часовой стрелки. Если нач. и кон. записаны со знаком ''-'', то крайние точки дуги соединяются с центром.
отн. – отношение Х – радиуса к Y– радиусу, по умолчании отн. =5 / 6 (5 / 12), что соответствует окружности.
Пример:
SCREEN 2 : PI = 3.14
CIRCLE (150,100),50,,- PI / 4,-2* PI
CIRCLE (450,100),80,, PI / 4,2* PI
CIRCLE (300,130),40,,,,5 / 18
CIRCLE (300,130),40,,,,18 / 5
Закрашивание замкнутых областей
PAINT (x, y), цвет, контур (граница), фон.
x, y – координаты любой точки внутри замкнутой области.
цвет – числовое выражение, определяющее цвет области.
граница – числовое выражение, определяющее цвет контура
фон – числовое выражение, определяющее цвет фона.
Пример:
SCREEN 2
LINE (10,10)- (120,120),,В
PAINT (100, 100), 1
ПРИМЕРЫ ВЫПОЛНЕНИЯ ЗАДАНИЙ
ЗАДАНИЕ I А
Арифметические выражения
Задание:Записать в символах алгоритмического языка QBASIC
arctg½3a n + x p ½2→ ATN (ABS(3 * A + X * P) ^ 2 )
log ac (p х+2) + → L OG ( P ^ ( X + 2)) / LOG ( A * C ) + X * M / ( A + B)
→ (M * A + P ^ 3) / ( 2 * EXP ( X * B) + 3 * X )
n (2+ d )½cos(2 x - (3+h) n2)½ → N ^ ( 2 + D) * ABS ( COS ( 2 * X – ( 3 + H ) * N ^ 2 ))
ЗАДАНИЕ I Б
Алгоритм линейной структуры
Задание: Вычислить корни уравнения по формулам: ; ; | |||||||||||
Блок – схема
|
REM алгоритм линейной структуры DI
INPUT P, F CONST PI = 3.14 Y1 = 2 * P ^ ( 1 / 3) * COS ( F / 3 ) Y2 = 2 * P ^ ( 1 / 3) * COS ( F / 3 + 2 * PI / 3) Y3 = 2 * P ^ ( 1 / 3) * COS ( F / 3 + 4 * PI / 3) PRINT “Y1=”; Y1 , “Y2 =”; Y2, “Y3 =”; Y3 END
|
Результат выполнения программы:
P, F?_2, 4
Y1= .592762 Y2 = -2.41739 Y3=1.824628
ЗАДАНИЕ II Алгоритм разветвляющейся структуры
ЗАДАЧА IIА
Задание: Вычислить значение функции , где | |||||||||
При решении этой задачи необходимо предусмотреть два варианта: 1) если аргумент функции, который обозначен в блок-схеме как R1, не равен 0, то функция R может быть вычислена с дальнейшим выводом результата; 2) если аргумент функции R1 равен 0, то функцию R вычислить невозможно. В этом варианте решения выводится не результат вычислений, а текстовое сообщение «Функция не определена» | |||||||||
Блок – схема
|
REM алгоритм разветвляющейся структуры DIМ G, H , Y, R1, R INPUT “G, H” : G, H Y = (G + 2) / H R1 = ABS (Y – Y ^ 2 / 2) IF R1 < > 0 THEN R = LOG ( R1 ) / LOG ( 2.5 ) PRINT “R = ”; R ELSE PRINT “Функция не определена” END IF END
|
Результат выполнения программы (данные вводятся дважды - для проверки правильности работы обеих ветвей программы):
H?_2, 3
R = -1.39796
G, H?_-2, 2
Функция не определена
ЗАДАЧА II Б
Задание: Вычислить значение функции y , для произвольного значения аргумента x , x > 4 y = , если x < - 3 а, - 3 ≤ x ≤ 4 | |||||
При решении необходимо предусмотреть три возможных варианта вычисления функции Y по одной из трех формул в зависимости от условий. | |||||
Блок – схема
+ -
|
REM алгоритм разветвляющейся структуры DIМ A, X , Y INPUT “A, X” ; A, X IF X > 4 THEN Y = ATN ( SQR (X - 3 ) ) ELSE IF X < - 3 THEN Y = TAN ( X +A ^ 2 ) ELSE Y = A END IF END IF PRINT “ Y = ”; Y END
|
Результат выполнения программы (данные вводятся трижды - для проверки правильности работы трёх ветвей программы):
A, X?_5, 6
Y = 1.047198
A, X? 5, 2
Y = 0.008852
A, X?_5, -4
Y = 5
ЗАДАНИЕ III алгоритм циклической структуры