false;
}
{(); * Distrib = new char [120]; [0] = 0; (Distrib, "Розподіл кульок по осередках:"); (int w = 0; w
{(Distrib, IntToStr (M [w]). c_str ()); (Distrib, "");
} -> Panels-> Items [0] -> Text = Distrib;
delete Distrib; ();
}
}
// зменшення швидкості руху// збільшення швидкості руху// зміна швидкості за допомогою повзунка
void __ fastcall TForm1 :: TrackBar1Change (TObject * Sender)
{= 50-TrackBar1-> Position; -> Interval = dt; = len * dt;
}
// пауза__fastcall TForm1 :: N5Click (TObject * Sender)
} __fastcall TForm1 :: ToolButton4Click (TObject * Sender)
}
// стоп__fastcall TForm1 :: N6Click (TObject * Sender)
{(Distrib, IntToStr (M [w]). c_str ()); (Distrib, "");
} -> Panels-> Items [0] -> Text = Distrib; Distrib; = true; ();
} __fastcall TForm1 :: ToolButton5Click (TObject * Sender)
{(Distrib, IntToStr (M [w]). c_str ()); (Distrib, "");
} -> Panels-> Items [0] -> Text = Distrib; Distrib; = true; ();
}
// Збільшення відстані між шарамі__fastcall TForm1 :: ToolButton9Click (TObject * Sender)
{(len
} __fastcall TForm1 :: N13Click (TObject * Sender)
{(len
}
// Зменшення відстані між шарамі__fastcall TForm1 :: ToolButton10Click (TObject * Sender)
{(len> 3 * r) len-= 10; (len <3 * r) len = 3 * r; = len * dt;
} __fastcall TForm1 :: N14Click (TObject * Sender)
{(len> 3 * r) len-= 10; (len <3 * r) len = 3 * r; = len * dt;
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: UpDown1Click (TObject * Sender, TUDBtnType Button) p>
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: UpDown2Click (TObject * Sender, TUDBtnType Button) p>
{-> Text = UpDown2-> Position;
}
// -----------------------...