Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 4 d

program complexe_d;
type
pcomplexe = ^complexe;
complexe = record
re, im: real;
end;
var
a, b, c, d: pcomplexe;

procedure saisir (k: pcomplexe);
var
i: real;
begin
writeln('Entrer la partie réelle du complexe:');
readln(i);
k^.re := i;
writeln('Entrer la partie imaginaire du complexe:');
readln(i);
k^.im := i;
end;
{ Fin de 'saisir' }

procedure afficher (k: pcomplexe);
begin
writeln(k^.re : 4 : 0, ' + i * ', k^.im : 4 : 0);
end;
{ Fin de 'afficher' }

function addition (m, n, k: pcomplexe): pcomplexe;
begin
k^.re := m^.re + n^.re;
k^.im := m^.im + n^.im;
addition := k;
end;
{ Fin de 'addition' }

function multiplication (m, n, k: pcomplexe): pcomplexe;
begin
k^.re := m^.re * n^.re + m^.im * n^.im;
k^.im := m^.im * n^.re - m^.re * n^.im;
multiplication := k;
end;
{ Fin de 'multiplication' }

begin
writeln('Exercice 4: pComplexe http://www.Software-DS.com');
writeln;
new(a);
new(b);
{ Allocation }
new(c);
new(d);

writeln('Complexe a:');
{ Saisie des donnees }
saisir(a);
writeln('Complexe b:');
saisir(b);
writeln;
writeln('Pensez a cliquer sur les Pubs');
writeln;
afficher(multiplication(a, addition(addition(multiplication(a, b, c), multiplication(a, a, d), c), multiplication(b, b, d), c), d));

dispose(a);
dispose(b);
{ Désallocation }
dispose(c);
dispose(d);
writeln;
writeln('©2001 All Rights Reserved to www.Software-DS.com');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 30/10/01 }
end.





Haut de la page - Page précédente - Page générée en 0.02708 sec.
Recherche personnalisée
 

1844515 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité