Ищу помощь
Добавлено: 07 окт 2009, 16:44
помогите пожалуцста составить рисунок на паскале с помощью массива( рисунок н-р цветок..или еще что то)
Код: Выделить всё
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.