ненавистная графика (Объединено), кто-нибудь их решал? Опции

[AlexSt]

Написать программу построения графика функции. Вывод графика осуществлять в созданном на экране окне , в другом окне выполнить вывод уравнения функции с конкретными значениями параметров. Выполнить смену 3-х экранов с различными значениями параметров.
Цепная линия:


Добавлено через 4 мин.
там наверное плохо видно формулу:

[AlexSt]

я подставил в задачку Альтаира по построению любой функции свою, получилась какая-то ерунда. Вот оно:

program grafshit;
Uses Graph,crt;
const shag=0.0001;
      lgr = -50;
      pgr = 50;
      zcrtX=320;
      zcrty=240;
      mtrX=10;
      mtrY=10;
      colorG=15;
      colorOXY=4;
      OXYminX=-200;
      OXYmaxX=200;
      OXYminY=-200;
      oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y,a:real;{extended;}
i:integer;
function f(a,x:real):real;
begin y:=a*(exp(x/2)+exp(-x/2))/2
end;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'c:\bp\bgi\');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);     {}
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);       {}

x:=lgr;                     {}
while x<=pgr do       {}
begin
readln(x);
readln(a);
f(a,x);;
if x<>2 then begin y:=abs(x/(x-2))-1;     {}
y:=f(a,x);
writeln(y:1:8);                                        {}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;         {}
x:=x+shag;
end;
readkey;
closegraph;
end.

И, ещё может подскажите что такое A в формуле, как сделать три окна! на одном экране(lapp писал что через SetViewPort - но как?)&( я даже не пойму что именно должно в них быть), зачем делать смену экранов?
Пожалуйста напишите в пустые фигурные скобки в проге что там происходит!

Сообщение отредактировано: AlexSt - 26.05.2007 11:35