[LG]Nombres complexes et forme polaire

Version imprimable

bonjour.
je suis en école d'ingénieur ( pas d'informatique :( )
et dans le cadre de mes cours d'info, je dois réalisez un programme sur les nombres complexes.
celui ci doit convertit la forme polaire en forme cartésienne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 PROCEDURE polcart; VAR e,r,a,b:real; BEGIN WRITELN('entrer le rayon'); write('r='); readln(r); WRITELN('entrer arguement'); write('0='); readln(e); a:=cos(e)*r; b:=sin(e)*r; WRITELN('forme polaire:',r,'exp(i',e,')'); WRITELN('forme cart‚sienne:',a,'+ i',b); END.
comme vous pouvez le voir, c'est tout petit mais ça marche pas.
pascal ne veut pas accepter le "." à la fin et veut mettre un ";".
je comprends pas.... :oops:

si vous pouviez m'aider, je vous en serais trés reconnaisant.

ps:si vous connaissez en moyen plus simple pour entrer des nombres complexes dans pascal, je suis preneur.

merci d'avance

13/03/2005, 19h49
Giovanny Temgoua

Salut!

J'ai ajouté les balises CODE pour rendre ton code clair, pense y à l'avenir :wink:

Le programme tel que tu nous le montres est le programme complet :? ?
Si oui, saches alors voici le sqelette d'un programme

Citation:

program nom_programme
uses
const
type
procedure
var...
begin
(*code*)
end;

(*autant de procédures et/ou de fonctions que tu veux*)

var (*du programme principal*)
begin (*du programme principal*)
(*code*)
end. (*du programme principal Le seul end avec un point*)

Mets la ligne procedure **** en commentaire et ajoute

Code:

uses crt;

à la place puis recompile.

A+
13/03/2005, 20h01
Loceka
Comme le dis Kaiser, tu demandes à ton programme de créer une procédure, or une procédure n'a d'intérêt que si elle est utilisée dans le programme principal. Apparement, pour faire ce que tu veux faire tu n'as pas besoin de procédure, tu peux directement écrire ton code dans le programme principal.
Code:

1 2 3 begin 'ton code' end.
ou alors :
Code:

1 2 3 4 5 6 7 8 9 procédure 'nom' begin 'ton code' end; (* programme principal *) begin 'nom' end.
:wink:

Citation:

PROCEDURE polcart;

VAR e,r,a,b:real;

BEGIN

WRITELN('entrer le rayon'); write('r='); readln(r);
WRITELN('entrer arguement'); write('0='); readln(e);

a:=cos(e)*r;

b:=sin(e)*r;

WRITELN('forme polaire:',r,'exp(i',e,')');
WRITELN('forme cart‚sienne:',a,'+ i',b);

END.

Essaye plutot :

Code:

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}

Cordialement