Графика

@nikisha12 · Регистрация: 20.12.2020

Author24 — интернет-сервис помощи студентам

Нужно создать такое изображение в паскаль АБС.нет

@Puporev · 24.09.2021, 20:55

Pascal

uses graphABC;
procedure oct(xc,yc,r:integer);
begin
var u:real=0;
for var i:=1 to 9 do
begin
 var x:=xc+round(r*cos(u));
 var y:=yc-round(r*sin(u));
 if i=1 then moveto(x,y) else lineto(x,y);
 u:=u+pi/4;
end;
end;
begin
var r:=20;
setwindowsize(480,480);
var y:=r;
while y<=windowheight do
 begin
  var x:=r;
  while(x<=windowwidth) do
   begin
    oct(x,y,r);
    x:=x+2*r;
   end;
  y:=y+2*r;
 end;
end.

@JuriiMW · 25.09.2021, 16:24

Меньше букв:

Pascal

## uses GraphABC,ABCObjects;
var l:=20;
var(x,y):=(l,l);
repeat
  New StarABC(x,y,l+1,l+1,4);
  x+=l+l;
  if x>window.Width+l then
    begin
      x:=l;
      y+=l+l;
    end;
until y>window.Height+l;

А скорость выше ;–)

@nikisha12 1 / 1 / 0 Регистрация: 20.12.2020 Сообщений: 123
		1
	Графика 24.09.2021, 17:59. Показов 1199. Ответов 2 Метки нет (Все метки) Нужно создать такое изображение в паскаль АБС.нет 0

	25.09.2021, 16:24

Опции темы

Графика

Решение