Построить график функции. Pascal

[Kind1]

Функция: y=e^2x/4. Предусмотреть построение осей самому.

Помогите пожалуйста, уважаемые программисты! Ничего не понимаю(

[Serge_Bliznykov]

ваша тема раз:

1. Составить программу для построения графика функции. Предусмотреть построение осей (самостоятельно).
2. Получить график.
y=x^5 - xsin(3x)

ваша тема два:

Функция: y=e^2x. Предусмотреть построение осей самому.

Может быть, остановится, сделать хотя бы один график, а потом остальные по аналогии (менять только функцию и масштабирование!) ?!!

Или так и будете продолжать создавать новые и новые темы?!

[Kind1]

Подскажите как по оси у сделать масштаб
Вот программа:

Program l3;
uses graph;
function F(x:real):real;
begin
F:=exp(2*x)/4;
end;
 
var a,b,max,min,mx,my:real;
    x:real;
    x0,y0,i,k:integer;
    s:string;
begin
initgraph(x0,y0,'');
a:=-2;
b:=2;{интервал по Х}
x0:=getmaxX div 2;
y0:=getmaxY-50;
mx:=(x0-30)/b;{масштаб по Х}
my:=(y0-40)/F(b);
line(0,y0,getmaxX,y0);{оси}
line(x0,0,x0,y0);
for i:=1 to 40 do{максимальное количество засечек в одну сторону}
 begin
  line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));{засечки на оси У}
  {подпись оси У}
  str(i*10,s);
  outtextXY(x0-30,y0-round(i*my*10),s);{соответственно засечкам}
  if i mod 5=0 then k:=6 else k:=3;
  line(x0+round(i*mx/10),y0-k,x0+round(i*mx/10),y0+k); {засечки на оси Х}
  line(x0-round(i*mx/10),y0-k,x0-round(i*mx/10),y0+k);
  {подпись оси Х}
  if i mod 5=0 then
   begin
    str(i/10:0:1,s);
    outtextXY(x0+round(i*mx/10),y0+10,s);
    outtextXY(x0-round(i*mx/10),y0+10,'-'+s);
   end;
 end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+5,10, 'Y');
{график}
x:=a;
while x<=b do
 begin
  putpixel(x0+round(x*mx),y0-round(F(x)*my),12);
  x:=x+0.001;
 end;
{название}
setcolor(12);
outtextXY(130,10,'y=e^2x/4');
outtextXY(130,30,'int.[-2;2]');
readln
end.