Паскаль тілінде функция графигін салу

Функция графигін Pascal тілінде салуды қарастырайық.

Функция графигін салу үшін координаталар басын экранда (x0,y0) нүктесіне орналастыра отырып, қисықтың кез- келген нүктесінің (x,y) координатасын (x-x0,y-y0) айырымы арқылы анықтауға болады. Сурет өлшемі кішкентай болып шығатындықтан, масштаб(г/в) = экран өлшемі (г/в) / график өлшемі (г/в) формуласы бойынша оның масштабын үлкейту қажет. Сонан соң олардың ішінен қажетті масштаб ретінде қабылданатын ең кішісі таңдалады. Нүкте салудың PutPixel(x,y,c) процедурасында координата бүтін сан болу қажеттігінен нақты санның бүтін бөлігін беретін trunc() операторы қолданылады.

Мысал94. y=sinx функциясының графигін салудың Pascal тілінде программасын құрыңдар.

program f1; uses graph, crt;

var d, m: integer; x, y, mx, my, x1, x2, y1, y2,h,m1: real;

function f(x:real): real;

begin f:= sin(x); end;

begin clrscr;

Write('Кесінді шекарасын енгіз'); Readln(x1, x2);

y1:=f(x1); y2:=f(x2); mx:=640/(x2 -x1); my:=480/(y2 - y1);

If mx< my Then m1:=mx else m1:= my; h:=1/m1; x:=x1;

d:=detect; initgraph(d, m, 'c:\bp\bgi');

SetColor(5); Line(0, 240, 640, 240); Line(320, 0, 320, 480);

While x<= x2 do

begin

y:=-f(x);

x:=x+ 0.01;

end; readln;

end.