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