Процедуры и функции

Цель:Умение составлять и использовать функции и процедуры.

Рассмотрим конкретный пример.

Задание1: Даны действительные числа s,t. Используя функцию, получить f(s,2t,0.12) + f(-1,t,s/2), вывод результата оформить в виде процедуры, где

Постановка задачи: Создать приложение вычисления значений функции f, используя функцию и вывод результата оформить в виде процедуры.

Математическая модель представляется так: исходные данные s,t результат –f.

Алгоритм решения задачи:запишем алгоритм решения поставленной задачи с помощью блок-схемы (описываем только процедуру вычисления значения функции).

 

 

Программа:Установите компоненты на форме и измените свойство Caption для каждого компонента в соответствии с рисунком 20.

Рисунок 20 - Образец размещения компонентов на форме

Для компонента BitBtn1 (кнопка Закрыть) в инспекторе объектов измените свойство Kind – bkClose.

Двойным щелчком по компоненту Button1 (кнопка Вычислить) автоматически создается в окне кода стандартная структур. В данную структуру впишите часть программы (у каждого варианта своя индивидуальная часть программы). Для задания 1 эта часть выглядит следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

var s,t,rez:real;

procedure result;

Begin

Label3.Caption:=FloatToStr(rez);

End;

function f(a,b,c:real):real;

описание функции f

begin

f:=(sqrt(sqr(a)+exp(3*ln(b)))+c)/(a+c)*(c+b);

End;

begin

s:=StrToFloat(Edit1.Text);

описание процедуры Tform1.Button1Click

t:=StrToFloat(Edit2.Text);

rez:=f(s,2*t,0.12)+f(-1,t,s/2);