ГоловнаГотові роботиПрограмуванняИгра "Ханнойские башни" Delphi 7

Игра "Ханнойские башни" Delphi 7 (ID:165238)

Тип роботи: інше

Сторінок: 10

Рік виконання: 2016

Вартість: 80

Зміст

Рабочая игра на Delphi + Листинг кода Из возможностей: Можно менять количество стержней и колец Показывается время игры и количество ходов

Не підійшла ця робота?

Ви можете замовити написання нової роботи "під ключ" із гарантією

Замовити нову

Зразок роботи

unit MainU; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Button1: TButton; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Button2: TButton; Image1: TImage; Timer1: TTimer; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; qgame:boolean; qwheel,qstick,qstep:integer; qstart:tdatetime; qfield:array of array of integer; ............. ............. ............. Дальше больше после покупки

Інші роботи з даної категорії: