графики

[ZhekON]

Как рисовать графики в паскале?

[Xardas]

Модуль Graph, графический примитив - линия и все...

[ZhekON]

я извеняюсь за некоректный вопрос не графики а графики функцый...
как рисовать ГРАФИКИ ФУНКЦЫЙ??

[Карась]

Попиксельно.. А в чём может быть проблема?

[Xardas]

я извеняюсь за некоректный вопрос не графики а графики функцый...
как рисовать ГРАФИКИ ФУНКЦЫЙ??

Ну я это и имел в виду... Ну, например...

uses graph;
var gd,gm:integer;

function f(x:real):real;
begin
f:=sqr(x); //здесь любая функция
end;

procedure draw(a,b:real); //a,b - начальное и конечное значение функции
var x,dx, max, min, koef:real;
k:integer;
begin
dx:=(b-a)/640; //шаг изменения х
x:=a;
max:=f(a);
for k:=1 to 640 do //определяем область значения f(x)
begin
if f(x)>max then max:=f(x);
if f(x)<min then min:=f(x);
x:=x+dx;
end;
koef:=479/(max-min); //коэффициент по оси y
x:=a; //начальное значение х
moveto(0,round(479-koef*(f(a)-min))); //начальное значение указателя
for k:=1 to 639 do //строим график
begin
x:=x+dx;
lineto(k,round(479-koef*(f(x)-min)));
end;

// здесь по необходимости можно построить оси
end;

//Ну и в основной программе вызываем процедуру
begin
gd:=detect;
initgraph(gd,gm,'');
draw(-4,4);
readln;
closegraph;
end.

[ZhekON]

Карась ето типо есть промежуток от -10 до 10 и нужно каждую единицу подставить вместо значения Х и найти У + потом поставить точку в определённых координатах? но если будем подставлять например 0,1 то график будет не целый а с пробелами ... какое минимальное значение нужно брать чтобы пиксели не были один возле одного?

[Professor Hubert]

Сообщение от ZhekON

я извеняюсь за некоректный вопрос не графики а графики функцый...
как рисовать ГРАФИКИ ФУНКЦЫЙ??

Или такой примерчик.

Program sin;
Uses CRT,Graph;
Var gd,gr:integer;
    x,x1,y1:integer;
    y:real;

BEGIN
  gd:=detect;
  InitGraph(gd,gr,'c:/tp/tgi');
  x1:=20;
  y1:=300;
  SetColor(10);
  Line(5,300,600,300);
  Line(20,5,20,400);
  For x:=1 to 500 do
  begin
      y:=cos(x/57);
      PutPixel(x1+x,y1-trunc(y*50),15);
  end;
  Readkey;
  CloseGraph;

END.