IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Turbo Pascal Discussion :

Afficher des résultats dans un fichier texte


Sujet :

Turbo Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Inscrit en
    Janvier 2011
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Janvier 2011
    Messages : 1
    Par défaut Afficher des résultats dans un fichier texte
    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.

  2. #2
    Membre Expert
    Avatar de krachik
    Inscrit en
    Décembre 2004
    Messages
    1 964
    Détails du profil
    Informations forums :
    Inscription : Décembre 2004
    Messages : 1 964
    Par défaut
    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?

  3. #3
    Membre éclairé
    Avatar de EpiTouille
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2009
    Messages
    372
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2009
    Messages : 372
    Par défaut
    Pour enregistrer le réponse dans un fichier texte, il faut que tu déclare une variable de type 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);

    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

Discussions similaires

  1. Réponses: 8
    Dernier message: 19/12/2014, 14h12
  2. stockage des résultats dans un fichier texte
    Par nizar_triki dans le forum C++
    Réponses: 4
    Dernier message: 16/04/2012, 15h24
  3. Ecrire & Lire des énumérés dans un fichier Texte
    Par WebPac dans le forum Langage
    Réponses: 8
    Dernier message: 18/06/2008, 10h04
  4. Réponses: 3
    Dernier message: 27/06/2005, 16h24
  5. Réponses: 3
    Dernier message: 22/02/2004, 20h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo