les listes Résolu

Question

Bonjour  
SVP voici ce program mai comment je change le tableau avec une liste  
aide moi svp

program polynome; 
uses crt; 
const n=3; 
type tab =array [0..n] of   integer; 
var t:tab; 
p,a,i:integer; 
x:integer; 

function puis (s,q:integer):integer; 
var f:integer; 
begin 
if q=1 then f:=s 
else f:=s*puis(s,q-1); 
puis:=f; 
end; 

begin 

clrscr; 
writeln('entrer la  valeur de X'); 
readln(x); 

for i:=0 to n do begin 
              writeln('entrer la valeur des  (A',i,') :'); 
              readln (t[i]); 
              p:=t[0]; 
              end; 

for i:=1 to n do 
             begin 
             p:=p+(t[i]*puis(x,i)); 
             end; 
            writeln ('la valeur de P(',x,') est:',p); 
readln; 

end.

nicocorico · Answer

Qu'entends-tu par 'liste' ?     
Sinon une petite remarque, pour la clarté dans la fonction, tu peux utiliser le mot réservé 'Result' pour la valeur de retour, ainsi :     

function puis (s, q : integer): integer;     
begin     
  if q = 1 then Result:= s else Result:= s*puis(s,q-1);     
end; 
Le chêne aussi était un gland, avant d'être un chêne

nicocorico · Answer

Hé bien, je ne vois pas trop l'intérêt ici... 
Si c'est pour éviter la limite du nombre d'entrées, tu peux donner le résultat au fur et à mesure, avec un code de sortie :  

program polynome; 
uses crt; 
var
  p,a,i,x, puissance: integer; 

begin 
  clrscr; 
  writeln('entrer la valeur de X'); 
  readln(x); 

  P:= 0; 
  I:= 01; 
  puissance:= X; 

  Repeat 
    writeln('entrer la valeur de (A',i,') :'); 
    readln(a); 
   
    p:= p + a*puissance; 
    writeln ('la valeur de P(',x,') est:',p); 

    Inc(i); 
    puissance:= puissance * X; 
  Until a = 0;  // On sort si la valeur est 0; 
end. 
  
Le chêne aussi était un gland, avant d'être un chêne

Les listes

2 réponses

Discussions similaires

Newsletters