Delphi6で、１〜２０の数字をランダムに１０個（１０回でも可）ダブらないように表示させるプログラムを作りたい。

今、Ｄｅｌｐｈｉがインストールしてないので、確認ができません。

やり方だけ 書きます。

１．２０までの配列を宣言します。 例 A(20)

２．それに １から２０まで数字を入れます。

３．１０００までの乱数を発生させて それをループのマックスとします。

４．２０までの乱数を２つ発生させます。

５．その ２つの乱数（例 ７と１３）が出たら

その 乱数の配列を入れ替えます。

ｄｕｍｍｙ：＝Ａ（７）

Ａ（７）：＝Ａ（１３）

Ａ（１３）：＝ｄｕｍｍｙ

６．これらを ３で発生させた乱数の数まで行います。

終わったら、１から１０までの配列の内容を

表示させればいいでしょう。

こんな感じになります

最小限のコメントをつけましたが分からなければ補足します

アルゴリズム

使っていない数字のうち、何番目のものを

使うかを指定します

判定には配列を使っています

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private 宣言 }

public

{ Public 宣言 }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i,j,k,l,a,b: Integer;

IChk: array[1..65536] of Integer;

//既に使用した値のチェック用

begin

Randomize;

//乱数初期化

Memo1.Lines.Clear();

//結果表示窓の初期化

a:=StrToIntDef(Edit1.Text,0);

b:=StrToIntDef(Edit2.Text,0);

// 入力値の変換

if a>65536 then

a:=65536;

if a<b then

b:=a;

// 入力値のエラーチェック

for i := 1 to a do

begin

IChk[i]:=0;

end;

// 配列初期化

j:=0;

for i := 1 to b do

begin

k:=Random(a+1-i)+1;

//箱を幾つ飛ばすか計算

l:=j;

while k>0 do

begin

if IChk[l]=0 then

Dec(k);

//使っていない箱ならカウント

if k>0 then

Inc(l);

//まだ飛ばす数が残っているなら次の箱へ

if l=a+1 then

l:=1

//配列がオーバーしたら１にもどります

end;

j:=l;

IChk[j]:=1;

//箱の使用フラグをON

Memo1.Lines.Add(IntToStr(j));

//結果出力

end;

end;

end.