Ответы
Ответ дал:
0
Ответ:
uses graphABC;
begin
SetWindowWidth(400);
SetWindowHeight(400);
SetBrushColor(clYellow);
FillRectangle(100, 100, 300, 300)
end.
Объяснение:
картинка
Приложения:
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
type point=record
x,y:integer
end;
var xc,yc,r,i:integer;
p:array[1..5] of point;
u,a:real;
begin
hidecursor;
clearwindow(clBlack);
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=100;
lockdrawing;
u:=0;
repeat
clearwindow(clBlack);
a:=pi/4;
for i:=1 to 5 do
begin
p[i].x:=xc+round(r*cos(u+a));
p[i].y:=yc-round(r*sin(u+a));
a:=a+pi/2;
end;
setbrushcolor(clYellow);
setpencolor(clYellow);
polygon(p,5);
delay(100);
u:=u+0.1;
redraw
until keypressed;
end.