2. Пример создания приложения

Задание. Создать Windows-приложение, которое выводит таблицу значений функции и ее разложения в ряд в виде суммы с погрешностью ε=10^-4, для значений x от x_n до x_k с шагом h=(x_k–x_n)/8. На панели интерфейса предусмотреть возможность управления выводом исходных данных и погрешности вычислений.

1. Сохранение проекта

Для нового проекта создайте новую папку, например, X: \ 35эи \ LAB6.

Сохраните проект File | Save Project As…(Файл | Сохранить Проект как…). Сначала сохраните модуль под именем UnIterate, затем файл проекта под именем PrIterate.

2. Размещение компонентов на Форме

Один из возможных вариантов панели интерфейса создаваемого приложения показан на рисунке 6.1.

Вместо компонента Edit используем компонент SpinEdit, который обеспечивает отображение и редактирование целого числа с возможностью его изменения посредством двойной кнопки.

Установите для компонента SpinEdit1 значения свойств: MinValue = 1, MaxValue = 20.

В тех случаях, когда объем выводимой информации превышает размер поля компонента Memo, целесообразно снабдить его линейками прокрутки. В свойстве ScrollBars компонента Memo1 установим значение ssVertical – появится вертикальная линейка прокрутки.

Рис.6.1. Размещение компонентов на форме

3. Текст модуля UnIterate

unit UnIterate;

interface

uses

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

Dialogs, StdCtrls, Buttons, Spin;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SpinEdit1: TSpinEdit;

Edit1: TEdit;

Edit2: TEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Memo1: TMemo;

Label4: TLabel;

Edit3: TEdit;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

SpinEdit1.Text:='8';

Edit1.Text:='0,1';

Edit2.Text:='1';

Edit3.Text:='0,0001';

Memo1.Clear;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var

eps,xn,xk,x,h,y,s,p,ab,ot:real;

n,i:byte;

begin

n: = StrToInt(SpinEdit1.Text);

xn: = StrToFloat(Edit1.Text);

xk: = StrToFloat(Edit2.Text);

eps: = StrToFloat(Edit3.Text);

h: = (xk–xn)/n;

Memo1.Clear;

if CheckBox1.Checked then

Memo1.Lines.Add('Исходные данные: n= '+SpinEdit1.Text+

' Xn = '+Edit1.Text+' Xk= '+Edit2.Text+

' Eps = '+Edit3.Text);

Memo1.Lines.Add('');

x:=xn;

repeat

y:=2*(sqr(cos(x))-1);

s:=0; p:=1; i:=1;

while abs(p)>eps do

begin

p:=p*(-sqr(2*x))/((2*i-1)*2*i);

s:=s+p;

i:=i+1;

end;

ab:=s-y;

ot:=abs(ab/y)*100;

if CheckBox2.Checked then

if CheckBox3.Checked then

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,4,2)+

' S='+FloatToStrF(s,ffFixed,6,3)+

' Y='+FloatToStrF(y,ffFixed,6,3)+

' A='+FloatToStrF(ab,ffFixed,6,3)+

' D='+FloatToStrF(ot,ffFixed,6,3)+'%')

else

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,4,2)+

' S='+FloatToStrF(s,ffFixed,6,3)+

' Y='+FloatToStrF(y,ffFixed,6,3)+

' A='+FloatToStrF(ab,ffFixed,6,3))

else

if CheckBox3.Checked then

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,4,2)+

' S='+FloatToStrF(s,ffFixed,6,3)+

' Y='+FloatToStrF(y,ffFixed,6,3)+

' D='+FloatToStrF(ot,ffFixed,6,3)+'%')

else

Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,4,2)+

' S='+FloatToStrF(s,ffFixed,6,3)+

' Y='+FloatToStrF(y,ffFixed,6,3));

x:=x+h;

until x>xk;

end;

end.