Разработка программ с применением процедур/функций

Лабораторная работа 8

Тема: разработка программ с применением процедур/функций.

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

Ход выполнения работы:

Задание:  разработать программу, которая будет решать квадратное уравнение с использованием процедуры.

Выполнение задания:

Листинг программы:

procedure SqRoot(a, b, c: real; var xl, x2: real; var ok: boolean);

var

d: real;

begin

d := Sqr(b) - 4 * a * c;

if d < 0 then

ok := False

else

begin

ok := True;

xl := (-b + Sqrt(d)) / (2 * a);

x2 := (b + Sqrt(d)) / (2 * a);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

k1, k2: real;

rez: boolean;

mes: string;

begin

SqRoot(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text), StrToFloat(Edit3.Text),

k1, k2, rez);

if rez then

mes := 'Корни уравнения' + #13 + 'x1=' + FloatToStrF(k1, ffGeneral, 4, 2) +

#13 + 'x2=' + FloatToStrF(k2, ffGeneral, 4, 2) + #13

else

mes := 'Уравнение не имеет решения';

Label4.Caption := mes;

end;

Данная программа состоит из двух процедур: SqRoot и Button1Click. Процедура  SqRoot  решает квадратное уравнение. Процедура Button1Click, которая запускается нажатием на кнопку Button1,  вызывает процедуру SqRoot.

Блок-схемы процедур SqRoot и Button1Click представлены на рисунках 8.1 и 8.2 соответственно.

Рисунок 8.1 – Блок-схема процедуры SqRoot

Рисунок 8.2 – Блок-схема процедуры Button1Click

Выполнение программы представлено на рисунке 8.3.

Рисунок 8.3 – Выполнение программы