Схема олгаритма

i=i+1

x=x+dx

i=1

x=xнач

Нет

Рукописные тесты

Тест1

Исходные данные: x нач.=1, х кон.=70, dx=3, a=4, b=5

Ожидаемый результат:

n/n x y

1 1 112,385932:

2 4 4732,199222

3 7 14078,15487

4 10 4145,922266

5 13 4781,704840

6 16 6655,533260

7 19 6282,082651

8 22 6504,110513

9 25 10139,4393d

10 28 18940,45362

11 31 25301,20465

12 34 39311,18425

13 37 214292,7992

14 40 583308,5540

15 43 73925,45893

16 46 55306,69245

17 49 59606,85561

18 52 46498,09812

19 55 39149,49655

20 58 50839,13412

21 61 84726,06688

22 64 104982,613

23 67 140994,4965

24 70 577795,2948

Распечатка текста процедуры

procedure TForm1.Button1Click(Sender: TObject);

var

xn,xk,dx,x,y,a,b:real;

i:byte;

begin

xn:=StrToFloat(Edit1.Text);

xk:=StrToFloat(Edit2.Text);

dx:=StrToFloat(Edit3.Text);

a:=StrToFloat(Edit4.Text);

b:=StrToFloat(Edit5.Text);

with form2.stringgrid1 do

begin

Cells[0,0]:='№n/n';

Cells[1,0]:='x';

Cells[2,0]:='y';

end;

form2.show;

form2.Chart1.SeriesList[0].Clear;

x:=xn;

i:=1;

while x<=xk do

begin

y:=(sqr(a+b*x))/(1+power(cos(a*x),3));

Form2.StringGrid1.Cells[0,i]:=IntToStr(i);

Form2.StringGrid1.Cells[1,i]:=FloatToStr(x);

Form2.StringGrid1.Cells[2,i]:=FloatToStr(y);

form2.Chart1.SeriesList[0].AddXY(x,y);

x:=x+dx;

i:=i+1;

end;

end;

end.