Компонент Delphi Timer НЕ є Дуже Точні и НЕ Підходить для вімірювання малих проміжків годині. Его точність порядку 50 мілісекунд. p align="justify"> FormCreate відповідає за создания головної форми. Game запускає саму гру, з даною кількістю дисків. Panel2Click, Panel3Click, Panel4Click відповідають за переміщення дисків на стрижнях. Pos, Sel, Hig, Move - процедура Які відповідають за Підрахунки координат при переміщенні дисків. EndOfGame - Закінчення гри. N4Click - вихід. br/>
4. Розробка програми
. Постановка задачі
. Вивчення літератури з заданого питання
. Розробка алгоритму написання програми
. Створення блок-схеми
. Макетування першочергових алгорітмів
. Написання тестової Версії програми
. Аналіз за тестування створеня проекту
. Доопрацювання програми та оформлення графічної Оболонки
5. Блок-схема
Для создания програми за завдання Завдання необхідною умів є создания блок - схеми, яка допомагає більш добро уявіті, Які структурні Частини винна містіті у Собі Створена програма.
В
Малюнок 1 - Блок-схема програми
6. Текст програми
kyrsov;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Menus, ComCtrls, Buttons; = array of TPanel; = class (TForm): TPanel; : TPanel;: TPanel;: TPanel;: TPanel;: TPanel;: TPanel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TStatusBar;: TTimer;: TLabel;: TLabel;: TLabel ;: TEdit;: TUpDown;: TButton;: TButton;: TLabel;: TTimer; Game (Sen: TObject); PanelClick (Sender: TObject); Move (Pan1, Pan2: TPanel; Ed: TEdit); Hig (Pan: Pin; Tow: TPanel; Ed1, Ed2: TEdit); EndOfGame; Sel (Pan1: TObject; Pan: Pin; Ed1, Ed2, Ed3: TEdit); Pos (Panel: TPanel); FormCreate (Sender: TObject); Panel3Click ( Sender: TObject); Panel4Click (Sender: TObject); Panel2Click (Sender: TObject); N2Click (Sender: TObject); Timer1Timer (Sender: TObject); N4Click (Sender: TObject);
{Private declarations}
{Public declarations};, j, t, n: integer;: boolean;: Pin;, s: string;: TPanel;: TForm1;
{$ R *. dfm} TForm1.FormCreate (Sender: TObject);. Height: = UpDown1.Position * 20 + 40;. Height: = UpDown1.Position * 20 + 40;. Height : = UpDown1.Position * 20 + 40;. Top: = Panel5.Top - UpDown1.Position * 20 - 30;. Top: = Panel5.Top - UpDown1.Position * 20 - 30;. Top: = Panel5.Top - UpDown1.Position * 20 - 30;: = False;. Enabled: = False;. Enabled: = False;. Visible: = False;. Visible: = False;: = 0;. Panels.Items [1]. Text: = 'Кількість кроків:' + IntToStr (t);: = '00 ';: = '00';. Panels.Items [0]. Text: = &...