Forum ada95000 Dernière connexion : 18/06/2025 à 15:29
Fin de session : 18/06/2025 à 15:39

Vous n'êtes pas connecté [Connexion - Inscription]
Liste des membres   Rechercher   FAQ   Stats   Last Posts   Chatterbox Retour vers ada95000
  Forum ada95000 » Ada 95 » Cours » Exo 10: Création de paquetages (Operations Complexes) Go Bottom
Version imprimable | Envoyer à un ami | S'abonner | Ajouter aux Favoris Nouveau SujetNouveau sondageRépondre
   « Sujet précédent | Sujet suivant » 
Auteur: Sujet: Exo 10: Création de paquetages (Operations Complexes)   ( Réponses: 1 | Vues: 668 )
ftbass
Administrator
StaffStaffStaffStaffStaffStaffStaffStaffStaff
 
images/avatars/WC3HumanOp1.gif
 
Messages: 72
Inscrit(e) le: 27/02/2004
Déconnecté(e)
Publié le 12/03/2004 à 21:40 Reply With Quote
Exo 10: Création de paquetages (Operations Complexes)
Création du paquetage OperationsComplexes, afin de pouvoir additionner, soustraire, multiplier, et diviser des complexes...

Fichier OperationsComplexes.ads
(Spécifications)

code:
package OperationsComplexes is

Type Complexe is record
  re : float;
  im : float;
end record;
 
function "+"(c1, c2 : in Complexe) return Complexe;
function "-"(c1, c2 : in Complexe) return Complexe;
function "*"(c1, c2 : in Complexe) return Complexe;
function "/"(c1, c2 : in Complexe) return Complexe;

procedure Put(c1 : in Complexe);

end OperationsComplexes;




Fichier  OperationsComplexes.adb
(Corp)

code:
with text_io; use text_io;
with Ada.Text_IO, Ada.Float_Text_IO;use Ada.Text_IO, Ada.Float_Text_IO;

package body OperationsComplexes is

function "+"(c1, c2 : in Complexe) return Complexe is

cr : Complexe;

begin
  cr.re := c1.re + c2 .re;
  cr.im := c1.im + c2.im;
  return cr;
end "+";

function "-"(c1, c2 : in Complexe) return Complexe is

cr : Complexe;

begin
  cr.re := c1.re - c2 .re;
  cr.im := c1.im - c2.im;
  return cr;
end "-";

function "*"(c1, c2 : in Complexe) return Complexe is

cr : Complexe;

begin
  cr.re := (c1.re * c2.re) - (c1.im * c2.im);
  cr.im := (c1.re * c2.im) + (c2.re * c1.im);
  return cr;
end "*";

function "/"(c1, c2 : in Complexe) return Complexe is

cr : Complexe;

begin
  cr.re := ((c1.re * c2.re) + (c1.im * c2.im)) / ((c2.re * c2.re) + (c2.im * c2.im));
  cr.im := ((c2.re * c1.im) - (c1.re * c2.im)) / ((c2.re * c2.re) + (c2.im * c2.im));
  return cr;
end "/";

procedure Put(c1 : in Complexe) is

begin
  put(c1.re); put(" ");
  if c1.im < 0.0 then
     put("-"); put(-c1.im); put(" i");
  else
     put("+"); put(c1.im); put(" i");
  end if;
end Put;



Et le petit programme qui va tester tout ca:

code:
with text_io; use text_io;
with Ada.Text_IO, Ada.Float_Text_IO;use Ada.Text_IO, Ada.Float_Text_IO;
with OperationsComplexes; use OperationsComplexes;

procedure test is

c1, c2, cr : complexe;

begin
  c1.re := 1.0;
  c1.im := 2.0;
  c2.re := 3.0;
  c2.im := 4.0;
  cr := c1 + c2;
  put(cr);
  new_line;
  cr := c1 - c2;
  put(cr);
  new_line;
  cr := c1 * c2;
  put(cr);
  new_line;
  cr := c1 / c2;
  put(cr);
  new_line;
end test;


[Edité le 14/03/2004 à 17:15 par ftbass]
Go Top #11 Go Bottom
View ftbass's ProfileE-Mail ftbassVisit ftbass's HomepageView All Posts by ftbassU2U Member
Yossep
VIP
MembreMembreMembreMembre
 
 
Messages: 10
Inscrit(e) le: 31/05/2020
Déconnecté(e)
cool2.gif Publié le 01/06/2020 à 11:57 Reply With Quote
RE : Exo 10: Création de paquetages (Operations Complexes)
Code NombresComplexes.ads

quote:
package NombresComplexes is

  type Complexe is private;
  type Tampon_Complexe is private;
  type ptr_Complexe is access Complexe;
  type Operator is private;
 
  Erreur_C : exception;
 
  -- Methode qui s'applique a un complexe
  function InitComplexe return ptr_Complexe;
  procedure afficheComplexe(c : In Complexe);
 
  -- Methodes qui s'appliquent au tampon
  function Est_il_vide(tp : In Tampon_Complexe) return Boolean;
  procedure Charger(c1 : In Complexe; c2 : In Complexe; c3 : In Integer);
  procedure Dispatch(tp : In Tampon_Complexe);
 
  --Methodes qui s'appliquent au complexe
  function "+"(c1, c2 : Complexe) return Complexe;
  function "-"(c1, c2 : Complexe) return Complexe;
  function "*"(c1, c2 : Complexe) return Complexe;
  function "/"(c1, c2 : Complexe) return Complexe;
 
 
  --Partie invisible au client
 
private
 
  type Complexe is
     record
        re : float := 0.0;
        img : float := 0.0;
     end record;
 
  type Operator is new integer range 1..4;
 
  type Tampon_Complexe is
     record
        Element1 : Complexe;
        Element2 : Complexe;
        Element3 : Operator;
     end record;
 

end NombresComplexes;


Code NombresComplexes.adb


quote:
With Ada.Float_Text_IO, Ada.Text_IO;
package body NombresComplexes is

  use Ada.Float_Text_IO, Ada.Text_IO;
  package Operator_IO is new Enumeration_IO(Operator);
  use Operator_IO;
 
  --- Fonction Initialisation d'un complexe ----------
  function InitComplexe return ptr_Complexe is
     c : Complexe;
     ptr : ptr_Complexe;
  begin
     
     ptr := new Complexe;
     
     Put("Re: ");get(c.re);Skip_Line;
     Put("Img: ");get(c.img);Skip_Line;
     
     ptr.all := c;
     
     return ptr;
     
  end InitComplexe;
 
  --------------------------
 
  procedure afficheComplexe(c: In Complexe) is
  begin
     Put("z = ");put(c.re, Exp => 0, Aft => 0,Fore => 1);
     put(" + ");put(c.img, Exp => 0, Aft => 0,Fore => 1);Put("i");
     new_line;
  end afficheComplexe;
  ------------------------
 
  --- Fonction pour gerer le tampon --------------
  function Est_il_vide(tp : In Tampon_Complexe) return Boolean is
  begin
     if (tp.Element1.re = 0.0 Or tp.Element2.re = 0.0) then
        return true ;
     else
        return false;
     end if;
  end Est_il_vide;
 
  ----------------------
 
  procedure Charger(c1 : In Complexe; c2 : In Complexe; c3 : In Integer) is
     tp : Tampon_Complexe;
  begin
     tp.Element1 := c1;
     tp.Element2 := c2;
     tp.Element3 := Operator(c3);
     Dispatch(tp);
  end Charger;
 
  -----------------------------
 
  procedure Dispatch(tp : In Tampon_Complexe) is
     cr : Complexe;
  begin
      if Est_il_vide(tp) then
        raise
          Erreur_C;
     else
        case tp.Element3 is
        when 1 =>
           cr := tp.Element1 + tp.Element2;
           afficheComplexe(cr);
        when 2 =>
           cr := tp.Element1 - tp.Element2;
           afficheComplexe(cr);
        when 3 =>
           cr := tp.Element1 * tp.Element2;
           afficheComplexe(cr);
        when 4 =>
           cr := tp.Element1 / tp.Element2;
           afficheComplexe(cr);
        when others =>
           Put_Line(" Mauvais choix !");
           raise
             Erreur_C;
        end case;
     end if;
     
  end Dispatch;
 
  ---------------------------------------
 
  function "+"(c1, c2 : Complexe) return Complexe is
     cr : Complexe;
  begin
     cr.re := c1.re + c2.re;
     cr.img := c1.img + c2.img;
     return cr;  
  end "+";
  ------------------------------
 
  function "-"(c1, c2 : Complexe) return Complexe is
     cr : Complexe;
  begin
     cr.re := c1.re - c2.re;
     cr.img := c1.img - c2.img;
     return cr;
  end "-";
 
  -----------------------------
  function "*"(c1, c2 : Complexe) return Complexe is
     cr : Complexe;
  begin
     cr.re := (c1.re * c2.re) - (c1.img * c2.img);
     cr.img := (c1.re * c2.img) + (c2.re * c1.img);
     return cr;
  end "*";
 
  ---------------------------
 
  function "/"(c1, c2 : Complexe) return Complexe is
     cr : Complexe;
  begin
     cr.re := ((c1.re * c2.re) + (c1.img * c2.img)) / ((c2.re * c2.re)+(c2.img * c2.img));
     cr.img := ((c1.re * c1.img) - (c1.re * c2.img)) / ((c2.re * c2.re)+(c2.img * c2.img));
     return cr;
  end "/";
 

end NombresComplexes;




Fichier main.adb

quote:
With Ada.Text_IO, Ada.Integer_Text_IO, NombresComplexes;

procedure Main is
  use Ada.Text_IO, Ada.Integer_Text_IO, NombresComplexes;

  ptrc1 : Ptr_Complexe;  -- Allocation d'un pointeur sur complexe pour accéder au contenu privé
                         -- des variables c1, c2
  c1, c2 : Complexe;
  c3 : Integer;

begin

  Put_Line("Operations sur les nombres complexes ");
  New_Line;
  Put_Line("Veillez saisir deux nombres complexes svp !");


  ptrc1 := InitComplexe;
  New_Line;
  c1 := ptrc1.all;

  ptrc1 := InitComplexe;
  New_Line;
  c2 := ptrc1.all;

  Put_Line("Choix de l'opération :");
  Put_Line(" '+'  [1]");
  Put_Line(" '-'  [2]");
  Put_Line(" '*'  [3]");
  Put_Line(" '/'  [4]");
  New_Line;

  put(">");get(c3);

  Charger(c1, c2, c3);


end Main;




Merci pour vos commentaires et conseils.
Go Top #105 Go Bottom
View Yossep's ProfileE-Mail YossepView All Posts by YossepU2U Member
   « Sujet précédent | Sujet suivant » 
Nouveau SujetNouveau sondageRépondre

  Forum ada95000 » Ada 95 » Cours » Exo 10: Création de paquetages (Operations Complexes) Go Top
10.3.122.74 15:29 - 18 Juin 2025 10.3.122.74
[ 0.3458369 secondes | Effacer le cookie | 18 requêtes ]
Oxygen v1.0.11 © 2002  |  Oxygen WebSite © 2002