Контрольная информатика

Вычислить значение выражения:


Исходные данные:
x=14,26,
y=-1,22,
z=

Последовательность решения задачи.

1. Создаем новый проект.
2. Создаем интерфейс пользователя на форме аналогично приведенному ниже
...

Щелкнем на команде «Табулировать» из главного меню один раз. Вводим код:

procedure Tform1.N2Click(Sender:Tobject);
var x, y, h,a,b : real;
cod : interger;
str1, str2 : string;
begin
{В объект Memo1! вставляем строку с подписями столбцов
значений аргумента и функции}
Memo1.Lines.Add(' X F(Х)');
(Получаем числовое значение левой границы}
Val(Edit1.Text, a, cod);
{Получаем числовое значение правой границы}
Val(Edit2.Text, b, cod);
(Получаем числовое значение шага}
Val(Edit3.Text, h, cod);
х:=а; (Табулируем функцию}
while х