Delphi создать программу вычисление веса товара по цене за 1кг и общей стоимости

Дата добавления: 2014-11-27; просмотров: 1695; Нарушение авторских прав

(Должны быть использованы кнопки (3), окна редактирования (2) и метки (5))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:real;

begin

a:=StrToFloat(edit1.Text);

b:=StrToFloat(edit2.Text);

c:=a/b;

label2.Caption:=FloatToStrF(c,ffFixed,4,2)+'ðóá.';

end;

Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

label2.caption:='';

end;

Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.Close;

end;

8.В Delphi создать программу вычисления функции у=(3-х2)/(х+1)

(Должны быть использованы кнопки (3), окна редактирования (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

x:real;

y:real;

begin

x:=StrToFloat(Edit1.Text);

Y:=(3-x*2)/(x+1);

label4.Caption:=FloatToStrF(y,ffFixed,4,2);

end;

Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

label4.caption:='';

edit1.clear;

end;

Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.Close;

end;

9.В программеDelphi создать программу вычисления функции у=(5+х2)/(х+2)

(Должны быть использованы кнопки (3), окна редактирования (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

x:real;

y:real;

begin

x:=StrToFloat(Edit1.Text);

Y:=(5+x*2)/(x+2);

label4.Caption:=FloatToStrF(y,ffFixed,4,2);

end;

Процедура для кнопки «ОЧИСТИТЬ»:

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

label4.caption:='';

edit1.clear;

end;

10в. Процедура для кнопки «ВЫХОД»:

procedure TForm1.Button3Click(Sender: TObject);

begin

form1.Close;

end;

10.В Delphi создать программу «Выбор максимального числа из десяти чисел».

(Должны быть использованы компонент StringGrid (1), кнопка (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

i,max : integer;

begin

max := StrToInt(StringGrid1.Cells[0,0]);

For i:= 1 to 9 do

if max < StrToInt(StringGrid1.Cells[i,0]) then

max := StrToInt(StringGrid1.Cells[i,0]);

Label4.Caption := IntToStr(max);

end;

11.В Delphi создать программу «Выбор минимального числа из 15-ти чисел».

(Должны быть использованы компонент StringGrid (1), кнопка (1) и метки (4))

Процедура для кнопки «ВЫЧИСЛИТЬ»:

procedure TForm1.Button1Click(Sender: TObject);

var

i,max : integer;

begin

max := StrToInt(StringGrid1.Cells[0,0]);

For i:= 1 to 9 do

if max > StrToInt(StringGrid1.Cells[i,0]) then

max := StrToInt(StringGrid1.Cells[i,0]);

Label4.Caption := IntToStr(max);

end;

<== предыдущая лекция	\|	следующая лекция ==>
В Delphi создать программу поиска меньшей температуры воды из двух чисел	\|	В Delphi создать программу «Ввести и распечатать сумму квадратов 11-ти чисел».