Листинг 3.4

… …

var

Form1: TForm1;

a,b,c,d,max:Integer; // переменные, объявленные глобально

implementation

{$R *.dfm}

// Алгоритм 1

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

d:=StrToInt(Edit4.Text);

max:=a;

if b>max then max:=b;

if c>max then max:=c;

if d>max then max:=d;

Edit5.Text:=IntToStr(max);

end;

// Алгоритм 2

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

d:=StrToInt(Edit4.Text);

if a>b then

if a>c then

if a>d then Edit6.Text:=IntTostr(a)

else Edit6.Text:=IntTostr(d)

else

if c>d then Edit6.Text:=IntTostr(c)

else Edit6.Text:=IntTostr(d)

else

if b>c then

if b>d then Edit6.Text:=IntTostr(b)

else Edit6.Text:=IntTostr(d)

else

if c>d then Edit6.Text:=IntTostr(c)

else Edit6.Text:=IntTostr(d)

end;

// Очистка свойств Text полей компонентов Edit1..Edit6

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

end;

// Закрытие приложения

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Close;

end;

Пример 3.5. Состав комплекта следующий: 1 ручка, 2 линейки, 4 тетради. Сколько комплектов можно сформировать, если имеется А линеек, B тетрадей и С ручек?

Приложение во время выполнения

Листинг 3.5

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

a,b,c:ShortInt;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

a:= a div 2;

b:= b div 4;

if a>b then a:=b;

if a>c then a:=c;

Edit4.Text:=IntToStr(a);

end;

Дата добавления: 2015-07-10