@avs

Уважаемые гуру! Помогите пожалуйста подредактировать данную программу, для того, чтобы при построении графика не печатались лишние пикселы справа.
Текс проги:
Program Grafik;
uses graph, crt;
var driver, mode, i: integer;
x,y, S: real;
cx,cy: word; {center}
d1,d2: integer; {diapazon}
mas: byte; {masshtab}

procedure ENTER;

begin
textbackground(black);
clrscr;
window(25,10,70,20);
repeat
gotoxy(1,1);
textcolor(white);
writeln('It is made by Av');
write('The function schedule');
textcolor(green);
writeln(' Y=exp(x)/x');
textcolor(random(2)+15);write(' Press any key...');
delay(10000);delay(10000);delay(10000);delay(10000);;delay(10000);
until keypressed;
end;

procedure menu;
var c: char;
begin
window(20,10,60,15);
textbackground(black);
textcolor(15);
repeat
clrscr;
writeln(' *********** MENU ***********');
writeln;
writeln(' 1. Masshtab = ',mas:3);

writeln(' 2. Diapazon: ot ',d1:4,' do ',d2:4);
writeln;
writeln(' Press 1-3 to edit, Enter to paint.');
c:=readkey;
case c of
'1': begin write('Vvedite masshtab: ');read(mas) end;
'2': begin write('Vvedite ot i do: ');read(d1,d2) end;
end;
until (byte(c)=13); {poka ne push probel}
end;

begin
cx:=320; cy:=240;
d1:=-20; d2:=20;
mas:=20;

randomize;
ENTER;
readkey;
menu;

driver:=detect;initgraph(driver,mode,'c:\bp\bgi');
{osi}
line(0,cy,640,cy);
line(cx,0,cx,480);
{edinicnye otrezky}
if abs(d2)>abs(d1) then
for i:=0 to abs(d2) do else
for i:=0 to abs(d1) do
begin
x:=i*mas;
line(cx-3,cy+round(x),cx+3,cy+round(x));
line(cx-3,cy-round(x),cx+3,cy-round(x));
line(cx+round(x),cy-3,cx+round(x),cy+3);
line(cx-round(x),cy-3,cx-round(x),cy+3);
end;
{postroenie graphika}
for i:=d1*300 to d2*300 do
begin
x:=i/300; if abs(x)<>0 then
y:=exp(x)/x*mas;
putpixel(round(x*mas)+cx,round(-y)+cy,14);
end;
{X i Y}
outtextxy(325,10,'Y');
outtextxy(620,225,'X');

readkey;
closegraph;
end.

0

@Puporev

Замени на -10 и 10, а то у тебя
сильно зашкаливает за границы экрана.
Проверил, нормально работает.
А что у тебя за задерки по 10 сек. аж 5 раз? Я сначала подумал программа зависла.

0