@WhoAmI02

Как построить график функции в PascalABC?

uses GraphABC;

begin
  
  SetWindowSize(500, 500);
  
   var x, y, dt, t, a,l: Real;
   write('a=');
   read(a);
   write('l=');
   read(l);
   
   dt := 0.001;
   t:= pi/2;
   
   while t < 3*pi/2 do
   begin
     x := a + l *cos(t);
     y := a * sin(t)/cos(t) + l * sin(t);
     SetPixel(250 + Round(x * 1200), 250 - Round(y * 1200), clBlack);
     t := t + dt;
   end;
  
end.


Пытаюсь построить график конхоиды Никомеда по уравнениям x := a + l *cos(t);
y := a * sin(t)/cos(t) + l * sin(t);
Какие бы значения не подставлял выбрасывается ошибка "Ошибка времени выполнения: Значение было недопустимо малым или недопустимо большим для Int32"
  • Вопрос задан
  • 22 просмотра
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Так отладку произведи
Смотри значение из твоей формулы
5f761747aabfe717026605.png
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы