Как получить K-разрядное число (число заданного размера) - 30 Мая 2012

Главная » » Как получить K-разрядное число (число заданного размера)

09:55 Как получить K-разрядное число (число заданного размера)
// генерирует к — разрядное число function GetNumb(k: integer) : integer; var n: integer; // генерируемое число i: integer; begin // процедура генерирует число по разрядам // начиная со старшего n:= Random(9)+1; // старший разряд не может быть нулем // остальные разряды for i := 1 to (k-1) do n := n*10 + Random(10); GetNumb := n; end;
1 2 3 4 5 Просмотров: 992 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки