Пример программирования разветвленного алгоритма

Задача. Составить блок-схему алгоритма и программу расчета на Object Pascal значений:

Входные данные: A, B. Выходные данные: X, Y.

Проанализируем выражения для X и Y.

Область определения Х – любые неотрицательные значения А. В противном случае на экран выдается сообщение о неопределенности Х.

При вычислении Y по верхней формуле допустимыми являются те значения В, для которых > = 0. При вычислении Y по нижней формуле допустимы значения Х ≠ 0 при условии, что Х определен. В противном случае на экран выдается сообщение о неопределенности Y. Поскольку вещественные числа представляются в памяти компьютера не точно, то будем считать, что Х равен нулю, если его модуль меньше 10^-10.

Введем логическую переменную РХ – признак определенности Х. В начале алгоритма присвоим РХ значение TRUE. В случае, когда Х не определен, признаку РХ присвоим значение FALSE. При вычислении Y по нижней формуле сначала проверим, определен ли Х, и если это так, то затем проверим, не равен ли он нулю.

Блок-схема алгоритма приведена на рисунке 6.5.

Скомпонуем следующую форму и настроим ее свойства.

		Форма после настройки свойств объектов и выполнения расчетов
	Исходная Форма после переименования

		Рисунок 3.1. – Блок-схема разветвленного алгоритма

Процедура обработки щелчка на кнопке «Выход» (кн. Button_close)

procedure TForm1.Button_closeClick(Sender: TObject);

begin

close

end;

1. Процедура обработки щелчка на кнопке «Очистка» (кн. Button_clear)

// Очистка всех текстовых полей при нажатии кнопки "Очистка"

procedure TForm1.Button_clearClick(Sender: TObject);

begin

Edit_a.Clear;

Edit_b.Clear;

Edit_x.Clear;

Edit_y.Clear

end;

2. Процедура обработки щелчка на кнопке «Вычисление» (кн. Button_calc)

procedure TForm1.Button_calcClick(Sender: TObject);

var A,B,X,Y:real; //объявления

PX:boolean; //признак определенности Х

begin

A:=StrToFloat(Edit_a.Text); // ввод А

B:=StrToFloat(Edit_b.Text); // ввод В

PX:=True; //Х определен

if (A>=0) then

begin

X:=10*(5.28-sqrt(A));

Edit_x.Text:=FloatToStr(X)

end

else begin

Edit_x.Text:='x не определен';

PX:=False

end;

if (A*A<25) then

if(B*B+2*B-3>=0)then

begin

Y:=sqrt(B*B+2*B+3);

Edit_y.Text:=FloatToStr(Y)

end

else Edit_y.Text:='Y не определен'

else if (PX) then // X определен

if (abs(X)>1E-10) then // X не равен 0

begin

Y:=ln(abs(X));

Edit_y.Text:=FloatToStr(Y)

end

else Edit_y.Text:='Y не определен'

else Edit_y.Text:='Y не определен'

end;

3. Процедура обработки щелчка на кнопке «Очистка» (кн. Button_clear)

// Очистка всех текстовых полей при нажатии кнопки "Очистка"

procedure TForm1.Button_clearClick(Sender: TObject);

begin

Edit_a.Clear;

Edit_b.Clear;

Edit_x.Clear;

Edit_y.Clear

end;

4. Процедура обработки щелчка на кнопке «Вычисление» (кн. Button_calc)

procedure TForm1.Button_calcClick(Sender: TObject);

var A,B,X,Y:real; //объявления

PX:boolean; //признак определенности Х

begin

A:=StrToFloat(Edit_a.Text); // ввод А

B:=StrToFloat(Edit_b.Text); // ввод В

PX:=True; //Х определен

if (A>=0) then

begin

X:=10*(5.28-sqrt(A));

Edit_x.Text:=FloatToStr(X)

end

else begin

Edit_x.Text:='x не определен';

PX:=False

end;

if (A*A<25) then

if(B*B+2*B-3>=0)then

begin

Y:=sqrt(B*B+2*B+3);

Edit_y.Text:=FloatToStr(Y)

end

else Edit_y.Text:='Y не определен'

else if (PX) then // X определен

if (abs(X)>1E-10) then // X не равен 0

begin

Y:=ln(abs(X));

Edit_y.Text:=FloatToStr(Y)

end

else Edit_y.Text:='Y не определен'

else Edit_y.Text:='Y не определен'

end;

Дата добавления: 2014-01-11