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

Pascal Discussion :

[Débutant] Affichage d'équation


Sujet :

Pascal

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    67
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 67
    Par défaut [Débutant] Affichage d'équation
    Bonsoir chers amis
    Voilà j'ai essayé avec un programme de résoudre une équation. Le programme se compile normalement mais voilà, j'ai deux problèmes : si vous pouviez m'expliquer et me donner des idées.

    Alors le 1er c'est : en affichant l'équation, je ne sais pas comment faire pour afficher la puissance 2 sur le x c a d ===> X² . Il n'arrive pas à faire ça quand je mets puissance deux, il me dit "problem string" ou quelque chose comme ça

    Ma 2ème question : c'est en affichant les résultats, quand je mets des variables en integer, il me les affiche bien lol enfin sans virgule - oui ça je le sais - mais je préfère que de mettre real; quand je veux le résultat exact, il m'écrit beaucoup de 0 après le résultat normal et aussi des lettres à la fin. Pourquoi il me marque ça ?

    Ma 3ème question : c'est dans le cas où A=0 ou b=0, il ne m'affiche pas les résultats :s il se ferme rapidement :s je ne sais pas pourquoi.

    Voilà, merci d'avance pour vos réponses et je m'excuse si j'en demande trop !
    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
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    program Equation;
    var a,b,c,x:integer;
    y1,y2,z1,z2,y3,d:real;
    E:boolean;
    nom:string  ;
    car : char;
     
    begin
    repeat
    Writeln('');
    Writeln('');
    writeln('donner votre nom Merci') ;
    readln(nom);
    writeln('Bonjour  ',nom,' et bienvenu sur notre petit programme !!');
    writeln('=========Resolution de votre equation===========');
    writeln('donner le chiffre a de Votre equation  ');
    readln(a);
    writeln('donner le chiffre b de Votre equation  ');
    readln(b);
    writeln('donner le chiffre c de Votre equation  ');
    readln(c);
    writeln('Equation :',a,'X²+',b,'X+',c,'=0','');
    E:=(a)*x*x + (b)*x + (c) =0;
    if a=0 then
      begin
       z1:= -c div b ;
       writeln('l''equation est une equation de premier degres ');
       writeln(' la Solution ====>',z1);
        end
         else
           if b=0 then
            begin
            z2 := -c div x*x ;
            writeln('l''equation a une solution double ');
            writeln(' la Solution ====>',z2);
            readln;
            end
              else
              d:=(b*b)- 4*(a*c);
              writeln('delta =====>',d:5);
              if d>0 then
              begin
                y1:= -b- SQRT(d) / (2*a);
                y2:= -b+ sQRT(d) / (2*a);
                writeln('l''equation a deux solutions ');
                writeln('Sole 1 =======>',y1);
                writeln('Sole 2 =======>',y2);
              end
                Else
                    if (d=0) then
                    begin
                      y3:= -b div(2*a) ;
                      writeln('l''equation a une seule solution ',y3);
                    end
                        else
                         if (d<0) then
              writeln('l''equation n''a pas de solution');
     
              writeln('Taper sur Entrer');
              readln;
        writeln('voulez vous ressayer?');
        writeln('>>N<<=========>NO, Press any key =======>Yes');
         readln(car);
         Writeln('aurevoir  ',nom);
         until car = 'n';
    end.
    Bon voilà mon code :
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [Débutant] Affichage d'un video avi sur le web
    Par oumani dans le forum Balisage (X)HTML et validation W3C
    Réponses: 11
    Dernier message: 06/02/2006, 13h47
  2. [Débutant] affichage opengl dans un TPanel
    Par minnit_s dans le forum OpenGL
    Réponses: 1
    Dernier message: 01/01/2006, 23h03
  3. [Débutant] Affichage d'une grille
    Par Mathieu.J dans le forum OpenGL
    Réponses: 25
    Dernier message: 13/06/2004, 19h38
  4. [QuickReport][Débutant] Affichage d'un graphique
    Par poufouille dans le forum Bases de données
    Réponses: 3
    Dernier message: 23/03/2004, 09h03
  5. [Débutant] Affichage impossible en local
    Par Alberto dans le forum ASP
    Réponses: 2
    Dernier message: 29/11/2003, 16h45

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