Discussion :

[hamidov7]

Salut à tous;

Je tiens à afficher les résultats (x1;x2) de ce programme dans un fichier texte ... C'est urgent pour un test.

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
program deuxordre;
var a,b,c:real;
    x1,x2,delta:real;
    i:integer;
begin
for i:=1 to 4 do
writeln('');
writeln('       r‚solution de l''‚quation de 2‚me ordre');
for i:=1 to 3 do
writeln('');
writeln('donnez la valeur de a');
readln(a);
writeln('donnez la valeur de b');
readln(b);
writeln('donnez la valeur de c');
readln(c);
delta:=(b*b)-(4*a*c);
writeln('delta=',delta);
if delta<0 then
writeln('pas de racine r‚elles');
if delta=0 then
x1:=(-b)/(2*a);
writeln('il y a une racine double');
if delta>0 then
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a);
writeln('il y a 2 racines distin‚s');
writeln('x1=',x1);
writeln('x2=',x2);
for i:=1 to 3 do
writeln(' ');
writeln('voullez vous continue o/n ?');
end.

[krachik]

Bonjour

Comme tu tiens à afficher x1 et x2 dans un fichier texte, il te reste qu'à le faire , à savoir comment écrire dans un fichier texte (information que tu peux trouver dans la FAQ)

Chose intéressante qui m'a attiré, à la fin de code

Code :

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

writeln('voullez vous continue o/n ?');

A quoi te sert cette instruction?

[EpiTouille]

Pour enregistrer le réponse dans un fichier texte, il faut que tu déclare une variable de type Text

Code :

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

 f : text

après tu doit l'ouvrir, si il n'existe pas, c'est l'instruction Rewrite(f), sinon pour l'ouvrir en mode ajout/lecture, c'est reset(f);

Code :

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

 rewrite(f);

Après pour écrire dedans tu utilise Writeln ou write, ça dépend si tu veut un retour chariot à la fin de la ligne

Code :

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

 Writeln(f,'Ceci est écrit dans le fichier');

et pour le lire, c'est pareil avec Readln ou read

Avec la commande Reset, le curseur est placé au début du fichier

code démo :

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
 
 
Program demo;
 
uses crt;
 
var
   f : Text;
   MaLigne : string;
begin
 
   {écriture}
   assign(f,'c:\test.txt'); //Assigner F au nom du fichier
   rewrite(f);
   Writeln(f,'Une ligne à écrire');
   close(f);
 
   {Lecture}
   reset(f);
   Readln(f,MaLigne);
   Writeln('Le contenu du fichier est ',MaLigne);
   readln;
   close(f);
 
end.

Tu ne dois JAMAIS oublier de fermer le fichier, sinon tu auras des soucis

writeln('voullez vous continue o/n ?');

Pas très utile à vrai dire

En général ce que je fais moi, c'est que je fais une variables de type boolean et une boucle repeat until

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
 
 
program demo;
 
uses crt;
 
var e: char;
     continue : boolean;
 
begin
  repeat
     writeln('Voulez vous recommencer o/n ?');
     repeat
        e := readkey;
     until upcase(e) in ['O','N'];
     case upcase(e) of
         'O' : Continue := true; // l'utilisateur veut continuer
         'N' : continue := false; // Il ne veut pas continuer
      end;
   until not continue; 
end.

Equation du deuxième ordre ? J'ai toujours appelé ça équation du second degré ou de degré 2