|
program ex4_complexe;
type
complexe = record
re, im: real;
end;
var
a, b, c: 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 : 5 : 0, ' + i * ', c.im : 5 : 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 - http://www.Software-DS.com');
writeln('Complexe a:');
saisir(a);
writeln('Complexe b:');
saisir(b);
multiplication(a, b, c);
writeln('multiplication des deux complexes: ');
afficher(c);
addition(a, b, c);
writeln('Addition des deux complexes: ');
afficher(c);
writeln;
writeln('©2001 All Rights Reserved to
www.Software-DS.com');
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
16/10/01 }
end.
|
