G
Guest
Тут...вот...эээ....вообщем программа какбЭ не работает:
Построить график трактрисы
Выводит код ошибки "200"(бабульки у подъезда мне сказали что 200 ошибка - эт деление на ноль)
Отсюда убераю логарифм - все норм. только трактриса на трактрису не похожа.
Тут наверно математику надо знать.
Построить график трактрисы
Ссылка скрыта от гостей
Код:
program graf_rezh;
uses crt, graph;
var gd, gm, a: integer;
x, y, phi: real;
BEGIN
clrscr;
gd:= detect;
initgraph(gd, gm,'');
If GrOk <> 0 Then exit;
SetBkColor(RED);
gd := GetMaxX div 2; gm := GetMaxY div 2;
phi := 0; a:= 60;
While phi <= pi do
Begin
x := (a * (cos(phi) + ln(sin(phi/2)/cos(phi/2)))) * cos(phi);
y := a * sin(phi) * sin(phi);
PutPixel(Round(x) +gd, Round(y) + gm, 1);
phi := phi + 0.01;
End;
readkey;
closegraph;
END.
Код:
x := (a * (cos(phi) + ln(sin(phi/2)/cos(phi/2)))) * cos(phi);
Тут наверно математику надо знать.