Графика ветки и растущего плода.

uses crt,graph;var i,j,r:integer;begin
i:=detect;initgraph(i,j,'');
if graphresult<>grok then begin
writeln(grapherrormsg(graphresult));halt;end;
SetColor(0);i:=5;j:=5;r:=3;while (j+r<GetMaxY)and(not(keypressed)) do begin
SetFillStyle(1,12);fillEllipse(i,j,r,r);delay(5000);
SetFillStyle(1,0);fillEllipse(i,j,r,r);
inc(i);inc(j);if i mod 2=0 then inc(r);end;readkey;end.

program krug;
uses crt,graph;
var i, j, gd, gm, r:integer; Stage: Integer;
 
 
const
    FrameDelay = 50; { Задержка кадра.  }
    NumStages = 100; { Число степеней "зрелости" фрукта. }
    
procedure DrawBranch(Stage: Integer; Draw: Boolean);
begin
    { ... }
    { Здесь надо поместить код рисования ветки с фруктом в зависимости от степени }
    { зрелости фрукта (Stage). В примере это число меняется от 0 до 99, но ты     }
    { можешь сделать так, как будет удобнее. Если Draw = false, то рисовать надо  }
    { черным цветом, если Draw = true, то рисовать надо обычными цветами.         }
    
    { Это просто пример, чтобы убедиться, что все работает: }
    if Draw then SetColor(Red) else SetColor(Black);
    Line(10, 50, 200, 250 + Stage);
end;
 
 
begin
    gd := Detect;
    InitGraph(i,j, 'c:\tp\bgi');
    
    { Основной цикл. }
    Stage := 0;
    repeat
        { Стираем ветку. }
        DrawBranch(Stage, false);
        { Переходим на новую стадию наклона. }
        Inc(Stage);
        { Рисуем ветку в новой стадии. }
        DrawBranch(Stage, true);
        { Задержка, чтобы кадры не сменяли друг друга слишком быстро. }
        Delay(FrameDelay);
    until Stage > NumStages;
    
 
 
begin
i:=detect;
 
if graphresult<>grok then
begin
 
writeln(grapherrormsg(graphresult));
halt;
end;
SetColor(0);i:=5;j:=5;r:=3;
while (j+r<GetMaxY)and(not(keypressed)) do
begin
SetFillStyle(1,12);
fillEllipse(i,j,r,r);
delay(1000);
SetFillStyle(1,0);
fillEllipse(i,j,r,r);
inc(i);
inc(j);
if i mod 5=0 then inc(r);
end;
readkey;
end;
end.

program krug;
uses crt,graph;
var i, j, gd, gm, r:integer;
 
procedure DrawBranch(i,j,r:integer;Draw: Boolean);
begin
 
    if Draw then SetColor(Red) else SetColor(0);
    Line(10,150,i,j-r);
end;
 
 
begin
    gd := Detect;
    InitGraph(i,j, 'c:\tp\bgi');
 
 
begin
i:=detect;
 
if graphresult<>grok then
begin
 
writeln(grapherrormsg(graphresult));
halt;
end;
SetColor(0);i:=250;j:=100;r:=3;
while (j+r<GetMaxY)and(not(keypressed)) do
begin
SetFillStyle(1,12);
fillEllipse(i,j,r,r);
DrawBranch(i,j,r, true);
delay(1000);SetColor(0);
SetFillStyle(1,0);
fillEllipse(i,j,r,r);
DrawBranch(i,j,r, false);
inc(j);
if j mod 5=0 then inc(r);
end;
readkey;
end;
end.