Исследовать область опрежделения функции и построить график функций - Turbo Pascal (33529)

Формулировка задачи:

Исследовать область определения функции и построить график функций: y=-6x^2+3x

Решение задачи: «Исследовать область опрежделения функции и построить график функций»

Листинг программы

uses crt,graph;
const h=0.1;
      x0=60;
      y0=240;
 
var driver,mode,x1,y1: integer;
    x,y: real;
function f(x:real):real;
begin
f:=(-1)*6*x*x+3*x;
end;
BEGIN
clrscr;
driver:= detect;
initgraph(driver,mode,'');
line(20,y0,600,y0);
line(x0,400,x0,20);
moveto(x0,y0);
x:=0;
while x<=5 do
begin
x1:=round(x0+5*x);
y:=f(x);
y1:=round(y0-5*y);
lineto(x1,y1);
x:=x+h;
end;
readln;
END.

Объяснение кода листинга программы

В начале кода подключаются необходимые библиотеки и объявляются переменные.
Функция f принимает реальное число и возвращает реальное число.
Затем идет инициализация графика с помощью функции initgraph.
Строятся две прямые линии с помощью функции line.
Переменная x0 и y0 инициализируется значениями 60 и 240 соответственно.
Переменная driver и mode инициализируются значениями, полученными от функции detect.
Затем идет цикл while, который выполняется, пока значение переменной x не станет больше или равно 5.
Внутри цикла вычисляются значения x1 и y1 для каждой точки на графике.
Затем строятся линии для каждой точки с помощью функции lineto.
Значение переменной x увеличивается на h.
После окончания цикла выводится сообщение с помощью функции readln.