Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Улучшение лотереи

Автор: Anastacia Adesso 6.12.2006 23:17

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

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

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

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

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

Автор: volvo 6.12.2006 23:46

Если я не ошибаюсь, вот так:

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 - не понимаю ...

Автор: Anastacia Adesso 6.12.2006 23:56

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

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

Спасиб

Автор: volvo 7.12.2006 0:01

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

Автор: Anastacia Adesso 7.12.2006 13:48

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

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


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

Автор: volvo 7.12.2006 14:05

Кстати, при моем варианте вот это:

if count=0 then
if x>=4 then koef:=1
else koef:=k[x,count];
можно сразу удалить smile.gif Оно уже есть в таблице...

Автор: Anastacia Adesso 7.12.2006 14:19

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