Здравствуйте уважаемые программисты, не могли бы вы помочь мне сделать курсовую работу на Delphi. Преподаватель дал 2 задания для курсовой, которые нужно делать каждую отдельно.
1. Построить графики функций: arctg(x), где x-ограниченно.
2. Вычислить с заданной точностью значения тригонометрической функции sin(x).
Помогите пожалуйста, а то я сам мало что знаю, а написать эти 2 программы нужно уже в ближайшее время. Буду очень признателен.
2.
http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=44175
1.
Добавлено через 19 мин.
Взято отсюда - http://forum.pascal.net.ru/index.php?s=&showtopic=2729&view=findpost&p=23770
и переделано под Дельфи.
Оптимизация, подстановка своей ф-ции и проч. - на Вас.
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.
uses Series;
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: Integer;
s, t: TLineSeries;
begin
with Chart1 do
begin
Title.Text.Clear;
Title.Text.Add('Заголовок для Chart');
s := TLineSeries.Create(nil);
s.Clear;
s.Title := 'Chart Line 1';
s.ParentChart := Chart1;
s.XValues.DateTime := True;
begin
x:=-1;
while x<=1 do
begin
s.AddXY(x , arctg(x) );
x:=x+0.1;
end;
end;
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: double;
s, t: TLineSeries;
begin
with Chart1 do begin
Title.Text.Clear;
Title.Text.Add('Заголовок для Chart');
s := TLineSeries.Create(nil);
s.Clear;
s.Title := 'Chart Line 1';
s.ParentChart := Chart1;
s.XValues.DateTime := True;
x:=-1;
while x<=1 do begin
s.AddXY(x , arctan(x) );
x:=x+0.1;
end;
end;
end;
а там после последнего end'а точка с запятой должна быть или точка?
спасибо большое) очень признателен...
спасибо большое))очень благодарен...
а скажи пожалуйста...для чего мы в тексте используем это:
s.XValues.DateTime := True
и почему x и y заданы через double...