Pascal. создайте программу вывода на экран 10 разноцветных и разновеликих кругов, которые касаются горизонтальной линии в нижней части экрана и сдвинуты друг к другу вплотную.

skrlp1234 skrlp1234    3   24.06.2019 18:00    0

Ответы
cvetok555 cvetok555  20.07.2020 07:46
Pascal.ABC.Net

uses GraphABC;

procedure MyCircle(var r,x:integer);
var
  rc,y:integer;
begin
  SetBrushColor(clRandom);
  rc:=Random(50)+20;
  if r>0 then x:=x+Trunc(2*sqrt(r*rc)) else x:=rc;
  y:=WindowHeight-rc;
  FillCircle(x,y,rc);
  r:=rc
end;
 
var
  i,r,x:integer;
begin
  Randomize;
  Window.SetSize(1000,600);
  r:=0; x:=0;
  for i:=1 to 10 do myCircle(r,x)
end.

Образец вывода дан во вложении.

Pascal. создайте программу вывода на экран 10 разноцветных и разновеликих кругов, которые касаются г
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика