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

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

А шо, таки призыв в РА уже объявлен?


Поиск по образцу "построение графика функции"

В РА мне не грозит:)
а так не успеваю:(
Собствена график уже нарисовал:)
а вот анимацию......

А чего уж такого сложного?
Сам цветок рисуется элементарно (окружностями). А анимацию можно получить, сгибая стебель, например

Помогите тогда плиз:)
а то мне даже на цветок смотреть страшна..

Да не проблема. Вот только одну окружность нарисуй. А цветок из них я тебе сделаю

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

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.

.

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

procedure PodSolnuh(x,y: Integer);
var
  rsmall,rad : Integer;
begin
  rad:=75;
  rsmall:=30;
  setcolor(Yellow);
  circle(x,y,rad);
  SetFillStyle(1,yellow);
  floodfill(x-1,y-1,yellow);
  setcolor(White);
  SetFillStyle(1,White);
  circle(x+rad,y-rad,rsmall);
  floodfill(x+rad,y-rad,White);
  circle(x+rad,y+rad,rsmall);
  floodfill(x+rad,y+rad,White);
  circle(x-rad,y+rad,rsmall);
  floodfill(x-rad,y+rad,White);
  circle(x-rad,y-rad,rsmall);
  floodfill(x-rad,y-rad,White);
  circle(x,y-rad-rsmall ,rsmall);
  floodfill(x,y-rad-rsmall,White);
  circle(x,y+rad+rsmall ,rsmall);
  floodfill(x,y+rad+rsmall,White);
  circle(x+rad+rsmall,y ,rsmall);
  floodfill(x+rad+rsmall,y,White);
  circle(x-rad-rsmall,y ,rsmall);
  floodfill(x-rad-rsmall,y,White);
end;

begin
  grDriver:=detect;
  InitGraph(grDriver,grMode,'\bp\bgi\');
  errCode:=GraphResult;
  if errCode=grOk then
    begin
      for i:=1 to 4 do
        begin
          podsolnuh(GetMaxX div 2 - i*100 ,GetMaxY div 2 + i*100);
          Delay(200);
          ClearviewPort;
        end;
      readln;
    end;
    closegraph;
end.

Рисуется и стирается подсолнух (без стебля).
Простейшая анимация - подсолнух рисуется, стирается - меняются координаты - снова/заново

Что-то больше на ромашку похоже, чем на подсолнух

Оззя, кстати, у тебя нигде нет формулы для отрисовки фрактала - подсолнуха?... Где-то давно видел, теперь найти не могу. Просто для коллекции, я понимаю, что в этой теме делать движущийся фрактал - не совсем то, что нужно...

Ну-да
Лепестки ж эллипсами надо отрисовывать. А рисование эллипса под наклоном под эту задачу - перебор, кажется.
Не, кода фрактального подсолнуха не встречал.

Ну, не настолько это сложно как может показаться.

Может, топикстартеру и не пригодится, но красиво получается Может, кто-нибудь и использует когда потребуется.

program gr_1;
uses
  graph, crt;
const
  r2d = 180/Pi;

procedure DrawEllipse(xCenter, yCenter, Angle: integer);
const
  a = 15;
  b = 30;
var
  Alpha, Phi, fX, fY: double;
  i, X, Y: Integer;
begin
  Alpha := Angle/r2d;
  for i := 0 to 359 do
  begin
    Phi := i / r2d;
    fX := a * Cos(phi);
    fY := b * Sin(phi);
    X := Trunc(xCenter + fX * Cos(Alpha) - fY * Sin(Alpha));
    Y := Trunc(yCenter + fX * Sin(Alpha) + fY * Cos(Alpha));
    PutPixel(X, Y, Yellow);
  end;
  FloodFill(xCenter, yCenter, Yellow)
end;


procedure SunFlower(X, Y: Integer);
const
  RCircle = 75;
var
  i, dist: integer;
  phi: real;
begin
  SetColor(Yellow);
  SetFillStyle(SolidFill, Yellow);
  FillEllipse(X, Y, RCircle, RCircle);

  dist := (3 * RCircle div 2);
  for i := 0 to 359 do
  begin
    if i mod 20 <> 0 then continue;
    phi := i / r2d;

    DrawEllipse(Trunc(x + dist*cos(phi)),
                Trunc(y - dist*sin(phi)), 450 - i);
  end;
end;

var
  i, grDriver, grMode, errCode: integer;


begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');

  errCode := GraphResult;
  if errCode = grOk then
  begin
    i := 1;
    SunFlower(GetMaxX div 2 - i*100, GetMaxY div 2 + i*100);
    readln;
  end;
  closegraph;
end.

(Движение добавлять не стал, это вообще элементарно)

прикрепите скрин плз, охото глянуть что получилось (у меня виста... )

1. TP/BP прекрасно идет на Vista-32. Проблема не в Висте, а в 64-разрядности.
2. Обе проги замечательно компилируются FPC на моей W7-64

у меня 32 битная и ни один проект с графикой на ТР не идет. А FPC нету пойду скачаю...

Вот когда-то тоже похожую программку делал), только солнышко Появился вопросик: floodfill так и должен долго отрисовывать заливку?

А, ну да, сорри, она же полнооконная.. Извиняюсь )).

Не знаю, насчет должен или нет, но всегда FloodFill был намного медленнее, чем отрисовка заполненной фигуры (Bar будет быстрее чем Rectangle+FloodFill, а FillEllipse - быстрее Circle+FloodFill).

Вот что рисует мой код:
Нажмите для просмотра прикрепленного файла
А вот это - Оззин:
Нажмите для просмотра прикрепленного файла

солнышко супер сейчас бы у меня такое светило... гроза, дождь,тучи...

Всем спасибо за помощ и понимание:)