Мне вот задали написать процедуру рисования линии с помощью оператора putpixel, вот ссылка на задание http://kikg.ifmo.ru/~igor/g102-141/lr201.htm. Так я вот не знаю как мне это правильно сделать, получилось у меня вот что:
program vosemuglov;
uses graph;
var x1,x2,y1,y2,k,c,r: real;
gd,gm:integer;
procedure Myline(x1,y1,x2,y2:real);
begin
if x1<x2 then
begin
k:=(y2-y1)/(x2-x1);
c:=(y1*x2-y2*x1)/(x2-x1);
repeat
putpixel(round(x1),round(k*x1+c),white);
x1:=x1+0.01
until x1>x2;
end
else
begin
k:=(y1-y2)/(x1-x2);
c:=(y2*x1-y1*x2)/(x1-x2);
repeat
putpixel(round(x2),round(k*x2+c),white);
x2:=x2+0.01
until x2>x1;
end;
end;
но там косяков дофига...
В следующий раз тему удалю. Догадываешься почему? Админ.
)) До встречи...
я-то думал ты сам решал... а тебе на сурсах решили...