Задача на точки, горю( Опции

[erwin]

Товарищи, помогите, пожалуйста, решить следующую задачку, я подозреваю, что должна решаться с помощью Graph. Буду благодарен за любую помощь!

"Нарисовать на экране отрезок. Затем поставить n-точек таким образом, чтобы точки, попадающие на отрезок, рисовались одним цветом, другие - другим. n задается с клавиатуры"

[Bokul]

Для чего массивы? И эти вычисления? Ты же можешь просто цвет пикселя функцией GetPixel

uses graph;
const
  n=10000;  
var
 p:boolean;
 x,y,color:word;
 i,grd,grm:integer;
begin
 grd:=detect;
 initgraph(grd,grm,'');
 color:=red;
 SetColor(color);
 line(100,300,200,100);
 randomize;
 for i:=1 to n do begin
     x:=random(640);
     y:=random(480);
     if GetPixel(x,y)=color then
        PutPixel(x,y,white)
     else
        PutPixel(x,y,blue);
 end;
 readln;
end.

Сообщение отредактировано: Bokul - 4.03.2007 7:19