Паскаль. Создайте процедуру, рисующую квадрат заданной величины по центру окна. Отобразите в графическом окне 1000 точек со случайными координатами и лежащими внутри квадрата.
procedure square(var n:integer); begin readln(n); rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2); end;
procedure points(n:integer); Var x,y,i:integer; begin i:=0; while i<1000 do begin x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1); y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1); setpixel(x,y,rgb(random(255),random(255),random(255))); inc(i); end; end;
Answers & Comments
Verified answer
//Pascal ABC.NET 3.1 сборка 1256uses
GraphABC;
Var
n:integer;
procedure square(var n:integer);
begin
readln(n);
rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);
end;
procedure points(n:integer);
Var
x,y,i:integer;
begin
i:=0;
while i<1000 do
begin
x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1);
y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);
setpixel(x,y,rgb(random(255),random(255),random(255)));
inc(i);
end;
end;
begin
randomize;
square(n);
points(n);
end.