Probleme Pascal Recursivitate

**virusneak** · 16-11-2009 15:09

Am un program pe care nu-l pot face. Ma ajuta si pe mine cineva?

Se considera declaratia:
type Vector=array [1..20] of integer;

Elaborati un program cu subprograme recursive care: Afiseaza componentele vectorului pe ecran, calculeaza suma componentelor, inverseaza componentele vectorului, calculeaza suma componentelor pozitive, verifica daca cel putin o componenta a vectorului este negativa, calculeaza produsul componentelor negative, verifica daka cel putin o componenta a vectorului este egala cu un numar dat.

**mvctin** · 16-11-2009 18:52

recursivitatea necesita ca in functie la sfirsitul partii utile sa reapelezi functia cu parametrii schimbati

de exemplu pt afisarea recursiva :
function rprint(x:vector;y:integer;z:integer):integer;
var k:integer;
begin
if y>=z then {ca sa se opreasca cind y=0}
begin
write(x[y]);
write(' ');
k:=y-1;
rprint:=rprint(x,k,z);
end;
end;
si o apelezi cu rprint(x,20,1);

**virusneak** · 17-11-2009 14:10

ms mult.. dar cu afisharea mam clarifikat. dar totushi nu pot krea tot programul. nushtiu cum sa fac celelalte subprograme

**mvctin** · 18-11-2009 11:28

Programarea nu e usoara si nici nu se invata cit ai bate din palme.

Azi sunt darnic si iti mai donez o functie

function recsum(x:vector;y:integer;z:integer):integer;
var k,l:integer; {calculeaza suma recursiv}
begin
k:=y-1;
if y>z then
begin
l:=0;
if k=1 then l:=0
else l:=(recsum(x,k,z));
recsum:=x[y]+l;
end;
end;

se apeleaza evident cu recsum(x,20,1)

**virusneak** · 18-11-2009 20:12

dar totushi poti sa ma ajutsi cu "inverseaza componentele vectorului" te rog mult

**mvctin** · 19-11-2009 00:02

inversarea asta pare a fi schimbarea ordinii elementelor
intai elementele erau 1 2 3 4 .. 20 dupa
care sunt puse in ordinea inversa 20 19 ... 4 3 2 1
se poate face si prin recursivitate in mai multe moduri

varianta 1
se foloseste o singura variabila de control care creste/scade si la fiecare etapa se calculeaza in variabila locala unde trebuie inversate valorile direct in array-ul apelat ca variabila globala procedurii (nu-i nevoie de functie). Variabila de control avanseaza doar pina la jumatatea intervalului.

varianta 2
se folosesc 2 variabile de control una care creste si una care scade si cind cele 2 variabile de control sunt egale se opreste substituirea.
Ca si in cazul precedent trebuie folosit array-ul ca variabila globala si se modifica direct in el. Se foloseste tot procedura deoarece nu trebuie returnata valoare.

alte variante folosesc mai multe array-uri si una din primele 2 variante.