Random delphi
Автор Олег Плыгунов задал вопрос в разделе Другие языки и технологии
Рандом в DELPHI 7 и получил лучший ответ
Ответ от Jurii[гуру]
Randomize;
A := Random(4) + 1; S := [A];
repeat B := Random(4) + 1; until Not (B in S); S := S + [ B ];
repeat C := Random(4) + 1; until Not (C in S); S := S + [C];
repeat D := Random(4) + 1; until Not (D in S); S := S + [D];
Ответ от Вася Пупкин[гуру]
пример
var a,b,c:integer;
begin
a:=1;
b:=4;
randomize;//чтобы всегда разные в разное время
c:=random(b)+a;//от а до b включительно
end;
т. е
a:=random(4)+1;
b:=random(4)+1;
c:=random(4)+1;
d:=random(4)+1;
пример
var a,b,c:integer;
begin
a:=1;
b:=4;
randomize;//чтобы всегда разные в разное время
c:=random(b)+a;//от а до b включительно
end;
т. е
a:=random(4)+1;
b:=random(4)+1;
c:=random(4)+1;
d:=random(4)+1;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Рандом в DELPHI 7