Matematické Fórum

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Math;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bt: array[1..100] of TPanel;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,c: Integer;
    pole: array[1..100] of Integer;  //pole čísel
begin
  Randomize;  //zapnutí generátoru náhodných číse - nezapomenout
  for i := 1 to 100 do //naplnění pole čísly od 1 do 100, index pole odpovídá
  begin                //příslušnému číslu
    pole[i] := i;
    bt[i].Color := clBtnFace; //barva pole panelů
  end;
  for i := 1 to 10 do   //cyklus vybírání 10-ti čísel
  begin
    c := RandomFrom(pole); //vyběr čísla z pole
    while c=0 do           //když jsi vybral 0, tak vybíráš tak dlouho až to
      c := RandomFrom(pole);  //nula nebude
    pole[c] := 0;             //na vybrané místo v poli zapíšeš 0
    bt[c].Color := clInfoBk;  //vybarvení příslušného panelu jinou barvou
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j,k: Integer;
begin
  Caption := 'Výběr čísel';
  j := 0; k := 0;
  for i := 1 to 100 do
  begin
    case i of
      1..10: begin j := i; k := 1; end;
      11..20: begin j := i-10; k := 2; end;
      21..30: begin j := i-20; k := 3; end;
      31..40: begin j := i-30; k := 4; end;
      41..50: begin j := i-40; k := 5; end;
      51..60: begin j := i-50; k := 6; end;
      61..70: begin j := i-60; k := 7; end;
      71..80: begin j := i-70; k := 8; end;
      81..90: begin j := i-80; k := 9; end;
      91..100: begin j := i-90; k := 10; end;
    end;
    bt[i] := TPanel.Create(Self);
    bt[i].Parent := Panel1;
    bt[i].Caption := IntTostr(i);
    bt[i].Left := -15+25*j;
    bt[i].Top := -15+25*k;
    bt[i].Height := 25;
    bt[i].Width := 25;
    bt[i].Visible := True;
    bt[i].Enabled := True;
  end;
end;

end.