Построить кривую по заданному параметрическому представлению. Трактрису - 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 для построения графиков и выполняет следующие действия:

  1. Запрашивает у пользователя ввод значения переменной a в диапазоне от 10 до 150.
  2. Очищает окно графика.
  3. Задает начальные значения для переменных xc, yc, t, равные центру и половине размера окна соответственно.
  4. Использует цикл while для построения трактрисы, вычисляя координаты x и y на каждой итерации и перемещаясь к следующей точке при условии, что значение переменной t меньше π.
  5. Завершает работу программы после завершения цикла.

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

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