Вывод точки на экран и ее удаление

 

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 (x₁, y₁)- (x₂, y₂), цвет, B

LINE -(x, y), цвет

x₁, y_1, x₂, y₂ - абсолютныекоординаты

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½ 3 a n + x p ½²→ 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) n ²)½ → N ^ (2 + D) * ABS (COS (2 * X – (3 + H) * N ^ 2))

ЗАДАНИЕ I Б

Алгоритм линейной структуры

Задание: Вычислить корни уравнения по формулам: ; ;
Блок – схема	Программа   REM алгоритм линейной структуры DI М P, F, Y1, Y2, Y3 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 по одной из трех формул в зависимости от условий.
Блок – схема + - Y 1-я формула + -	Программа   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 алгоритм циклической структуры