Var X,y,a,b,h: real;

begin

a:=StrToFloat(LabeledEdit1.Text);

b:=StrToFloat(LabeledEdit2.Text);

h:=StrToFloat(LabeledEdit3.Text);

Memo1.Lines.Add(' x y');

x:=a;

while x<=b do

begin

y:=sqrt(power(x,3)+x+1);

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

+FloatToStrF(y,ffFixed,7,2));

x:=x+h;

end;

end;

Результат виконання проекту:

На проміжку [1,2] з кроком 0,09 матимемо наступні результати, які зазначені на рис.10.22.

Рис 10.22. Вікно форми виконання

проекту прикладу 10.5

Приклад 10.6

В середовищі Delphi розробити віконний додаток для табулювання значення функції починаючи із заданої точки, коли заданий крок та кількість кроків n (з використанням компоненти TStringGrid).

Етап пректування інтерфейсу проекту:

Під час проектування (рис.10.23) використаємо компоненти класу TEdit, TLabel, TButton, TStringGrid :

Label1.Caption:= ‘Введіть початкове значення: ’ ;

Label2.Caption:= ‘Введіть крок:’ ;

Label3.Caption:= ‘Введіть кількість крків:’ ;

Label4.Caption:= ‘Табулювання’ ;

Button1.Caption:=’Табулювання’;

SpinEdit1.MaxValue = 7;

SpinEdit1.MinValue = 1;

StringGrid1.ColCount = 3;

StringGrid1.RowCount = 2

StringGrid1.Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing];

Рис.10.23. Вікно форми проекту

прикладу 10.6

Етап програмування проекту:

Процедура обробки події OnClick матиме наступний вигляд:

procedure TForm1.Button1Click(Sender: TObject);

Var X,dx,y:real;

n,i:integer;

begin

x:=StrToFloat(Edit1.Text);

dx:=StrToFloat(Edit2.Text);

n:=SpinEdit1.Value;

StringGrid1.Cells[0,0]:= 'n';

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

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

for i:=1 to n do

begin

StringGrid1.RowCount:=i+1;

y:=sqrt(power(x,3)+x+1);

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

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

StringGrid1.Cells[2,i]:= FloatToStrF(y,ffFixed,7,3);

x:=x+dx;

end;

end;

Результат виконання проекту:

З кроком 0,09 матимемо результати, які зазначені на рис.10.24.

Рис 10.24. Вікно форми виконання

проекту прикладу 10.6

Завдання для виконання лабораторної роботи.

Завдання 1.

В середовищі програмування Delphi розробити програму обчислення значення функції на вказаному проміжку із заданим кроком для відповідного аргументу функції (провести табулювання функції).

Вимоги до проекту:

• значення x, вводяться на формі (використати компоненти TLabeledEdit, TLabel, TEdit;

• результати табулювання функції значення функції виводяться на форму (використати TMemo або TRichEdit ;

• реалізувати контроль наявності факту введення даних;

• забезпечити контролювання правильності введення числових даних для меж табулювання та кроку;

• реалізувати контроль за межами табуляції ().

Варіанти завдань:

1. , , ;

2. , , ;

3. , ;

4. , , ;

5. , , ;

6. , , ;

7. , , ;

8. , , ;

9. , , ;

10. , , ;

11. , ;

12. , ;

13. , ;

14. , ;

15. , ;

16. , ;

17. , ;

18. , ;

19. , ;

20. , ;

21. , ;

22. , ;

23. , ;

24. , ;

25. , , .

Завдання 2.

В середовищі програмування Delphi розробити програму обчислення значення функції починаючи із заданої точки, коли заданий крок та кількість кроків n, для відповідного аргументу функції (провести табулювання функції). Серед значень функції знайти мінімальне, максимальне та середнє арифметичне значення.

Вимоги до проекту:

• значення , вводяться на формі (TLabeledEdit, TEdit ),

• значення n(кількість кроків) вводяться на формі за допомогою компоненти TSpinEdit;

• значення точності (значення t – величина може набувати цілі значення від 0 до 6, задає кількість цифр після коми для значення функції) вводиться за допомогою поєднання компонент TEdit та TUpDown;

• значення функції виводяться на форму з використанням компоненти TStringGrid;

• реалізувати контроль наявності факту введення даних;

• забезпечити контролювання правильності введення числових даних для меж табулювання та кроку

• реалізувати контроль за межами табуляції ();

• мінімальне, максимальне та середнє арифметичне значення виводяться на форму (TLabeledEdit, TLabel, TEdit)

Варіанти завдань:

1. , , , ;

2. , , , ;

3. , , , ;

4. , , , ;

5. , , , ;

6. , , , ;

7. , , , ;

8. , , , ;

9. , , , ;

10. , , , ;

11. , , , ;

12. , , , ;

13. , , , ;

14. , , , ;

15. , , , ;

16. , , , ;

17. , , , ;

18. , , , ;

19. , , , ;

20. , , , ;

21. , , , ;

22. , , , ;

23. , , , ;

24. , , , ;

25. , , , .