Anonymní profil Filip – Programujte.com

.Dobrý den/ahoj jsem v Delphi začátečník a dostali jsme ve škole za ůkol vytvořit 3 úlohy na rekurzi. Použít to na faktoriál to chápu, ale vůbec mě nenapadá jak to využít zde :

Rekurze úloha 1
Vytvořte rekurzivníproceduru, která vypíše všechny možnosti rozměněnístokoruny na 1, 2,5,10,20,50 korunová platidla

Rekurze úloha 2
Napište rekurzivníproceduru, která pro zadané číslo N vypíše řetězec skládající se z N jedniček následovaných 2N dvojkami.
Př. pro N=3 vypíše 111222222.

Rekurze –úloha 3
Sestavte program, který pomocí rekurze obrátí pořad íprvků nesetříděného pole o velikosti n.
Př. vstup= [1,23,49,2,9]
výstup= [9,2,49,23,1]

Programujeme v Delphi 7 objektově. Děkuju za případné názory, nápady či řešení. Filip :)

Ahoj, chtěl jsem se zeptat, jestli by mi někdo neporadil s touto úlohou. Zkouším to řešit pomocí cyklu Until, že dokud nezmáčku tlačítko, tak Form1 bliká, jenže jakmile TimeToStr(now) dosáhne hodnoty buzení, tak by se formulář měl rozblikat, místo toho se zasekne a musí se shodit přes Ctrl+F9

Uživatel ať si pomocí vhodných ovládacích prvků nastaví čas
A aplikace v případě, že už daný čas nastal rozbliká formulář, který se v tu chvíli roztáhne na celou obrazovku a bude blikat v náhodně generovaných barvách. Po kliku na plochu obrazovky se vrátí aplikace do „normální“ podoby.
Nezapomeňte na režim vypnuté buzení!

( Rozšíření pro pokročilejší studenty – budík bude budit příjemnou melodií)

#4 Sniper
1. Vytvořte aplikaci, která za běhu vytvoří pole 7x7 komponent typu TBitButton jako tiket sportky. Popiska každého tlačítka jsou postupně čísla 1..49
2. Po aktivaci volby „zadej sportku“, uživatel klikem na zvolené tlačítko s číslem, volí postupně 7 čísel a volené čísla zvýrazní vhodným způsobem. Vytvoří tak svoji „sázenku“
3. Volba jednotlivých čísel ať se dá opakovaným klikem zrušit a počet navolených čísel nepřekročí 7.
4. Potvrzení sázenky ať se zadá klikem na vhodně umístěné tlačítko a sázenku ať si program pamatuje. Počet registrovaných sázenek je max. 50.
5. Tlačítko „TAH SPORTKY“ vygeneruje 7 navzájem různých čísel a zobrazí je výrazně v listboxu vedle sportky
6. Po vygenerování TAHu ať je vhodným způsobem oznámeno jestli nějaká sázenka vyhrává 1. cenu a kolik sázenek celkem bylo podáno
7. Volba NOVÁ HRA ať zahajuje „sazkový týden“

#4 Sniper
Díky :)

 takhle to mam rozpracovaný a potřeboval bych vědět spíš syntaxi, pro to jak každýmu byttonu přiřadit na click nějaký pole[i]:=button(i).caption :)// nebo nevim jak zadat ítej button 

procedure TForm1.FormCreate(Sender: TObject);
var //cisla:Tbutton;
    i,j:integer;
    point:integer;

begin
    point:=1;
    for i:=1 to 7 do
      begin
          for j:=1 to 7 do
           begin
              Buttony[i,j]:=TButton.Create(self);
              with Buttony[i,j] do
                begin
                Parent := Self;
                Left := 20 + j * 50;
                Top := 20 + i * 50;
                Width := 50;
                Height := 50;
                Caption := IntToStr(point);




                end;
                inc(point);
           end;
      end;
end;

Ahoj chtěl sem se zeptat, mám za úkol vytvořit program: 

1. Vytvořte aplikaci, která za běhu vytvoří pole 7x7 komponent typu TButton jako tiket sportky. Popiska každého tlačítka jsou postupně čísla 1..49
2. Po aktivaci volby „zadej sportku“, uživatel klikem na zvolené tlačítko s číslem, volí postupně 7 čísel a volené čísla zvýrazní vhodným způsobem. Vytvoří tak svoji „sázenku“

Když sem si vytvořil toto pole 7x7, je nějaká možnost, jak si ulehčit práci a naprogramovat proceduru, která při OnClick na jakékoliv tlačítko by zapsala jeho caption do pole, nebo musím dělat 49x OnClick zvlášť ? Děkuji :)