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;
- CellNumber: 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 CellNumberKeyPress(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 CellNumberChange(Sender: TObject);
- Procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X: Integer);
- Procedure FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
- Procedure CellNumberContextPopup(Sender: TObject; MousePos: TPoint; Var Handled: Boolean);
- Private
- { Private declarations }
- Public
- { Public declarations }
- End;
- Const
- 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(CellNumber.Text);
- Except
- IsCorrect := False;
- End;
- End;
- Function CountWays(N: Integer): Integer;
- Begin
- If N = 1 Then
- Result := 1
- Else
- If N = 2 Then
- Result := 2
- Else
- Result := CountWays(N - 1) + CountWays(N - 2);
- End;
- Procedure TMainForm.ResButtonClick(Sender: TObject);
- Var
- NumDisks: Integer;
- Begin
- Try
- NumDisks := StrToInt(CellNumber.Text);
- Except
- NumDisks := 0;
- End;
- Output.Lines.Clear;
- Output.Lines.Add('Количество способов продвижения на ' + IntToStr(NumDisks) + '-ю клетку: ' + IntToStr(CountWays(NumDisks)));
- 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: Integer);
- Begin
- If (CellNumber.Text <> '') Then
- ResButton.Enabled := True
- Else
- ResButton.Enabled := False;
- End;
- Procedure TMainForm.CellNumberChange(Sender: TObject);
- Var
- Value: Double;
- Begin
- If TryStrToFloat(CellNumber.Text, Value) Then
- Begin
- If (Value < 1) Or (Value > 30) Then
- Begin
- BalloonHint1.Title := 'Неверное значение.';
- BalloonHint1.Description := 'N должно быть больше 0 и меньше 30.';
- BalloonHint1.ImageIndex := 1;
- BalloonHint1.ShowHint(CellNumber);
- CellNumber.Text := '';
- End;
- End;
- CellNumber.MaxLength := 2;
- If Length(CellNumber.Text) = 0 Then
- Begin
- Output.Lines.Clear;
- End;
- End;
- Procedure TMainForm.CellNumberContextPopup(Sender: TObject; MousePos: TPoint; Var Handled: Boolean);
- Begin
- Handled := True;
- End;
- Procedure TMainForm.CellNumberKeyPress(Sender: TObject; Var Key: Char);
- Begin
- If Key In NumSet Then
- Begin
- If Key = '0' Then
- Begin
- If Length(CellNumber.Text) = 1 Then
- Begin
- If CellNumber.Text[1] In ['0'] Then
- Begin
- Key := #0;
- End;
- End;
- If Length(CellNumber.Text) = 2 Then
- Begin
- If (CellNumber.Text[1] = '-') AND (CellNumber.Text[2] = '0') Then
- Begin
- Key := #0;
- End;
- End;
- End;
- If Key = #45 Then
- Begin
- If Length(CellNumber.Text) > 0 Then
- Begin
- BalloonHint1.Title := 'Недопустимый символ.';
- BalloonHint1.Description := 'Здесь можно ввести только число.';
- BalloonHint1.ImageIndex := 1;
- BalloonHint1.ShowHint(CellNumber);
- Key := #0;
- End;
- End;
- If Key In [',', '.'] Then
- Begin
- Key := FormatSettings.DecimalSeparator;
- If Pos(Key, CellNumber.Text) <> 0 Then
- Begin
- BalloonHint1.Title := 'Недопустимый символ.';
- BalloonHint1.Description := 'Здесь можно ввести только число.';
- BalloonHint1.ImageIndex := 1;
- BalloonHint1.ShowHint(CellNumber);
- Key := #0;
- End
- Else
- If Length(CellNumber.Text) > 0 Then
- Begin
- If (CellNumber.Text[1] = '-') AND (Length(CellNumber.Text) = 1) Then
- Begin
- Key := #0;
- End
- End
- Else
- If CellNumber.SelStart = 0 Then
- Begin
- CellNumber.Text := '0' + CellNumber.Text;
- CellNumber.SelStart := 1;
- End;
- End;
- End
- Else
- Begin
- BalloonHint1.Title := 'Недопустимый символ.';
- BalloonHint1.Description := 'Здесь можно ввести только число.';
- BalloonHint1.ShowHint(CellNumber);
- 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('Файл не найден!');
- End
- Else
- Begin
- 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 <> 1 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
- CellNumber.Text := Number;
- End;
- ShowMessage('Обработка завершена.');
- End;
- 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