Графика Опции

[Mantikor123]

Помогите написать програми времени уже савсем неуспеваю:(
нарисовать график:
y=sinX+3;

Нарисовать анимацию:
Шатающевовася подсолнуха

[Mantikor123]

М_м не совсем понял што ви имеете в виду, ну вот мои наброски...

program gr_1;
uses graph,crt;
var r1, rad, i, grDriver, grMode, errCode : integer;



begin
 grDriver:=detect;
   InitGraph(grDriver,grMode,'\bp\bgi\');
   errCode:=GraphResult;
   if errCode=grOk then begin
{for i:=1 to 999 do begin  }
   setcolor(14);
   circle(320+i,200+i,75);
  { floodfill(330,210,yellow);}
   circle(320+i,200+i,50);

   setcolor(18);
   setlinestyle(0,99,0);
   {circle(320,340,);}
   line(320,273,320,480);
   {end;}
   readln;

    closegraph;{ўi¤¬i­  ०Ё¬г Ја дiЄЁ}


    end;
end.

.