IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Пасьянс, Randomize
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 92
Пол: Мужской
Реальное имя: Stanislav

Репутация: -  0  +


И вот ещё такой вопрос.

Есть программа. Суть-Пасьянс Free Cell. Задача- всего лишь раскинуть карты перед началом игры.

Хмм эта всего лишь выдаёт карты (постоянно одинаковые), попросту записано в теле программы, что где стоит.

А как можно написать, чтоб всегда всё было разное?
То есть чтоб были реально только, наверное в массиве, карты. Рандомизировать.. Но, чтоб не было повторов карт..
Я wacko.gif

Прикрепленный файл  UZD5.PAS ( 1.89 килобайт ) Кол-во скачиваний: 514


--------------------
Ben sensiz yaşayamam
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Цикл вывода (в сообщении №5) чуть подправь:
...
s := [];
for i := 1 to 52 do begin

repeat
X := random(52) + 1;
until not (X in S);
s := S + [X];
pech(cards[X].z, cards[X].m);

if i mod 8 = 0 then writeln { <--- Вот это добавить и ниже }
else if i mod 4 = 0 then write(' ');

end;
...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 22:51
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name