type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; end end;
1) Каждое из четырех чисел IP не должно превышать 255. Адрес не может начинаться с точки. В качестве 1 фрагмента нельзя использовать Б.
2) Фрагмент В тоже не может быть первым, так как полученные комбинации будут больше 255. (12.193.6919.)-здесь только 3 числа. И последнее больше 255 и заканчивается точкой. Неправильно. (1219,193,69). Здесь тоже 3 числа и первое больше 255.
3) Остается на первое место фрагмент А. На второе фрагмент В, так как две точки подряд не могут идти. На третье- Б.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
Image1.Stretch:=true;
Image1.Left:=form1.Width div 2-image1.Width div 2;
Image1.top:=form1.Height div 2-image1.Height div 2;
end
end;
end.
АВБ (19.12.193.69).
Объяснение:
1) Каждое из четырех чисел IP не должно превышать 255. Адрес не может начинаться с точки. В качестве 1 фрагмента нельзя использовать Б.
2) Фрагмент В тоже не может быть первым, так как полученные комбинации будут больше 255. (12.193.6919.)-здесь только 3 числа. И последнее больше 255 и заканчивается точкой. Неправильно. (1219,193,69). Здесь тоже 3 числа и первое больше 255.
3) Остается на первое место фрагмент А. На второе фрагмент В, так как две точки подряд не могут идти. На третье- Б.
АВБ (19.12.193.69). Все числа меньше 255.