Suite de Racines Carrées

Code:

program RacineCarre;
uses wincrt;
var
    N,i:integer;
    R:real;
begin
    write('donner le N');
    read(N);
    R:=0;
    i:=N;
    while i>0 do
    begin
        R:=sqrt(i+R);
        i:=i-1;
    end;
end.

Code:

...
    end;
    write ('l''estimation est:',R);

end.

Code:


#include<stdio.h>

void main()
{int i,n;
float R;

printf("donner un entier\n");
scanf("%d",&n);

R=sqrt(n);
for (i<=n-1;i=1;i--)
{R=sqrt(i+R);}

printf("l'estimation de %d = %.4f\n",n,R);
}





Code:

program racines_r;
var
    i, n : integer;
    r : real;
begin
    Readln(n);
   
    r := sqrt(n);
    i := n-1;
    while (i > 0) do begin
        r := sqrt(i + r);
        i := i - 1;
    end;

    Writeln('r = ', r);

    Readln;
end.

Admin a écrit:Salut tout le monde:

Je crois qu'on s'est trompé TOUS dans cet exercice

Les solutions données sont fausses, et personne n'a fait attention

(J'espère que ce n'est pas moi qui se trompe maintenant )

La solution R := SQRT(i + R) ne donne pas le résultat demandé.

Code:

program racines_r;
var
    n : integer;
   
function rac(_from, _to : integer):real;
begin
    if (_from = _to) then rac := sqrt(_to)
    else
        rac := sqrt(_from + rac(_from + 1, _to));
end;

begin
    Readln(n);
    Writeln('r = ', rac(1, n));

    Readln;
end.

manianis a écrit:Je propose une solution (non récursive) puis une autre (récursive)

Code:

program racines_r;
var
    i, n : integer;
    r : real;
begin
    Readln(n);
   
    r := sqrt(n);
    i := n-1;
    while (i > 0) do begin
        r := sqrt(i + r);
        i := i - 1;
    end;

    Writeln('r = ', r);

    Readln;
end.

Pourquoi la boucle "while" ici alors qu'on connait d'avance le nombre d'itérations qui est n ?

Code:

r := sqrt(n);
    i := n-1

Code:

    R:=0;
    i:=N;

manianis a écrit:

Code:

program racines_r;
var
    n : integer;
   
function rac(_from, _to : integer):real;
begin
    if (_from = _to) then rac := sqrt(_to)
    else
        rac := sqrt(_from + rac(_from + 1, _to));
end;

begin
    Readln(n);
    Writeln('r = ', rac(1, n));

    Readln;
end.

Code:

unction rac(n : integer):real;

function int_rac(_from, _to : integer):real;
begin
    if (_from = _to) then rac := sqrt(_to)
    else
        rac := sqrt(_from + rac(_from + 1, _to));
end;

begin
    rac := int_rac(1, n);
end;