Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Unit Main;
- Interface
- Uses
- Winapi.Windows,
- Winapi.Messages,
- System.SysUtils,
- System.Variants,
- System.Classes,
- Vcl.Graphics,
- Clipbrd,
- Vcl.Controls,
- Vcl.Forms,
- Vcl.Dialogs,
- Vcl.StdCtrls,
- Vcl.Menus,
- Vcl.ExtCtrls,
- Vcl.Imaging.Pngimage;
- Type
- TMainForm = Class(TForm)
- ResButton: TButton;
- DiskNumber: TEdit;
- MainMenu1: TMainMenu;
- N1: TMenuItem;
- N2: TMenuItem;
- N3: TMenuItem;
- N4: TMenuItem;
- N5: TMenuItem;
- Y1: TLabel;
- Disk: TLabel;
- BalloonHint1: TBalloonHint;
- OpenDialog1: TOpenDialog;
- SaveDialog1: TSaveDialog;
- Output: TMemo;
- LabelTask: TLabel;
- Procedure ResButtonClick(Sender: TObject);
- Procedure N2Click(Sender: TObject);
- Procedure N5Click(Sender: TObject);
- Procedure DiskNumberKeyPress(Sender: TObject; Var Key: Char);
- Procedure N3Click(Sender: TObject);
- Procedure GetPath(Var Path: String);
- Procedure N4Click(Sender: TObject);
- Procedure Checker(Var IsCorrect: Boolean);
- Procedure N1Click(Sender: TObject);
- Procedure DiskNumberChange(Sender: TObject);
- Procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
- Procedure FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
- Procedure DiskNumberContextPopup(Sender: TObject; MousePos: TPoint; Var Handled: Boolean);
- Private
- { Private declarations }
- Public
- { Public declarations }
- End;
- Const
- E: Double = 1.0E-3;
- NumSet = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #8, #44, #45, #46];
- Var
- MainForm: TMainForm;
- Implementation
- {$R *.dfm}
- Uses
- Instruction,
- Information;
- Procedure TmainForm.Checker(Var IsCorrect: Boolean);
- Begin
- IsCorrect := True;
- Try
- StrtoFloat(DiskNumber.Text);
- Except
- IsCorrect := False;
- End;
- End;
- procedure SolveTowerOfHanoi(n: Integer; source, destination, auxiliary: Char; Output: TStrings);
- begin
- if n > 0 then
- begin
- SolveTowerOfHanoi(n - 1, source, auxiliary, destination, Output);
- Output.Add('Переместить диск ' + IntToStr(n) + ' с ' + source + ' на ' + destination);
- SolveTowerOfHanoi(n - 1, auxiliary, destination, source, Output);
- end;
- end;
- procedure TMainForm.ResButtonClick(Sender: TObject);
- var
- NumDisks: Integer;
- IsCorrect: Boolean;
- begin
- Checker(IsCorrect);
- if IsCorrect then
- begin
- NumDisks := StrToInt(DiskNumber.Text);
- Output.Lines.Clear;
- SolveTowerOfHanoi(NumDisks, 'A', 'B', 'R', Output.Lines);
- Output.Lines.Add('Головоломка решена.');
- end
- else
- begin
- ShowMessage('Заполните все поля');
- Exit;
- end;
- end;
- Procedure TMainForm.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
- Var
- Confirmation: Integer;
- Begin
- Confirmation := Application.MessageBox('Вы действительно хотите выйти?', 'Выход', MB_YESNO);
- CanClose := Confirmation = IDYES;
- End;
- Procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
- Begin
- If (DiskNumber.Text <> '')Then
- ResButton.Enabled := True
- Else
- ResButton.Enabled := False;
- End;
- Procedure TMainForm.DiskNumberChange(Sender: TObject);
- Var
- Value: Double;
- Begin
- If TryStrToFloat(DiskNumber.Text, Value) Then
- Begin
- If (Value < 1) Then
- Begin
- BalloonHint1.Title := 'Неверное значение.';
- BalloonHint1.Description := 'N должно быть больше 0.';
- BalloonHint1.ImageIndex := 1;
- BalloonHint1.ShowHint(DiskNumber);
- DiskNumber.Text := '';
- End;
- End;
- DiskNumber.MaxLength := 5;
- If Length(DiskNumber.Text) = 0 Then
- Begin
- Output.Lines.Clear;
- End;
- End;
- Procedure TMainForm.DiskNumberContextPopup(Sender: TObject; MousePos: TPoint; Var Handled: Boolean);
- Begin
- Handled := True;
- End;
- Procedure TMainForm.DiskNumberKeyPress(Sender: TObject; Var Key: Char);
- Begin
- If Key In NumSet Then
- Begin
- If Key = '0' Then
- Begin
- If Length(DiskNumber.Text) = 1 Then
- Begin
- If DiskNumber.Text[1] In ['0'] Then
- Begin
- Key := #0;
- End;
- End;
- If Length(DiskNumber.Text) = 2 Then
- Begin
- If (DiskNumber.Text[1] = '-') AND (DiskNumber.Text[2] = '0') Then
- Begin
- Key := #0;
- End;
- End;
- End;
- If Key = #45 Then
- Begin
- If Length(DiskNumber.Text) > 0 Then
- Begin
- BalloonHint1.Title := 'Недопустимый символ.';
- BalloonHint1.Description := 'Здесь можно ввести только число.';
- BalloonHint1.ImageIndex := 1;
- BalloonHint1.ShowHint(DiskNumber);
- Key := #0;
- End;
- End;
- If Key In [',', '.'] Then
- Begin
- Key := FormatSettings.DecimalSeparator;
- If Pos(Key, DiskNumber.Text) <> 0 Then
- Begin
- BalloonHint1.Title := '???????????? ??????.';
- BalloonHint1.Description := '????? ????? ?????? ?????? ?????.';
- BalloonHint1.ImageIndex := 1;
- BalloonHint1.ShowHint(DiskNumber);
- Key := #0;
- End
- Else
- If Length(DiskNumber.Text) > 0 Then
- Begin
- If (DiskNumber.Text[1] = '-') AND (Length(DiskNumber.Text) = 1) Then
- Begin
- Key := #0;
- End
- End
- Else
- If DiskNumber.SelStart = 0 Then
- Begin
- DiskNumber.Text := '0' + DiskNumber.Text;
- DiskNumber.SelStart := 1;
- End;
- End;
- End
- Else
- Begin
- BalloonHint1.Title := 'Недопустимый символ.';
- BalloonHint1.Description := 'Здесь можно ввести только число.';
- BalloonHint1.ShowHint(DiskNumber);
- Key := #0;
- End;
- End;
- Procedure TMainForm.N1Click(Sender: TObject);
- Begin
- If Output.Lines.Count = 0 Then
- Begin
- N4.Enabled := False;
- End
- Else
- Begin
- N4.Enabled := True;
- End;
- End;
- Procedure TMainForm.N2Click(Sender: TObject);
- Begin
- InstructionForm.ShowModal;
- End;
- Procedure TMainForm.GetPath(Var Path: String);
- Begin
- If OpenDialog1.Execute Then
- Begin
- Path := OpenDialog1.FileName;
- End
- Else
- Begin
- ShowMessage('Открытие файла отменено!');
- End;
- End;
- procedure TMainForm.N3Click(Sender: TObject);
- var
- IsCorrect, Fail: Boolean;
- Path, Number, Str: String;
- Count: Integer;
- FileElem: TextFile;
- begin
- GetPath(Path);
- AssignFile(FileElem, Path);
- Fail := False;
- IsCorrect := True;
- Count := 0;
- if not FileExists(Path) then
- begin
- ShowMessage('Файл не найден!');
- Exit;
- end;
- try
- try
- Reset(FileElem);
- except
- CloseFile(FileElem);
- IsCorrect := False;
- ShowMessage('Ошибка открытия файла.');
- end;
- if IsCorrect then
- begin
- while not Eof(FileElem) do
- begin
- ReadLn(FileElem, Str);
- Inc(Count);
- end;
- CloseFile(FileElem);
- if Count <> 2 then
- Fail := True;
- end;
- if IsCorrect then
- begin
- Reset(FileElem);
- try
- Readln(FileElem, Number);
- if not TryStrToInt(Number, Count) then
- Fail := True;
- except
- Fail := True;
- end;
- end;
- finally
- CloseFile(FileElem);
- if Fail then
- ShowMessage('Проверьте введенные данные и повторите попытку!')
- else
- begin
- DiskNumber.Text := Number;
- end;
- ShowMessage('Обработка завершена.');
- end;
- end;
- Procedure TMainForm.N4Click(Sender: TObject);
- Begin
- If SaveDialog1.Execute Then
- Begin
- Output.Lines.SaveToFile(SaveDialog1.FileName);
- End
- Else
- Begin
- ShowMessage('Сохранение в файл отменено.');
- End;
- End;
- Procedure TMainForm.N5Click(Sender: TObject);
- Begin
- InformationForm.ShowModal;
- End;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement