1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
uses crt;
PROCEDURE polcart;
VAR e,r,a,b:real;{déclaration des variables utilisées}
BEGIN
WRITELN('entrer le rayon'); write('r='); readln(r);{permet d'entrer le rayon}
WRITELN('entrer argument'); write('téta='); readln(e);{permet d'entrer l'argument}
a:=cos(e)*r;{calcul de la partie réelle}
b:=sin(e)*r;{calcul de la partie imaginaire}
WRITELN('forme polaire:',r,'exp(i',e,')');{affichage de la forme polaire}
READLN;{permet de faire une pause}
WRITELN('forme cartésienne:',a,'+ i',b);{affichage de la forme cartésienne}
READLN;{permet de faire une pause}
END;{fin de la procédure}
BEGIN{demarre le programme}
polcart;{appelle la procédure}
END.{fin du programme} |
Partager