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

 

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

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