Версия для печати темы

Автор: Данила 20.05.2005 16:13

Задачка создать сначала круг в центре затем ещё круг вокруг него потом ещё один затем 1 исчезает и появляется 4 круг а 1 закраш. черным КОРОЧЕ должно получиться циклич от центра к концу экрана появ от маленького к большому и послед исчезновение их

Автор: volvo 20.05.2005 16:33

uses graph, crt;

const
  radius = 25; { "Плотность" появления окружностей }

var
  gd, gm, err: integer;
  n, r: integer;
begin
  gd := detect;
  initgraph(gd, gm, '');
  err := graphresult;
  if err <> grok then begin
    writeln('error: ', grapherrormsg(err));
    halt(1)
  end;

  n := 1;
  while n <= 22 do begin
    r := n * radius;
    setcolor(white);
    circle(getmaxx div 2, getmaxy div 2, r);
    if n > 4 then begin
      r := (n - 4) * radius;
      setcolor(black);
      circle(getmaxx div 2, getmaxy div 2, r);
    end;
    inc(n);
    delay(37000) { пауза между рисованием окружностей }
  end;

  readln;
  closegraph;
end.