лабораторная_№6_b_построение_графиков_Паскале_ABC

1. PascalABC.NET Построение Графиков функций

Лабораторная
работа№ 6
PASCALABC.NET
ПОСТРОЕНИЕ ГРАФИКОВ ФУНКЦИЙ
Дисциплина:
«Основы алгоритмизации и программирования.»
Преподаватель: Шадрин Валерий Георгиевич

2.

Порядок выполнения лабораторной работы.
1. Открыть рабочею папку Ваших работ на рабочем столе :
2. Скачать из папки преподавателя работу:
«лабораторная работа №__»
с методическим материалом, с заданием и примерами для
выполнения лабораторной работы.
Sol_Pascal
группа
Фамилия
3. Изучить методический материал и задание для
выполнения Практической работы и Лабораторной
работы
4. Выполнить вначале практическое задание, а затем задание
для лабораторной работы
Сохранить все результаты в созданной Вами папке :
Sol_Pascal
группа
Фамилия
5. Выполнить программы:
2

3.

Построение графиков функций на языке ПаскальABC
Построение графиков в паскаль АВС осуществляется в режиме
графического вывода, то есть с подключением модуля GraphABC .
Разберем пример для построения графика функции Y=X+2.
Program Grafik; //название программы
uses GraphABC; // вызов графического модуля
var x,y: integer; // объявление переменных
begin
line (500,0,500,500); // рисуем координатную сетку – ось Y
line (0,250,1000,250); // рисуем координатную сетку – ось X
for x:=0 to 200 do // начало цикла, задаем число рассчитываемых точек от 0 до 200
begin
y:=x+2; //вычисляем значение функции Y
SetPixel(x+500,250-y,RGB (0,0,0)); // рисуем точку с координатами X ,Y
end
end.
3

4.

Пример построения графика функции Y=X+2
4

5.

Построение графиков функций на языке ПаскальABC
Разберем строку SetPixel(x+500,250-y,RGB (0,0,0)); - более подробно.
Оператор SetPixel закрашивает точку с координатами x,y цветом RGB
с тремя параметрами, определяющими интенсивность трех лучей :
красного, синего, желтого . RGB (0,0,0) – черный цвет, RGB
(255,255,255) – белый. Промежуточные значения обозначают все
остальные цвета. Увеличение координаты х на 500, а координаты y на
250 позволяет расположить график функции относительно условного
центра нашей координатной сетки : х=500, y=255, а не в левом
верхнем углу экрана. При этом мы сможем наблюдать и
отрицательные значения функций. Смотри следующий пример.
5

6.

График функции с отрицательными значениями Х
Пример
Program Grafik;
uses GraphABC;
var x,y: integer;
begin
line (500,0,500,500);
line (0,250,1000,250);
for x:= -100 to 200 do
begin
y:=x+2;
SetPixel(x+500,250-y,RGB (0,0,0));
End;
end.
6

7.

Построение графиков функций на языке ПаскальABC
Ограничения вывода на координатную плоскость.
Так как значения координатной плоскости экрана не могут
принимать
отрицательные значения, мы в работе программы должны
предусмотреть прерывание работы программы или цикла , если
значения координат ХY точки графика функции становятся меньше
нуля. Досрочное завершение цикла осуществляется оператором
break.
Смотри следующий пример:
7

8.

Построение графиков функций на языке ПаскальABC
Program Grafik;
uses GraphABC;
var x,y,k: integer; - дополнительно вводим переменную
к в которой будем отслеживать значения переменной
Y (для наглядности)
begin
line (500,0,500,500);
line (0,250,1000,250);
for x:=-100 to 200 do
begin
y:=x+2;
SetPixel(x+500,250-y,RGB (0,0,0));
k:=250-y;
if k<0 then break; - проверка значений переменной Y/
Если Y<0 то цикл прерывается.
end
end.
8

9.

Построение графиков функций на языке ПаскальABC
Вариант программы без использования переменной К
является более оптимальным.
Program Grafik;
uses GraphABC;
var x,y: integer;
begin
line (500,0,500,500);
line (0,250,1000,250);
for x:=-100 to 200 do
begin
y:=x+2;
SetPixel(x+500,250-y,RGB (0,0,0));
if 250-y<0 then break;
end
end.
9

10.

Построение графиков функций на языке ПаскальABC
Вывод символьной информации в графическое окно
(пример ).
Program Grafik;
uses GraphABC;
var x,y,i: integer;
begin
Строка, выводящая текст на
экран с позиции х=5,y=45
line (500,0,500,500); Счетчик
line (0,250,1000,250); цикла,
for x:=-100 to 200 do считает
количество
begin
итераций
Оператор ,
(повторов)
i:=i+1;
превращающий
y:=x+2;
численный тип данных
в строковый
SetPixel(x+500,250-y,RGB (0,0,0));
if 250-y<0 then break;
end;
TextOut(5,45,‘функция построена на отрезке от '+IntToStr(x-i)+' до
'+IntToStr(x));
end.
10

11.

Построение графиков функций на языке ПаскальABC
Линейная функция. Если переменные y и x связаны уравнением 1-ой степени:
A x + B y = C , где по крайней мере одно из чисел A или B не равно нулю, то графиком
этой функциональной зависимости является прямая линия. Если C = 0, то она проходит
через начало координат, в противном случае - нет. Графики линейных функций для
различных комбинаций A, B, C
Задания:
Составьте программы для
построения указанных трех
вариантов графиков линейной
функции Они
должны выглядеть так
11

12.

Построение графиков функций на языке ПаскальABC
12

13.

Практическая работа: Построение графиков функций и диаграмм
1. Запустить Pascal ABC.
2. Набрать тексты программ и проверить их работу:
Задача: Построить график функции Y = X2 - 3
program parabola;
uses graphabc;
for i:= -150 to 150 do
begin
var i: integer;
x:= 0.03 * i;
x,y: real;
y:= x * x - 3;
setpixel (round (200 + 20 * x),
begin
setwindowsize (400, 400);
round (200 – 20 * y), clRed);
textout (10, 10, 'y = x * x - 3');
line (200, 0, 200, 400);
line (0, 200, 400, 200);
end;
end.
13

14.

Пример построения графика функции Y = X*X- 3
14

15.

Задача: Построить график функции Y = COS (X) и Y=SIN(X)
program fynkciya_cos_x_sin_x;
uses graphabc;
var x,y: real;
begin
setwindowsize (400, 400);
line (200, 0, 200, 400);
line (0, 200, 400, 200);
x:= - 10;
while x <= 10 do
begin
Pen.Color := Color.Blue;
y:= cos(x);
circle (trunc (x * 20 +
200), trunc (y * 20 + 200), 2);
x:= x + 0.01;
SetFontColor(clBlue);
textout (20, 10, 'y =
cos(x)');
end;
x:=-10;
while x <= 10 do
begin
Pen.Color := clRed;
y:= sin(x);
circle (trunc (x * 20 + 200), trunc (y * 20 +
200), 2);
x:= x + 0.01;
SetFontColor(clred);
textout (50, 40, 'y=sin(x)');
end;
end.
Примечание:
trunc - выделение целой части числа
round - округляет аргумент любого вещественного типа до
15
ближайшего значения целочисленного типа

16.

Графики функций Y = COS (X) и Y=SIN(X)
16

17.

Варианты заданий
Постройте графики функций и найдите точки их
пересечения.
17

18.

Варианты заданий
18

19.

Порядок выполнения задания:
Шаг 1: Подключение модуля графики (GraphABC)
Модуль GraphABC обеспечивает возможности
рисования примитивов и настройки графического
интерфейса в PascalABC.NET.
Шаг 2: Определение функций
Мы определяем две функции:
•Прямая линия