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

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

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

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

textual
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.

10   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ