Скачать: CL | DM;

произвольное изменение числа   Найти похожие ветки 

← →
Kosyak   (2006-04-17 10:24) [0]

Здравствуйте! Подскажите пожалуйста как сделать так, чтобы по каждому нажатию кнопки менялось число в диапазоне от 1 до 80 в произвольном порядке (т.е. не по порядку), при этом не повторялись.
Заранее спасибо!

---

← →
Ega23 ©   (2006-04-17 10:30) [1]

Если не повторялось - то сложнее. А так - Random + F1

---

← →
kilkennyCat ©   (2006-04-17 10:34) [2]

Вопрос неоднозначен.

вот один вариант (меняем newN):

 randomize;
 N := 0;
.....
var
 N, newN : byte;
begin
 newN := Random(80) + 1;
 if N <> newN then newN := N;
end;

---

← →
kilkennyCat ©   (2006-04-17 10:38) [3]

randomize;
 N := 0;
.....
var
 N, newN : byte;
begin
  repeat
    newN := Random(80) + 1;
  until N = newN;
  N := newN;
end;

так точнее :)

---

← →
Anatoly Podgoretsky ©   (2006-04-17 11:14) [4]

Что будешь делать после 80го нажатия?

---

← →
ANB ©   (2006-04-17 11:22) [5]

> Kosyak   (17.04.06 10:24)

Чтобы не повторялось, надо хранить предыдущие значения и повторы откидывать.

---

← →
Anatoly Podgoretsky ©   (2006-04-17 11:45) [6]

И после 80 генерации получаем зависание программы.

---

← →
mlm68 ©   (2006-04-17 12:34) [7]

после 80 нажатия выводим сообщение, что кончились все цифры

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c