Краткие сведения из теории. Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений

Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи.

Пример 3. Найти максимальную из двух величин а и в

Использованные компоненты:

Edit1 – для ввода первого числа;

Edit2 – для ввода второго числа;

Label3 – для вывода результирующего сопротивления;

BitBtn1 – для запуска программы;

BitBtn2 – для выхода из программы.

Рис. 11. Форма примера 3

Программный код

unit Unit1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1;implementation{$R *.dfm} var a,b,m:real;procedure TForm1.BitBtn2Click(Sender: TObject);beginClose;end;
procedure TForm1.BitBtn1Click(Sender: TObject);begina:=strtofloat(edit1.Text);b:=strtofloat(edit2.Text); if a>=b then m:=a else m:=b;label3.caption:='Первое число= '+floattostr(a)+#13+'Второе число= '+floattostr(b)+#13+'Максимальное= '+floattostr(m);end;end.

Пример 4. Найти корни квадратного уравнения

Использованные компоненты:

Edit1 – для ввода коэффициента a;

Edit2 – для ввода коэффициента b;

Edit3 – для ввода коэффициента с;

Label6 – для вывода результата;

Button1 – для запуска программы.

Рис. 12. Форма примера 4

Программный код

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit; Edit2: TEdit;

Edit3: TEdit; Label1: TLabel;

Label2: TLabel; Label3: TLabel;

Label4: TLabel; Label5: TLabel;

Button1: TButton; Label6: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,x,x1,x2,d:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

d:=b*b-4*a*c;

if d<0 then Label6.Caption:='Íåò ðåøåíèé'

else if d>0 then begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

Label6.Caption:='x1='+FloatToStr(x1)+', x2='+FloatToStr(x2);

end

else begin

x:=-b/(2*a);

Label6.Caption:='x='+FloatToStr(x);

end

end;

end.

Пример 5. Определить название столицы по названию государства.

Использованные компоненты:

Edit1 – для ввода названия страны;

Label2 – для вывода названия столицы;

BitBtn1 – для запуска программы;

BitBtn2 – для выхода из программы.

Рис. 13. Форма примера 5

Программный код