Все тот же график, Масштабирование Опции

[mr.PiXEL]

Задача: построить одновременно sinx и cosx на вводимом интервале, УЧЕСТЬ МАСШТАБИРОВАНИЕ.
Все сделал, кроме масштабирования ( масштаб задается тока в коде программы, а НАДО чтобы его сама определяла программа, т.к. интервал может быть хоть (0,001;0,002), хоть (-1000;1000) и график рисовался. ПОМОГИТЕ. Прошу не перенапрявлять на др. тему, т.к. я уже все просмотрел.

Код программы:

program functions;
uses graph, crt;
const
shag = 0.0001;
lgr = -50;
pgr = 50;
zcrtx = 320;
zcrty = 240;
mtrx = 10;
mtry = 10;
colorOXY = 4;
OXYminX = -400;
OXYmaxX = 400;
OXYminY = -400;
OXYmaxY = 400;

var driver, mode, i, d : integer;
      x, y, z, a, b : real;
begin
clrscr;
a:=1; b:=0;
while a>=b do
begin
writeln(‘VVEDITE INTERVAL’);
readln(a,b);
if a>=b then writeln(‘OSHIBKA’); readln;
end; end;
if a<b then begin
initgraph(driver, mode, ‘’);
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i, zcrty, colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX, zcrty-i, colorOXY);

x:=a;
while x<=b do
begin
begin y:=sin(x); z:=cos(x);
putpixel(zcrtx+trunc(x*mtrx), zcrty-trunc(y*mtry), green);
putpixel(zcrtx+trunc(x*mtrx), zcrty-trunc(z*mtry), blue) end;
x:=x+shag;
end;
readkey;
closegraph;
end;
end.

!

Пользуемся тегами ! klem4