Ajutor pentru a face o lucrare practică
Anexe:
Utilizator anonim:
Pascal sau C ++ ?
Turbo Pascal
O sa incerc sa o scriu
bine, ajuta chiar cu 2 lucrări practice?
Nu imi place sa lucrez in pascal , din pacate
Vă mulțumesc foarte mult. zidi inca 2 teme, ajuta la altele :)
Bravo
Bravo
Răspunsuri la întrebare
Răspuns de
1
Varianta recursiva :
function suma(n : integer) : integer;
begin if n = 1 then suma:= 1
else suma:= suma(n-1) + n
end;
Varianta fara recursivitate :
var
n:integer
i:integer
suma:integer
for i := 0 to n do suma=suma+i ;
Write (suma);
function suma(n : integer) : integer;
begin if n = 1 then suma:= 1
else suma:= suma(n-1) + n
end;
Varianta fara recursivitate :
var
n:integer
i:integer
suma:integer
for i := 0 to n do suma=suma+i ;
Write (suma);
Alte întrebări interesante
Limba română,
8 ani în urmă
Chimie,
8 ani în urmă
Franceza,
8 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă