1000から9999までのさまざまな数値で配列を埋めようとしています。
私の問題は、私のコードが同じ番号で配列を埋めていることです。これが私のアプローチです：
repeat
Write('Enter an Integer from 5 to 20: '); Readln(n)
until (n in [5..20]);
for i := 1 to n do
begin
T[i] := Random(9000)+1000; // 1000 to 9999
Randomize
end;
Writeln('___________________________________');
for i := 1 to n do
Write(T[i], ' | ' );
Writeln;
Writeln('___________________________________');
Randomize()実際のループの前に呼び出す必要があります。
Randomize();
for i := 1 to n do
begin
T[i] := Random(9000) + 1000;
end;
Randomizeは、乱数ジェネレーターを初期化します
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加