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

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

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

 
 Ответить  Открыть новую тему 
> Улучшение лотереи, Кено
сообщение
Сообщение #1


Пионер
**

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

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


Уф только что домучила программу..
Типа розыгрыш лотереи.
Всё выбираешь, отвечает что уже сделала... Но...
Не пойму как в неё забить табличку с коэфициентами, чтоб узнать выигранную сумму..

Если через массивы..Врядли выйдет нечто хорошее.
А выигранную сумму вычисляем так-
верхняя строка-количество твоих чисел
первый столбик-угаданные числа

коэфициент из таблицы умножается на ставку..
Плиз...Спасайте

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

Прикрепленный файл  keno.txt ( 493 байт ) Кол-во скачиваний: 297


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


Гость






Если я не ошибаюсь, вот так:
table:
array[0 .. 10, 1 .. 10] of real = (
{ 1 2 3 4 5 6 7 8 9 10}

( 0, 0, 0, 1, 1, 1, 1, 1, 1, 1), {0}
(1.5, 0, 0, 0, 0, 0, 0, 0, 0, 0), {1}
( 0, 4.5, 1, 0, 0, 0, 0, 0, 0, 0), {2}
( 0, 0, 8, 1, 1, 0, 0, 0, 0, 0), {3}
( 0, 0, 0, 20, 2, 2, 1, 0, 0, 0), {4}
( 0, 0, 0, 0, 45, 12, 3, 3, 1, 1), {5}
( 0, 0, 0, 0, 0, 175, 30, 5, 2, 2), {6}
( 0, 0, 0, 0, 0, 0, 700, 100, 40, 5), {7}
( 0, 0, 0, 0, 0, 0, 0, 3000, 350, 55), {8}
( 0, 0, 0, 0, 0, 0, 0, 0, 10000, 550), {9}
( 0, 0, 0, 0, 0, 0, 0, 0, 0, 60000) {10}

);
...
writeln('you won: ', stavka * table[count, x]);
...

Зачем коэффициент для 0 - не понимаю ...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

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

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


А вот для 0 это такой прикол..
Если ставил на от 4 и более цифр и не угадал, то получаешь свою ставку обратно.
Это я в правилах читала..

Знаешь, через массив тока что пошло, правда пришлось забить каждый отдельно коэфициент..
Уф ну и намаялася я

Спасиб


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


Гость






Цитата
правда пришлось забить каждый отдельно коэфициент..
blink.gif blink.gif А слово Const перед тем, что я выше привел написать никак нельзя было?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

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

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


Гмм... вот ещё прикол в том, что как и все преподы, мой не очень любит, когда используют то, чего мы не проходили.
Вот table мы типа ещё не знаем..
А получилось кое-что симпатичное

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


Мдааа... я какую-то чепуху несу. Собственно говоря, какой ещё table..
Поняла, ща сделаю, красивей выглядит твой вариант


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


Гость






Кстати, при моем варианте вот это:
if count=0 then
if x>=4 then koef:=1
else koef:=k[x,count];
можно сразу удалить smile.gif Оно уже есть в таблице...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Пионер
**

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

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


Да да.. Верно, я сразу это удалила..
Прикольно! Он даже говорит сколько, выиграл good.gif
Спасибо!!!


--------------------
Ben sensiz yaşayamam
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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