Les listes
Résolu
sousou
-
nicocorico Messages postés 846 Statut Membre -
nicocorico Messages postés 846 Statut Membre -
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.
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.
A voir également:
- Les listes
- Listes déroulantes excel - Guide
- Lister les disques cmd - Guide
- Listes déroulantes en cascade excel - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? ✓ - Forum Bureautique
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
2 réponses
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 :
Le chêne aussi était un gland, avant d'être un chêne
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
sousou
non moi je veu remplaçer le tableau par une liste
sousou
merciii nicocorico mai moi je veu remplaçer un tableau par une liste par exp au lieu écrire type tab =array [0..n] of integer; on est écrir type Tlistsimple=^element;
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 :
Le chêne aussi était un gland, avant d'être un chêne
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
