Логотип
Скачать .pas

uses GraphABC;
var x1,y1,x2,y2,i,n,ans: integer;
begin
write('Введите количество отрезков: ');
read(n); write(n);

//Горизонтальные отрезки

for i:=1 to n do
begin
setpenwidth(random(2,8));
x1:=random(500);
y1:=random(500);
x2:=x1+30;
y2:=y1;
line(x1,y1,x2,y2);
end;

//Вертикальные отрезки

{

for i:=1 to n do
begin
setpenwidth(random(2,8));
x1:=random(500);
y1:=random(500);
x2:=x1;
y2:=y1+30;
line(x1,y1,x2,y2);
end;

}

//Диагональные отрезки

{

for i:=1 to n do
begin
setpenwidth(random(2,8));
x1:=random(500);
y1:=random(500);
x2:=x1-30;
y2:=y1+30;
line(x1,y1,x2,y2);
end;

}

end.