Выводит узор из 200 случайно
{ Выводит узор из 200 случайно размещенных линий разного цвета }
Uses Graph; var
grDriver:integer; grMode:integer; grPath:string; ErrCode:integer;
x,y: integer; { координаты конца линии } i: integer; begin
grDriver:=VGA; grMode:=VGAHi; grPath:='e:\tp\bgi'; InitGraph (grDriver,grMode,grPath); ErrCode:=GraphResult; if ErrCode <> grOK then begin
writeln ('Сшибка инициализации графического режима.');
writeln ('Для завершения работы нажмите <Enter>');
readln;
Halt (1); end;Randomize; for i:=l to 200 do begin
x:=Random(640); y:=Random(480); Setcolor(Random(16)); LineTo(x,y); end; readln; end.
