[LorDHeLeGaL]

Сообщение от 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;