BitCell

by **andreiandreiq** » 07 Jan 2011, 16:47

Am urmatoarea problema:

2. Pentru definiţia alăturată a subprogramului f, ce se afişează ca urmare a apelului f(26);?

Line number On/Off | Expand/Contract | Select all

procedure f (x:integer);
begin
  if x>0 then
  begin
    write('x'); f(x div 3); write('y')
  end
end;

Sa imi spuna cineva ce ii afiseaza dupa ce rezolva.

by **Dexter** » 07 Jan 2011, 17:58

Este vorba de apeluri recursive ale funcţiei f.

Line number On/Off | Expand/Contract | Select all

>Apel iniţial: f(26)
>Afişează: 'x'
    >>Apelează: f(8)
    >>Afişează: 'x'
        >>>Apelează: f(2)
        >>>Afişează: 'x'
            >>>>Apelează: f(0) -- nu se execută nicio comandă
        >>>-- înapoi la f(2), din f(0)
        >>>Afişează: 'y'
    >>-- înapoi la f(8), din f(2)
    >>Afişează: 'y'
>-- înapoi la f(26), din f(8)
>Afişează: 'y'
 
Rezultat: xxxyyy 

by **andreiandreiq** » 07 Jan 2011, 18:21

Deci de fiecare data se rezolva pana la apelul functiei f, fac doar:

Line number On/Off | Expand/Contract | Select all

 begin
     write('x'); f(x div 3);

Si dupa ce ajung la f(0) trec la write('y').

Poti sa imi explici te rog si problema de mai jos, sa ma prind si eu cum se rezolva problemele de recursivitate.

2. Pentru subprogramul f definit alăturat, ce se afişează ca urmare a apelului f(15,2);?

Line number On/Off | Expand/Contract | Select all

procedure f (n,x:integer);
begin
  if x>n then write('*')
  else
  begin f(n,x+4); write(x mod 10) end
end;

by **Dexter** » 07 Jan 2011, 19:08

În exemplul al doilea, n rămâne neschimbat (deci pentru f(15,2), n va rămâne 15).
Pe ramura else a condiţiei, apelul f(n,x+4) este înaintea comenzii write (x mod 10), deci întâi se va apela f recursiv, de mai multe ori, până la condiţia de oprire, iar apoi, pe măsură ce se părăseşte fiecare apel, se afişează x mod 10, adică restul împărţirii lui x la 10.

Line number On/Off | Expand/Contract | Select all

>Apelează: f(15, 2)
    >>Apelează: f(15, 6)
        >>>Apelează: f(15, 10)
            >>>>Apelează: f(15, 14)
                >>>>>Apelează: f(15, 18)
                >>>>>Afişează: * -- condiţia de oprire x>n
 
            >>>> -- înapoi la f(15, 14)
            >>>>Afişează: 4
 
        >>> -- înapoi la f(15, 10)
        >>>Afişează: 0
 
    >> -- înapoi la f(15, 6)
    >>Afişează: 6
 
> -- înapoi la f(15, 2)
>Afişează: 2
 
Se afişează: *4062

by **andreiandreiq** » 07 Jan 2011, 19:23

Mersi

Am rezolvat eu una:

Pentru definiţia alăturată a subprogramului f, ce se afişează ca urmare a apelului f(10);?

Line number On/Off | Expand/Contract | Select all

procedure f (b:integer);
begin
  if 3<=b then
  begin
    f(b-2); write(‘*’)
  end
  else
    write(b)
end;

Se afiseaza: 2****

Cred ca ii bine :-?

BitCell

Varianta 003, s III - afisare

Varianta 003, s III - afisare

Re: Varianta 003, s III - afisare

Re: Varianta 003, s III - afisare

Re: Varianta 003, s III - afisare

Re: Varianta 003, s III - afisare

Who is online