автор:
Назарова Людмила Анатольевна
Преподаватель ГАПОУ «БРЯНСКИЙ ТРАНСПОРТНЫЙ ТЕХНИКУМ»
Грибченко Наталья Анатольевна
Преподаватель ГАПОУ «БРЯНСКИЙ ТРАНСПОРТНЫЙ ТЕХНИКУМ»
Методические рекомендации к выполнению практической работы по теме: Среда программирования. Тестирование готовой программы. Программная реализация не сложного алгоритма. Проведение исследования на основе использования готовой компьютерной модели. Составление компьютерных моделей.
Практическая работа №7
Тема занятия: Среда программирования. Тестирование готовой программы. Программная реализация не сложного алгоритма. Проведение исследования на основе использования готовой компьютерной модели. Составление компьютерных моделей.
Цель работы. Научиться составлять алгоритмы выполнения задач и составлять программы на языке программирования Basic.
Краткая теоретическая справка
Программы могут выводить данные на экран в текстовом и графическом режиме работы. Для перехода в графический режим работы служит оператор:
SCREEN <mode>
<mode> — целочисленная константа, указывающая режим работы для данного экрана и адаптера. Пример:
SCREEN 1
SCREEN 2 и так далее до 13
Для рисования можно использовать следующие операторы:
| CLS | Очистка экрана |
| PSET(X,Y),C | Изобразить точку. X,Y — координаты точки, С -цвет. |
| PSET STEP(X,Y),C | Изобразить точку. X,Y — смешение от данной точки, С — цвет. |
| LINE(X1,Y1)-(X2,Y2),C | Прямая линия.X1,Y2 и X2,Y2- координаты концов линии, С — цвет. |
| LINE -(X2,Y2),C | Прямая линия. От текущего положения курсора до X2,Y2-координаты конца линии, С — цвет. |
| LINE(X1,Y1)(X2,Y2),C,B | Прямоугольник. X1,Y2 и X2,Y2- координаты концов диагонали, С — цвет. |
| LINE(X1,Y1)(X2,Y2),C,BR | Закрашенный прямоугольник. X1,Y2 и X2,Y2- координаты концов диагонали, С — цвет. |
| CIRCLE(X,Y),R,C | Окружность. X,Y — координаты центра, С -цвет. |
| CIRCLE STEP(X,Y),R,C | Окружность. X,Y — смешение от данной точки, С цвет. |
| CIRCLE(X,Y),R,C,A1,A2 | Дуга окружности. X,Y — координаты центра, С -цвет, А1,А2 — угловые меры начальной и конечной точки дуги. |
| PAINT(X,Y),C1,C2 | Закрасить область. С1 — цвет закраски, С2 — цвет границы. |
Пример: использования LINE Результат работы программы:
REM использование LINE
SCREEN 12
LINE (10, 10)-(200, 10)
LINE (10, 20)-(200, 40), 2, B
LINE (10, 50)-(200, 70), 2, BF
END
Таблица цветов
| Номер | Цвет | ||
| 0 | Черный | 8 | Темно-серый |
| 1 | Синий | 9 | Светло-синий |
| 2 | Зеленый | 10 | Светло-зеленый |
| 3 | Голубой | 11 | Светло-голубой |
| 4 | Красный | 12 | Светло-красный |
| 5 | Фиолетовый | 13 | Васильковый |
| 6 | Коричневый | 14 | Желтый |
| 7 | Светло-серый | 15 | Ярко-белый |
ГРАФИЧЕСКИЕ МЕТОДЫ
Для создания экранных изображений используются графические методы Line, Circle, Pset, позволяющие рисовать линии прямоугольники, дуги и отдельные точки на экране.
объект — форма, окно рисунка (picturbox), объект печати, некоторых рисуется линия или прямоугольник;
Line — ключевое слово;
xl, yl — координаты начальной точки рисуемой линии или прямоугольника (в используемой системе координат). Тип Single. Если отсутствует координата начальной точки, то линия начинается от текущей позиции;
х2, у2 — координаты конечной точки рисуемой линии (обязательные параметры). Тип Single;
цвет — RGB-цвет линии (может использоваться функция RGB);
В— определяет рисование прямоугольника по заданным координатам противоположенных углов;
F — используется только при заданном параметре В и определяет закрашивание прямоугольника тем же цветом, что и линии сторон.
Использования метода Circle (используется для рисования окружностей)
[объект] Circle[Step](х,у),радиус, цвет ,где
Circle — ключевое слово;
Step — ключевое слово, обозначающее, что центр окружности, эллипса, дуги или сектора задан относительно текущей позиции, задаваемой свойствами CurrentX и CurrentY (отсчитывается как смещение от текущей позиции);
х,у — координаты центра (обязательные параметры). Тип Single;
радиус — радиус (в используемой системе координат);
цвет — RGB-цвет линии (может использоваться функция RGB);
Синтаксис использования метода Pset для высвечивания какой-либо точки определенным цветом следующий
[объект] PSet(х,у), Цвет
гдеобъект — форма, окно рисунка (picturbox), объект печати, на которых рисуется точка;
Pset — ключевое слово;
х, у — координаты точки (обязательные параметры). Тип Single;
цвет — RGB-цвет или QBColor-функция (возвращает значение RGB-цвета для 16 фиксированных цветов, см. справочную систему VisualBasic). Если этот параметр отсутствует, то Цвет определяется свойством ForeColor.
Толщина и вид рисуемых линий, а также размер и внешний вид точки определяется значением свойств DrawWidth, DrawStyle и DrawMode. При значении DrawWidth= 1 (измеряется в пикселах) толщина линии и точки равна 1 пикселу. При увеличении значения толшина увеличивается (координата точки определяет ее центр). Значения свойства DrawStyle от 0 до б определяют, какой будет линия:
сплошной, пунктирной, точечной и др.
Свойство DrawMode может принимать одно из 16 значений которые определяют характер взаимодействия вычерчиваемого изображения с уже имеющимся на экране. Например, по умолчанию DrawMode равно 13 (CopyPen) и означает, что новое изображение закрывает собой существующее.
Метод Point возвращает цвет заданной точки. Синтаксис:
[объект]Point (x,y)
Возвращает значение цвета в RGB-кодировке пиксела в заданных координатах х и у.
ПРИМЕР ВЫПОЛНЕНИЯ ЗАДАНИЙ:
Пример 1.Постройте три точки, которые являются вершинами равнобедренного треугольника.
10 CLS
20 SCREEN 2
30 PSET (100,100)
40 PSET (200,100)
50 PSET (150,200)
60 END
| Пример 2. Составить программу, изображающую окружность в закрашенном прямоугольнике
10 SCREEN 2 20 CLS 30 LINE (60, 30) — (180, 150),,B 40 CIRCLE (120, 90), 60 50 PAINT (61, 31) 60 PAINT (179, 149) 70 END |
Пример 3. Постройте график функции у=2х+4
10 SCREEN 2 20 LINE (320,0)-(320,200) 30 LINE (0,100)-(640,100) 40 FOR x =-20 TO 2050 y= (2*x+4)*(-1) 50 PSET (x+320, y+100)
|
| Пример 4. Написать программу, вычерчивающую оси координат и график функции у=(1/3) х
Пример: построение графика функции. FUNCTION F (x) F = x * x END FUNCTION REM ГРАФИК ФУНКЦИИ Mas 30 Pi=3,141592654# INPUT “X1”,A INPUT “X2”,B INPUT “ШАГ”,H IF H=0 THEN H=.001 REM Рисуем системы координат SCREEN 9 LINE(290,310)-(290,10),1 LINE (10,175)-(620,175),1 FOR X=290 TO 600 STEP MAS LINE (X,173)-(X,177),7 NEXT X FOR X=290 TO 10 STEP –MAS LINE(X,173)-(X,177),7 NEXT X FOR Y=175 TO 25 STEP-MAS LINE (288,E)-(292,Y),7 NEXT Y LOCATE 19,5 :COLOR20:PRINT “Y=1/X” FOR X=A TO B STEP H IF<>0 THEN Y=1/X Y=Y*MAS Y=175-Y X1=X*MAS IF X1>640 THEN EXIT FOR PSET(X1+290,Y),10 END IF NEXT X END |
Пример 5. Составить программу, в которой будет двигаться круг
REM Движущийся круг SCREEN 1 x = 1 y = 1 REM цвет фона — 0(черный), цвет рисунка — 1 FOR i = 1 TO 150 REM Рисуем объект цветом отличным от цвета фона. c = 1 CIRCLE (x, y), 2, c REM задержка FOR j = 1 TO 250000 NEXT j REM Рисуем объект цветом фона. c = 0 CIRCLE (x, y), 2, c REM Изменяем координаты x = x + 2 y = y + 1 NEXT i END |
Задания к практической работе:
Составите программы для решения следующих задач.
| Вар. | Задания | Вар. | Задания | ||
| 1 |
|
9 |
|
||
| 2 |
|
10 |
|
||
| 3 |
|
11 |
|
||
| 4 |
|
12 |
|
||
| 5 |
|
13 |
|
||
| 6 |
|
14 |
|
||
| 7 |
|
15 |
|
||
| 8 |
|
Составьте отчёт о проделанной работе:
Отчет должен содержать:
|
|||
