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

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

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

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

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

 RUS.PAS ( 1.67 килобайт ) Кол-во скачиваний: 429

 keno.txt ( 493 байт ) Кол-во скачиваний: 441

Автор: 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

А слово Const перед тем, что я выше привел написать никак нельзя было?

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

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

 RUS.PAS ( 2.31 килобайт ) Кол-во скачиваний: 449


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

Автор: volvo 7.12.2006 14:05

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

if count=0 then
 if x>=4 then koef:=1
 else koef:=k[x,count];

можно сразу удалить Оно уже есть в таблице...

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

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