09.04.2012, 00:01
|
|
Новичок
|
|
Регистрация: 08.04.2012
Адрес: Красноярск
Сообщения: 60
Версия Delphi: 5,7,2010&Prism
Репутация: 11
|
|
Цитата:
Сообщение от angvelem
Обязано выводить, может напутал? Где расчёт производится?
|
Код:
{Все расчеты}
procedure TForm1.Button1Click(Sender: TObject);
begin
Label7.CleanupInstance;
x1:=46875*StrToInt(Edit1.Text);
x2:=9375* StrToInt(Edit2.Text);
x3:=1875* StrToInt(Edit3.Text);
x4:=375* StrToInt(Edit4.Text);
x5:=75* StrToInt(Edit5.Text);
x6:=15* StrToInt(Edit6.Text);
x7:=5* StrToInt(Edit7.Text);
x8:=StrToInt(Edit8.Text);
y:= x1+x2+x3+x4+x5+x6+x7+x8;
Label7.Caption :=
Inttostr(y)+' $';
begin
Label10.CleanupInstance;
x1:=46875*5*StrToInt(Edit1.Text);
x2:=9375*5* StrToInt(Edit2.Text);
x3:=1875*5*StrToInt(Edit3.Text);
x4:=375*5* StrToInt(Edit4.Text);
x5:=75*5* StrToInt(Edit5.Text);
x6:=15*5*StrToInt(Edit6.Text);
x7:=5*5* StrToInt(Edit7.Text);
x8:=5*StrToInt(Edit8.Text);
y:= x1+x2+x3+x4+x5+x6+x7+x8;
Label10.Caption :=
(Inttostr(y))+' !';
case y of
0..5 : Label3.Caption := format('Íîâè÷îê %i!', [y]);
6..10 : Label3.Caption := format('Ìàñòåð %i!', [y]);
11..15 : Label3.Caption := format('Ïðîôåññèîíàë %i!', [y]);
end;
begin
Label8.CleanupInstance;
m1:=46875*2.5*StrToFloat(Edit1.Text);
m2:=9375*2.5* StrToFloat(Edit2.Text);
m3:=1875*2.5*StrToFloat(Edit3.Text);
m4:=375*2.5* StrToFloat(Edit4.Text);
m5:=75*2.5* StrToFloat(Edit5.Text);
m6:=15*2.5*StrToFloat(Edit6.Text);
m7:=5*2.5* StrToFloat(Edit7.Text);
m8:=StrToInt(Edit8.Text);
z:= m1+m2+m3+m4+m5+m6+m7+m8;
Label8.Caption :=
FloatToStr(z)+' ìèíóò';
begin
akciy := StrToFloat(Edit9.Text);
golos := akciy/5;
label12.Caption :=
FloatToStr(golos)+' çâåçä';
begin
Button3Click(Sender);
begin
Label13.CleanupInstance;
x11:=46875*StrToInt(Edit1.Text);
x22:=9375* StrToInt(Edit2.Text);
x33:=1875* StrToInt(Edit3.Text);
x44:=375* StrToInt(Edit4.Text);
x55:=75* StrToInt(Edit5.Text);
x66:=15* StrToInt(Edit6.Text);
x77:=5* StrToInt(Edit7.Text);
x88:=StrToInt(Edit8.Text);
r:= x11+x22+x33+x44+x55+x66+x77+x88;
Label13.Caption :=
Inttostr(r)+' çâåçä';
end;
|