Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

Var m:integer;

Type Fun=Function(x:extended):extended;

Procedure Resh(a,b:extended;n:integer;Sx:fun;image1:TImage);

Implementation

Procedure Resh;

Var X,y:Extended; I,x1,y1,xmax,ymax:Integer;

begin

With Image1.Canvas do

begin

Pen.Color:=ClBlack;

Brush.Color:=ClWhite;

xmax:=image1.Width; ymax:=image1.Height;

Rectangle(0,0,xmax,ymax);

x1:=30; y1:=30;

MoveTo(x1,ymax); LineTo(x1,0);

MoveTo(0,ymax-y1); LineTo(xmax,ymax-y1);

x:=a; y:=sx(x);

MoveTo(round(x1+x*10),round(ymax-(y1+y*10)));

for i:=1 to n do

begin

x:=x+(b-a)/n;

y:=Sx(X);

LineTo(round(x1+x*10),round(ymax-(y1+y*10))); end; end; end; end.

Задача 6

• Составить и оформить в виде отдельного модуля подпрограмму вывода графика функции f(x), вычисленной с заданной точностью е на интервале [a, b] с шагом h=(b-a)/n.

• Формальные параметры: a, b, е, n, f(x), C :Tchart

• Составить программу - обработчик события в которой при нажатии кнопки организованы ввод исходных данных, обращение к подпрограмме для вывода графика функции

• (S(x) описать в вызывающей программе, е передать через глобальную переменную), вывод графика в компоненту Tchart.

var

Form1: TForm1;

a,b,e:extended; n:integer;

Implementation

{$R *.dfm}

Function Sx(x:extended):extended;

Var k:integer; b,s:Extended;

begin

k:=1; s:=0; b:=1;

while Abs(b)>e do

begin

b:=b*x/k;

S:=S+b;

k:=k+1;

end;

Result:=s;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='1'; Edit2.Text:='5';

Edit3.Text:='1e-3'; Edit4.Text:='40';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

e:=StrToFloat(Edit3.Text);

n:=StrToInt(Edit4.text);

resh(a,b,n,sx,chart1);

end;

end.

unit Unit2;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

Type Fun=Function(x:extended):extended;

Procedure Resh(a,b:extended;n:integer;sx:fun;Chart1:TChart);

Implementation

Procedure Resh;

Var X,y:extended; I:integer;

begin

With Chart1 do

begin

SeriesList[0].Clear;

x:=a;

for i:=1 to n do

begin

y:=Sx(x);

serieslist[0].AddXY(x,y);

x:=x+(b-a)/n;

end;

end;

end;

end.

Задача 7

• Составить и оформить в виде отдельного модуля подпрограмму вывода окружности красного цвета на зеленом фоне радиуса R и отображающую точку (x,y). Центр окружности расположить в центре области Image, координаты левого нижнего угла прямоугольника Image равны (0, 0) (масштаб h подобрать таким, чтобы окружность занимала примерно 2/3 от области Image).

• Формальные параметры: R,x,y,h:real;

• M :TImage

• Составить программу - обработчик события в которой при нажатии кнопки организованы ввод исходных данных, обращение к подпрограмме для вывода окружности и точки

var

Form1: TForm1;

R,x,y,h:extended;