Построить кривую по заданному параметрическому представлению. Трактрису - PascalABC.NET
Формулировка задачи:
Построить кривую по заданному параметрическому представлению. Трактрису - Pascal ABC
x=a(ln tg t/2 + cost), y= a sint
Спасибо.
Решение задачи: «Построить кривую по заданному параметрическому представлению. Трактрису»
textual
Листинг программы
uses graphABC; var a,xc,yc,x,y:integer; t:real; begin repeat write('Введите а от 10 до 150 a='); readln(a); until a in [10..150]; clearwindow; xc:=windowwidth div 2; yc:=windowheight div 2; t:=0.01; x:=xc+round(a*(ln(tan(t/2))+cos(t))); y:=yc-round(a*sin(t)); setpencolor(clRed); while t<pi do begin x:=xc+round(a*(ln(tan(t/2))+cos(t))); y:=yc-round(a*sin(t)); if t=0.01 then moveto(x,y) else lineto(x,y); t:=t+0.01; end; end.
Объяснение кода листинга программы
Этот код использует библиотеку GraphABC для построения графиков и выполняет следующие действия:
- Запрашивает у пользователя ввод значения переменной
a
в диапазоне от 10 до 150. - Очищает окно графика.
- Задает начальные значения для переменных
xc
,yc
,t
, равные центру и половине размера окна соответственно. - Использует цикл while для построения трактрисы, вычисляя координаты x и y на каждой итерации и перемещаясь к следующей точке при условии, что значение переменной
t
меньше π. - Завершает работу программы после завершения цикла.