Les listes
Résolu
sousou
-
nicocorico Messages postés 799 Date d'inscription Statut Membre Dernière intervention -
nicocorico Messages postés 799 Date d'inscription Statut Membre Dernière intervention -
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
- Listes déroulantes en cascade excel - Guide
- Lister les disques cmd - Guide
- Le fichier à télécharger contient une liste de chats. triez-la comme dans le tableau ci-dessous (attention, on ne voit que le début…). quel est le mot formé par les 8 dernières lettres de la colonne code ? - Forum Word
- Sql lister les tables ✓ - Forum Programmation
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