Implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='10'; Edit2.Text:='8'; Edit3.Text:='12';

Edit4.Text:='0,05';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

r:=StrToFloat(Edit1.text); x:=StrToFloat(Edit2.text);

y:=StrToFloat(Edit3.text); h:=StrToFloat(Edit4.text);

Resh(r,x,y,h,Image1);

end;

end.

unit Unit2;

Interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

Procedure Resh(r,x,y,h:Extended; Image1:TImage);

Implementation

Procedure Resh;

Var x1,y1,ymax:integer;

begin

With Image1.Canvas do

begin

Pen.Color:=ClGreen; Brush.Color:=ClGreen;

x1:=Image1.Width div 2; Y1:=Image1.Height div 2; Ymax:=Image1.Height;

Rectangle(0,0,image1.Width,image1.Height);

Pen.Color:=ClRed; Brush.Color:=ClRed;

Ellipse(round(x1-r/h),round(y1+r/h),round(x1+r/h),round(y1-r/h));

Pen.Color:=ClNavy; Brush.Color:=ClNavy;

Ellipse(round(x/h-5),round(ymax-y/h+5),round(x/h+5),round(ymax-y/h-5));

end;

end;

end.

Задача 9

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

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

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

var

Form1: TForm1;

a,b:extended; N,h:integer;

Implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='1';

Edit2.Text:='5';

Edit3.Text:='10';

Memo1.clear;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Memo1.clear;

a:=StrToFloat(edit1.text);

b:=StrToFloat(edit2.text);

n:=StrToInt(edit3.text);

Memo1.Lines.Add('Значение интеграла= '+FloatToStrF(Resh(a,b,n,F),fffixed,4,3));

end;

end.

unit Unit2;

Interface

uses

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

Dialogs, StdCtrls;

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

Function Resh(a,b:extended;n:integer;f:fun):extended;

Function f(x:extended):extended;

Implementation

Function f;

begin

F:=Sin(x)*Sin(x);

end;

Function Resh;

Var X,y,h:extended; I:integer;

begin

h:=(b-a)/n; y:=0;

For i:=1 to n do

begin

x:=a+h*(i-0.5);

y:=y+F(x);

end;

Result:=h*y;

end;

end.

Задача 10

• Составить и оформить в виде отдельного модуля подпрограмму вывода треугольника синего цвета на желтом фоне с координатами (x1 y1) (x2 y2) (x3 y3). Координаты левого нижнего угла прямоугольника Image равны (0, 0) (масштаб h подобрать таким, чтобы треугольник занимал примерно 2/3 от области Image).

• Формальные параметры:

• x1 , y1 , x2 ,y2 ,x3 ,y3,h: Real; M :TImage

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

var

Form1: TForm1;