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

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½3a 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 алгоритм циклической структуры