Discussion :

[spithi]

Bonjour à tous, je débute dans la matière et je suis en train de résoudre un exercice où je dois chercher les racines d'un polynôme du 5è degré ! Je parviens au bon raisonnement mais je dois cliquer plusieurs fois sur ENTER pour qu'il affiche la réponse !

Serait-il possible de demander a l'ordi qu'il affiche la réponse seulement quand elle atteint la limite demandée et sans devoir appuyer chaque fois sur ENTER ?
Je ne sais pas si mon programme sera fort lisible car je ne connais pas encore les options de ce forum ! Désolé

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program POLYNOME;
var a,b,c,d,e,f : integer;
m,Fm,i,j,Fi,Fj : real;
 
begin
Writeln ('Entrez le coefficient du X^5 non nul');
Readln (a);
Writeln('Entrez le coefficient du X^4');
readln (b);
Writeln('Entrez le coefficient du X^3');
Readln (c);
Writeln ('Entrez le coefficient du X^2');
Readln (d);
Writeln ('Entrez le coefficient du X');
Readln (e);
Writeln ('Entrez le coefficient du terme independant');
Readln (f);
writeln('Entrez un intervalle [a,b] (a<b) dans lequelle une racine du polynome est comprise');
readln (i,j);
 
Fi:=a*i*i*i*i*i+b*i*i*i*i+c*i*i*i+d*i*i+e*i+f;
Fj:=a*j*j*j*j*j+b*j*j*j*j+c*j*j*j+d*j*j+e*j+f;
 
Repeat
m:=(i+j)/2;
 
Fm:=a*m*m*m*m*m+b*m*m*m*m+c*m*m*m+d*m*m+e*m+f;
if Fi=0 then writeln('la racine comprise entre [',i,',',j,'] de ce polynome est' ,i);
 
Readln;
if Fj=0 then writeln('la racine comprise entre [',i,',',j,'] de ce polynome est' ,j);
Readln;
 
if Fm*Fi < 0 then j:=m else i:=m;
 
until abs (Fm)< 0.00001;
writeln ('Le polynome a une racine en' ,m);
readln ();
 
end.

[Alcatîz]

Bonjour et bienvenue !

Ben, sans vouloir te froisser, pour ne plus devoir taper ENTER, il suffit de ne pas le demander !

Tu supprimes les deux Readln dans la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
{Readln;}
if Fj=0 then writeln('la racine comprise entre [',i,',',j,'] de ce polynome est' ,j);
{Readln;}

[spithi]

oh merci je suis vraiment un ! comment se compliquer la tâches n'importe comment!