Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11639
Последний выпуск: 19.06.2015

помогите написать программу графики на Паскале

95K
29 апреля 2015 года
Serena98
1 / / 29.04.2015
1) y=(x^2 - 1)lnx+2
X€[2;5]
∆x=0.3

2)y= {sinx*lnx, x>3.5
cos^2x. x<=3.5
X€[2;5]
∆x=0.25
15K
23 марта 2016 года
BashOrgRu
3 / / 27.12.2008
как то так:
Код:
procedure PaintGraph( aCanvas : TPaintBox);
const
    x1 = 2;
    x2 = 5;
    y1 = 0;
    y2 = 5;
var
    dx, dy,
    x, y      : real;
    px, py : integer;

   function XC( V : real ) : integer;
   begin
        Result := Round(dx * (V - x1));
   end;

   function YC( V : real ) : integer;
   begin
        Result := Round(aCanvas.Height - dy * (V - y1)); //потому-что Y координата сверху вниз
   end;

begin
    dx := aCanvas.Width / (x2-x1); // для вычисления координаты пикселя
    dy := aCanvas.Height / (y2-y1);
   
    x := x1; y := y1;
    aCanvas.Canvas.MoveTo(XC(x), YC(y));
    while x < x2 do begin
          x := x + 0.3;
          y := ваша функция(x);
          //вычисляем координаты пикселя для точки
          aCanvas.Canvas.LineTo(XC(x), YC(y));
    end;
end;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог