Порядок выполнения задания. Задание: написать и отладить программу, которая выводит таблицу значений функции S(х)

Задание: написать и отладить программу, которая выводит таблицу значений функции S(х) для х изменяющихся в интервале от XI до Х2 с шагом h.

Рис.3.1. Панель диалога

Текст программы приведен ниже.

unit tema3;

Interface

Uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

Type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations}

End;

var Form1: TForm1;

implementation

{$R*.DFM}

procedure TForm1.FormCreate(Sender: TObject);

Begin

Edit1.Text:='0';

Edit2.Text:='2';

Edit3.Text:='5';

Edit4.Text:='0.25';

Memo1.Clear;

Memo.Lines.Add('Результаты ст. гр. 9383 Валета А.В.');

End;

procedure TForm1.Button1Cllck(Sender: TObject);

var x1, x2, x, h, a, s: extended;

N, k, c: integer;

Begin

x1:=StrToFloat(Edit1.Text);

Memo1.Lines.Add('x1='+Edit1.Text);

x2:=StrToFloat(Edit2.Text);

Memo1.Lines.Add('x2='+Edit2.Text);

N:=StrTolnt(Edit3.Text);

Memo1.lines.Add('N='+Edit3.Text);

h:=StrToFloat(Edit4.Text);

Memo1.Lines.Add(' h='+Edit4.Text);

c:=-1;

x:=x1;

Repeat

a:=1;

S:=1;

for k:=1 to N do

Begin

a:=c*a*x/k;

s:=s+a;

End;

Memo1.lines.Add('при x=' +FloatToStrF(x,ffFixed,6,2)+ ' сумма = ' + FloatToStrF(s,tfFtxed,6,2));

x:=x+h;

until x>x2;

end;

end.

После отладки программы составьте тест (N=2, Х1=0, Х2=1, h=3), установите курсор на первый оператор (N:=…), нажмите клавишу F4. После этого нажимая клавишу F7, выполните пошаговую программу и проследите, как меняются все переменные в процессе выполнения.

Дата добавления: 2015-07-12