Question

Построить график функции (программа Паскаль)

Answer 1

USES Crt, Graph;
 VAR
  Gd, Gm : INTEGER;   X0, Y0 : INTEGER;   { Начало осей координат }
  X, Y : INTEGER;  Mx, My, I : INTEGER;
  A, B, H, F : REAL;
BEGIN
 WriteLn('Введите интервал и шаг изменения функции');  ReadLn(A,B,H);
 WriteLn('Введите масштаб по X и Y');  ReadLn(Mx,My);
 Gd:=Detect; Gm:=1;
 InitGraph(Gd,Gm,'c:\tp7\bgi');  IF GraphResult<>0 THEN HALT(1);
 { Построение осей координат }
 X0:=GetMaxX div 2; Y0:=GetMaxY div 2;
 Line(10,Y0,GetMaxX,Y0); Line(X0,10,X0,GetMaxY);
 { Построение стрелок }
 Line(X0,10,X0-10,20);  Line(X0,10,X0+10,20);
 Line(GetMaxX,Y0,GetMaxX-10,Y0-10);
 Line(GetMaxX,Y0,GetMaxX-10,Y0+10);
 OutTextXY(X0-25,10,'X');  OutTextXY(GetMaxX-20,Y0+20,'Y');
 { Разметка осей координат }
 I:=X0;
 REPEAT
    I:=I+Mx;
    PutPixel(I,Y0-1,15);   PutPixel(2*X0-I,Y0-1,15);
 UNTIL I>GetMaxX;
 I:=Y0;
 REPEAT
    I:=I+My;
    PutPixel(X0+1,I,15);   PutPixel(X0+1,2*Y0-I,15);
 UNTIL I>GetMaxY;
 { Построение графика функции }
 REPEAT
    F:=A*A; { функция }
    X:=Trunc(X0+A*Mx);    Y:=Trunc(Y0-F*My);
    PutPixel(X,Y,15);    A:=A+H;
 UNTIL A>B;
 ReadLn;
END.