Построение графика функции, Построение графика тригонометрических функций с ограниченными значения Опции

[Mad Dam]

Здравствуйте уважаемые программисты, не могли бы вы помочь мне сделать курсовую работу на Delphi. Преподаватель дал 2 задания для курсовой, которые нужно делать каждую отдельно.
1. Построить графики функций: arctg(x), где x-ограниченно.
2. Вычислить с заданной точностью значения тригонометрической функции sin(x).
Помогите пожалуйста, а то я сам мало что знаю, а написать эти 2 программы нужно уже в ближайшее время. Буду очень признателен.

[Ozzя]

2.
Общие вопросы по математике.
1.
Добавлено через 19 мин.
Взято отсюда - Построение любого графика
и переделано под Дельфи.
Оптимизация, подстановка своей ф-ции и проч. - на Вас.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  { OPTIONS }
  shag=0.0001;
  lgr = -50;
  pgr = 50;
  zcrtX=320;
  zcrty=240;
  mtrX=10;
  mtrY=10;
  colorG=15;
  colorOXY=4;
  OXYminX=-200;
  OXYmaxX=200;
  OXYminY=-200;
  oxymaxY=200;
Var
   x,y:real;{extended;}
   i:integer;
Begin
  for i:=OXYminX to OXYmaxX do
    canvas.Pixels[zcrtX+i,zcrty]:=colorOXY;
  for i:=OXYminY to OXYmaxY do
    canvas.Pixels[zcrtX,zcrty-i]:=colorOXY;

  x:=lgr;
  while x<=pgr do
     begin
       if x<>2 then
         begin y:=abs(x/(x-2))-1; {***}
           canvas.Pixels[zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY)]:=colorg;
         end;
      x:=x+shag;
    end;

end;

end.

Сообщение отредактировано: Ozzя - 4.12.2008 18:39