Нарисовать шляпку подсолнуха с логарифмическими спиралями - Turbo Pascal

  1. Программа должна рисовать шляпку подсолнуха с логарифмическими спиралями. Этот код работает, но нужно чтобы получалось что-то типа того что на картинке. Помогите, пожалуйста, кто сможет.


textual

Код к задаче: «Нарисовать шляпку подсолнуха с логарифмическими спиралями - Turbo Pascal»

uses graph;
var x0,y0,x,y,i:integer;
    a,b,t,f:real;
begin
initgraph(x,y,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setbkcolor(15);
a:=1;
b:=0.5;
f:=0;
for i:=1 to 21 do
 begin
  t:=0;
  repeat
   t:=t+0.01;
   x:=round(a*exp(b*(t))*cos(t+f));
   y:=round(a*exp(b*(t))*sin(t+f));
   putpixel(x0+x,y0-y,8);
  until t>3.2*pi;
  f:=f+2*pi/21;
 end;
for i:=1 to 34 do
 begin
  t:=0;
  repeat
   t:=t+0.01;
   x:=round(a*exp(b*(t))*sin(t+f));
   y:=round(a*exp(b*(t))*cos(t+f));
   putpixel(x0+x,y0-y,8);
  until t>3.2*pi;
  f:=f+2*pi/34;
 end;
setcolor(2);
circle(x0,y0,155);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.333 из 5



Похожие ответы
  1. Рисунок 34 (грузовик) Заранее спасибо

  1. Собственно нужно нарисовать используя graph ламповый диод как на картинке,долго бился над этим(т.к. этого мы еще не проходили),но все-таки получилось что-то более-менее сносное.Тем не менее т.к. я использовал дугу эллипса линии вышли под углом,можно ли как-нибудь выровнять их?

  1. Написать программу с применением динамических переменных движения квадрата параллельно оси Y,а зачем параллельно оси Х.С изменением направления движения изменять цвет закраски фигуры. Если можно то с описанием.

  1. Нужно нарисовать стрелу повёрнутую влево, право, вверх , вниз. Как сделать чтоб можно было выбрать какое изображение строится? Например нажимают "1" -влево "2"- вправо "3"-вверх "4"-вниз Вот изображения стрел Вправо:

  1. Нарисовать квадрат , который постоянно менянт цвет а когда нажимаешь любую клавишу прекращает.

  1. Задание Что касается задания,значит верхнюю фигуру надо нарисовать от верхнего поля, а нижнюю от конца поля. Потом надо их сдвигать друг к другу, после того как они сойдутся, они должны разойтись.

  1. Нарисовать цепочку из квадратов, расположенных на диагонали экрана. С клавиатуры вводятся значение ребра квадрата и значение ребра малого квадрата, получающегося при наложении квадратов друг на друга.

  1. Нужна помощь с графикой. Нужно нарисовать простой вентилятор (круг с 2-3 треугольниками внутри) у которого вращение лопастей включается/выключается нажатием клавиши на клавиатуре.

  1. Не могу понять как нарисовать закрашенные треугольные лучи солнца (картинка во вложении), код ниже: