řádky ruleta DELPHI 7 – Delphi – Fórum – Programujte.com

Zdravím , potřeboval bych pomoci s ruletou. Konkrétně když chci vsázet na řádky na plátnu

to jsou pole  2 to 1, tak nevím jak definovat nějakou podmínku pro konkretní řádek.Uvedu příklad u sázky na čísla 1 to 18 to je , že vyherní čísla jsou všechny mezi 1 až 18 a mám to :
begin

            if (c>=1) and (c<=18) then    

Nějak takhle bych to potřeboval pro řádky.

.Nevím jestli jsme to vysvětlil nějak pochopitelně , ale snad ano .:)Děkuji

Připojen obrázek.

Co treba si udelat 2 tabulky?

Druh sazky
id, nazev
0, cislo
1, rada
2, sloupec
3, sude
4, liche

Seznam policek pro sazku
id, typ, oblast, znacka, cisla (typ sazky, poloha policka pro sazeni, eznam cisel, ktere sazka zahrnuje)
0, 0, (x1,y2,x2,y2), (x,y), (0) - pro sazeni na nulu je v seznamu cisel jenom nula; poloha, kde je mozne kliknout sazku by mela byt vetsina z prostoru uvnitr nuly (okraje pak vyuzijes pro sazeni na rady)
...
40, 4, (x1,y2,x2,y2), (x,y), (1, 3, 5, ... licha cisla) - ciha cisla, typ sazky je 4

Pak ti staci vyhledat polohu, kam clovek kliknul a pridat mu do seznamu vsazenych id ze "Seznam policek pro sazku". A podle tohoto id budes schopen mu do nane oblasti vykreslit i znacku. Pri opetovnem kliknuti najdes vsechny id, ktere se shoduji s tim v oblasti. Pokud je pocet vetsi nez 0, tak je smazes a odstranis znacku z herniho planku, jakoze hrac zrusil sazku.

Jo, tim padem cely problem pak prejde na pouzici cyklu a na podminky c>= neco muzes zapomenout :)

jo, a mimochodem, nekdo neco podobne resil nedavno v packalu, mozna na foru zustal i kod. Pripadne se to da mozna najit googlem.

Určitě by to takhle šlo , ale mě už tam chybí dodělat pouze toho a nechci kvůli tomto to celé předělávat. Každopádně děkuji za pomoc

Musel bys presne rozepsat pro jaky seznam cisel potrebujes spesl podminku. Jestli by treba nestacilo, co jsem psal, udelat si pole, do nej dat presne ten seznam cisel, ktery te zajima a prochazet to cyklem?

Treba pro cisla (ciselnou radu) 1 4 7 10... je vzorec 1+3*i (pro i=0 az 11), cisla 2 5 8 ... je vzorec 2+3*i (pro i=0 az 11).
Rovnici pak mas
n + 3 * i = cislo -> i = (cislo - n) / 3 a i musi byt cele cislo, cili treba n==1 && (cislo - n) % 3 == 0
A ted je otazkou, jestli se do rady pocita i cislo nula nebo ne.
 

Dobrá, a nenepsal by si mi  tady prosím ten zdroják pro jeden ten řádek, jako to myslíš ty přes to pole . Výsledný číslo co padne mám označenou jako proměnou c. A nula se nepočíta . Moc díky.

http://www.soom.cz/clanky/8--Pascal-pro-zacatecniky-7-Strukturovane-datove-typy

 Nejspis to jde udelat ruzne, ja uz pascal radu let nepouzil. Vybral jsem si const, protoze tam byl priklad, jak zadat serii cisel po sobe. To ostatni bych musel googlovat.
type y = (1,3,5); x:y;
const x = [1,3,5];
x: set of byte; x:= [1,3,5];
x: array[0..36] of byte; x:= (1,3,5)

const cisla = [1,3,5,15];
begin
  c := 5;
  sazka := 9;
  vyhra := 0;
  if ((sazka=9) and (c in cisla)) then begin vyhra := 6; end;
  writeln(c, sazka, vyhra);
end.