Построить кривые по заданному параметрическому представлению - Pascal ABC (22448)

Узнай цену своей работы

Формулировка задачи:

пожалуйста, помогите решить. я ничего не понимаю Построить кривые по заданному параметрическому представлению **). Кардиоида (рис. 59): x = a cos t(1+cost), y = a sin t(1+cost), a>0, t Є [ 0, 2π )..

Решение задачи: «Построить кривые по заданному параметрическому представлению»

textual
Листинг программы
uses graphABC;
var x,y,x0,y0,a:integer;
t:real;
begin
x0:=220;
y0:=220;
line(0,220,640,220);
line(220,0,220,480);
t:=0;
a:=50;
while t<=6.28 do
begin
x:=x0+round(2*a*cos(t)*(1+cos(t)));
y:=y0+round(2*a*sin(t)*(1+cos(t)));
putpixel(x,y,25);
t:=t+0.001;
sleep(1);
end;
end.

Объяснение кода листинга программы

  1. Импортируется модуль graphABC.
  2. Объявляются переменные x, y, x0, y0, a типа integer и переменная t типа real.
  3. Переменным x0 и y0 присваиваются значения 220.
  4. Строятся две линии на графике: линия (0,220)-(640,220) и линия (220,0)-(220,480).
  5. Переменной t присваивается значение 0, а переменной a значение 50.
  6. Запускается цикл while, который выполняется, пока значение переменной t меньше или равно 6.28.
  7. Внутри цикла выполняется вычисление значений переменных x и y по заданному параметрическому представлению.
  8. Полученные значения x и y используются для установки пикселя на графике (x,y,25).
  9. Значение переменной t увеличивается на 0.001.
  10. Программа спит на 1 секунду, чтобы увидеть изменения на графике.
  11. По завершении цикла while, программа завершается.

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы