pomoc s programováním Vyřešeno

[petod]

zdravím nemohl by mi někdo zadat nějáké ukoly na programovaní na téma cykly,větvení které by zvládl kluk ze 7 třídy? nic mě nenapadá

[Reklama]

[Trongix]

Automat na pití :)

Odesláno z mého C6603 pomocí Tapatalk

[petod]

to zní dobře zkusím to vyřešit a hodím sem zdroják :)

[Trongix]

Tohle jsme dali ve škole :) dej tami nejakej kredit a tak a bude to dobry :) v cem děláš? :)

Odesláno z mého C6603 pomocí Tapatalk

[petod]

v pascalu :/ můžu použít case?

[Trongix]

Ja to delal v C# , Ano můžeš :)

Odesláno z mého C6603 pomocí Tapatalk

[petod]

Kód: Vybrat vše

program automat;

var  odpoved:string;
     kredit,kelimky:integer;

begin
  repeat
  begin
    writeln('v automatu jsou tyto nápoje. caj,sprite,kakao ktery byste si pral?');
    readln(odpoved);
    kelimky:= 10
    case odpoved of

      'caj';
            begin
              writeln('zaplate 10 kreditu');
              readln(kredit);
              if (kredit:= < 10) then
              begin
                writeln('musite zaplatit 10 kreditu');
                readln;
              end
              else
              begin
                writeln('caj je hotovy dobrou chut');
                kelimky:= kelimky-1;
                readln;
             end;
          end;

      'sprite';
               begin
                 writeln('zaplate 5 kreditu');
                 readln(kredit);
                 if (kredit:= < 5) then
                 begin
                   writeln('musite zaplatit 5 kreditu');
                   readln;
                end
               else
               begin
                 writeln('zde mate vychlazeny sprite');
                 kelimky:= kelimky-1;
                 readln;
               end;
            end;

      'kakao';
              begin
                 writeln('zaplate 5 kreditu');
                 readln(kredit);
                 if (kredit:= < 5) then
                 begin
                   writeln('musite zaplatit 5 kreditu');
                   readln;
                end
               else
               begin
                 writeln('kakao je hotove dobrou chut');
                  kelimky:= kelimky-1;
                 readln;
               end;
             end;
  until(kelimky:= 0);

  writeln('je mi lito dosli kelimky');
  readln;
end.

--- Doplnění předchozího příspěvku (24 Lis 2013 20:33) ---

trošku jsem si to upravil přidal jsem kredity i kelímky doufám že je to správně

[domkol]

další úloha na cykly je výpočet faktoriálu (faktoriál čísla 5=5*4*3*2*1) nebo násobící kalkulačka za použití pouze sčítací funkce

[petod]

ta kalkuačka zní zajímavě :). fraktoriál to mi nic neříká . jinak jsem si všiml v 1 ukolu 1 chyby case nemuže pracovat s texty ale se znaky :( a předělávat se mi to nechce :). kdyžtak to předělám zítra :)

[faraon]

Tohle je pěkný úkol, kdysi jsme ho tu řešili: viewtopic.php?t=100114&f=61

[domkol]

ten faktoriál je jednoduchej, zadáš vstup, například 6 a program ti vypíše 720. Jak? No protože 6*5*4*3*2*1 = 720. Je to vlastně jen podmínkový cyklus. My jsme to brali minulou hodinu . Jestli chceš, tak ti dám malou nápovědu

[domitea]

Faraon má vždycky velice dobré nápady, už to je ověřené

Faktoriál je pro lenochy co neznají Fibonacciho posloupnost. Každopádně, aby ses naučil něco nového, než používat již vymyšlené cykly, zkus to napsat rekurzivně. To je taky cyklus, ale trochu jinak než myslíš. Protože aby jsi mohl definovat rekurzi, musíš nejdříve definovat rekurzi. Neboli je to funkce, která volá sama sebe. A umět naspat dobrou rekurzi v jakémkoliv jazyce je základ.

Třeba v jazyce jménem Prolog je rekurze jediná možnost, jak napsat cyklus!