Ищу помощь

[darika]

помогите пожалуцста составить рисунок на паскале с помощью массива( рисунок н-р цветок..или еще что то)

[somewhere]

Вот тебе цветочек, держи

Код: Выделить всё

uses Crt, Graph;

var
grMode, grDriver, x: Integer;
rad, ang, px, py, m: Double;

begin
grDriver := Detect;
grMode := 2;
InitGraph(grDriver, grMode, '');
ang := 1; m := 100;
For x := 0 to 30000 do
   begin
   if x > 28000 then m := m + 0.06;
   rad:= m * sin(x/1300);
   px := Rad * cos(ang) + 220;
   py := Rad * sin(ang) + 180;
   PutPixel(trunc(px), trunc(py), 14);
   ang:= ang + 0.0001;
   end;
repeat until KeyPressed;
CloseGraph;
end.

[darika]

что ни кто помочь не может???
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
отблагодарю копеечкой..если надумаете пишите в личку!!! пожалуйста