Процедуры и функции
Цель:Умение составлять и использовать функции и процедуры. Рассмотрим конкретный пример. Задание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;
Begin End;
f:=(sqrt(sqr(a)+exp(3*ln(b)))+c)/(a+c)*(c+b); End;
s:=StrToFloat(Edit1.Text);
rez:=f(s,2*t,0.12)+f(-1,t,s/2);
|
procedure result;
function f(a,b,c:real):real;
begin
