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;
(Pascal) 1. var i, s, n: integer; begin readln(n); s := 0; i := 0; while i < n do begin i := i + 1; s := s + i; end; writeln('Цикл с предусловием: ', s); s := 0; i := 1; repeat s := s + i; i := i + 1; until i > n; writeln('Цикл с постусловием: ', s); s := 0; for i := 1 to n do s := s + i; writeln('Цикл с переменной: ', s); end.
2. var i, n: integer; begin readln(n); for i := 1 to n do write(2 * i, ' ') end. 3. var i, a, b: integer; begin readln(a, b); for i := a to b do writeln(i, ' * ', i, ' = ', i * i) end.
256*365*2 байт
256*365/512 Кбайт