hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
nombre complexe
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 21 Avr - 10:45 (2010)    Sujet du message: nombre complexe Répondre en citant

PublicitéSupprimer les publicités ?
produit de deux nombres complexes saisis




program produit_complexe;
uses wincrt;
             {***  déclaration des variable  ****}
VAR z1,z2,z,a3,b3,c:string;             {z1 contient le 1er nbre complexe
                                                 z2 contient le 2éme nbre complexe
                                                a3 la partie réelle du produit
                                                b3 la partie imaginaire du produit }
 
   a1,a2,b1,b2,a,b:real;             {a1 contient la partie réelle du produit
                                              a2 contient la partie imaginaire du produit}
  e,i:integer;
 
BEGIN
 
             {**** la saisie des deux nombres complexes ****}
writeln('Entrer le 1er nombre complexe:'); Readln(z1);
writeln('Entrer le 2éme nombre complexe:'); Readln(z2);
 
             {**** extraction de a1 de la chaîne z1 ****}
val(z1,a1,i);                {i contient la position du caractère qui a généré l'erreur}
c:=copy(z1,1,i-1);
val(c,a1,e);
           {****  extraction de b1 de la chaîne z1 ****}
c:=copy(z1,i+1,length(z1)-i-1);
val(c,b1,e);
if z1='-'then b1:=-b1;
            {**** extraction de a2 de la chaîne z2 ****}
val(z2,a2,i);              [i]{i contient la position du caractère qui a généré l'erreur}

c:=copy(z2,1,i-1);
val(c,a2,e);
           {**** extraction de b2 de la chaine z2 ****}
c:=copy(z2,i+1,length(z2)-i-1);
val(c,b2,e);
if z2[i]='-'then b2:=-b2;
            {**** calcul du produit ****}
a:= a1*a2 - b1*b2;
b:= a1*b2 + a2*b1;
str(a:0:2,a3);
str(b:0:2,b3);
if (a=0)and (b=0) then z:= '0' else
if (a=0)and (b<>0) then z:= b3+'i' else
if (a<>0)and (b=0) then z:= a3 else
if b>0 then z:= a3+'+'+b3+'i'
else z:= a3+b3+'i';
{**** affichage du résultat ****}
Writeln ('le produit est:' , z);
 
END.
_________________
Cordialement


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mer 21 Avr - 18:34 (2010)    Sujet du message: nombre complexe Répondre en citant

Excellent travail merci pour ce partage  Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:33 (2016)    Sujet du message: nombre complexe

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation