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

Exercice 4ab

program ex4_ab;
type
complexe = record
re, im: real;
end;
var
a, b, c, d, e, f: complexe;

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

procedure afficher (c: complexe);
begin
writeln(c.re : 3 : 0, ' + i * ', c.im : 3 : 0);
end;
{ Fin de 'afficher' }

procedure addition (a, b: complexe; var res: complexe);
begin
res.re := a.re + b.re;
res.im := a.im + b.im;
end;
{ Fin de 'addition' }

procedure multiplication (a, b: complexe; var res: complexe);
begin
res.re := a.re * b.re + a.im * b.im;
res.im := a.im * b.re - a.re * b.im;
end;
{ Fin de 'multiplication' }

begin
writeln('Exercice 4: Complexe http://www.Software-DS.com');
writeln('Complexe a:');
saisir(a);
writeln('Pensez a cliquer sur les pubs :-)');
writeln;
writeln('Complexe b:');
saisir(b);
write('a*(a*b+a*a+b*b)= ');
multiplication(a, b, c);
multiplication(a, a, d);
multiplication(b, b, e);
addition(c, d, f);
addition(f, e, c);
multiplication(a, c, b);
afficher(b);
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.00178 sec.
Recherche personnalisée
 

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