Помогите написать программу

[Panda]

Нужно написать программу которая строит график по формуле:y=80-log3x
Вот программа в ней эта формула работает не правильно может можно что то исправить:

Program Graph_14_1;
uses graph;
var
k:byte;
x,dx,x1,x2,y:real;
mx,my,x0,y0,px,py:integer;
driver,mode,errcode:integer;
s,path:string;
procedure Graf(X1,Y1,X2,Y2:integer;k:real);
var i:integer;
begin
 if k>=8 then
  begin
   i:=X1+((X2-X1) div 2);
   setcolor(2);
   repeat
    line(i,Y1,i,Y2);
    i:=i+round(k);
   until i>=X2;
   i:=X1+((X2-X1) div 2);
   repeat
    line(i,Y1,i,Y2);
    i:=i-round(k);
   until i<=X1;
   i:=Y1+((Y2-Y1) div 2);
   repeat
    line(X1,i,X2,i);
    i:=i+round(k);
   until i>=Y2;
   i:=Y1+((Y2-Y1) div 2);
   repeat
    line(X1,i,X2,i);
    i:=i-round(k);
   until i<=Y1;
  end;
  setcolor(15);
  line(X1+((X2-X1) div 2),Y1,X1+((X2-X1) div 2),Y2);
  line(X1,Y1+((Y2-Y1) div 2),X2,Y1+((Y2-Y1) div 2));
 setcolor(12);
 rectangle(X1,Y1,X2,Y2);
end;
begin
k:=20;
driver:=vga;
mode:=vgahi;
path:='h:\bp\bgi';
initgraph(driver,mode,path);
errcode:=graphResult;
Graf(0,0,639,479,K);
if errcode<>grok then
begin
writeln('Error');
readln;
halt(1);
end;
x0:=320;
y0:=240;
mx:=trunc(k/10);
my:=mx;
setcolor(15);
line(10,y0,790,y0);
line(x0,10,x0,590);
x1:=-27;
x2:=27;
dx:=0.1;
x:=x1;
while (x<x2) do
begin
setcolor(4);
outtextxy(340,45,'y=80-ln(3)*x');
outtextxy(225,245,'-40');
outtextxy(245,245,'-30');
outtextxy(265,245,'-20');
outtextxy(285,245,'-10');
outtextxy(310,235,'0.0');
outtextxy(335,245,'10');
outtextxy(360,245,'20');
outtextxy(385,245,'30');
outtextxy(320,216,'10');
outtextxy(320,197,'20');
outtextxy(320,178,'30');
outtextxy(320,158,'40');
outtextxy(320,138,'50');
outtextxy(320,118,'60');
outtextxy(320,98,'70');
outtextxy(320,78,'80');
outtextxy(320,255,'-10');
outtextxy(320,275,'-20');
outtextxy(320,295,'-30');
outtextxy(320,315,'-40');
outtextxy(10,10,'zadanie 3-1');
outtextxy(10,25,'postroitb grafic po formule ');
outtextxy(10,45,'y=80-log3x');
outtextxy(10,65,'vipolnil student: Kuznetcov A.A');
y:=80-ln(3)*x;
y:=abs(y);
px:=x0+round(x*mx);
py:=y0-round(y*my);
putpixel(px,py,4);
x:=x+dx;
end;
readln;
closegraph;
end.

[puporev]

График в принципе правильно рисует. Во вложениии этот же график в Эксел. Нужно только начало взять левее(меньше) и конец правее. Также изменить соотношение масштабов по осям, чтобы график был положе. Еще добавить подписи в обе стороны.

[Panda]

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

График в принципе правильно рисует. Во вложениии этот же график в Эксел. Нужно только начало взять левее(меньше) и конец правее. Также изменить соотношение масштабов по осям, чтобы график был положе. Еще добавить подписи в обе стороны.

Надо в Exel ввести вот такую формулу =80-log(3*x) и график построиться иначе вот его то и надо сделать.
Извиняюсь что сразу не точно формулу написал!

[ukzr415]

Народ, помогите пожалуйста!заставить кнопку открывать новый файл.

[puporev]

Напиши ей, что мол, если, тра-та-та, не будешь файл открывать, перерисую, или вообще удалю.