Procedimiento crearComplejo(E v1:real, E v2:real, S x:tipoComplejo);
{Asignar valores v1 y v2 a las partes real e imaginaría de x}
principio
x.parteReal:=v1;
x.parteImaginaria:=v2;
fin;
Procedimiento sumarComplejos(E x:tipoComplejo, E y:tipoComplejo, S z:tipoComplejo);
{Asignar a la z la suma de complejos x e y}
principio
z.parteReal:=x.parteReal+y.parteReal;
z.parteImaginaria:=x.parteImaginaria+y.parteImaginaria
fin
Procedimiento multiplicarComplejos(E x:tipoComplejo, E y:tipoComplejo, S z:tipoComplejo);
{Asignar a la z el producto de los complejos x e y}
principio
z.parteReal:=x.parteReal*y.parteReal – x.parteImaginaria*y.parteImaginaria
z.parteImaginaria:=x.parteReal*y.parteImaginaria + x.parteImaginaria*y.parteReal
fin
0 comments:
Publicar un comentario