1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
| program calc_complexe;
uses crt;
procedure transformation_complexe (var a,b,r,t : real; choix2 : integer);
begin
writeln;
writeln('Menu');
writeln('****');
writeln;
writeln('1- forme cartesienne -> forme polaire');
writeln('2- forme polaire -> forme cartesienne');
writeln('-------------------------------------');
writeln;
readln(choix2);
case choix2 of
1 : begin
writeln('Veuillez entrer les valeurs de a et de b (complexe de la forme a+b.i)');
writeln('Valeur de a = ');
read(a);
writeln('Valeur de b = ');
read(b);
writeln;
r:=sqrt(sqr(a)+sqr(b));
t:=arctan(b/a);
writeln('Voici le complexe sous la forme polaire');
writeln(r,'cis',t);
writeln;
end;
2 : begin
writeln('Veuillez entrer les valeurs de r et de t (complexe de la forme rcis(t))');
writeln('Valeur de r = ');
read(r);
writeln('Valeur de t (en radian)= ');
read(t);
writeln;
b:=r*sin(t);
a:=r*cos(t);
writeln('Voici le complexe sous la forme cartesienne');
writeln(a,'+',b,'i');
writeln;
end;
end;
end;
procedure multiplication (var a1,b1,a2,b2,x,y : real);
begin
writeln;
writeln('Veuillez entrer les deux complexes a multiplier');
writeln('Complexe nø1 : a = ');
read(a1);
writeln('Complexe nø1 : b = ');
read(b1);
writeln;
writeln('Complexe nø2 : a = ');
read(a2);
writeln('Complexe nø2 : b = ');
read(b2);
writeln;
x:=(a1*a2-b1*b2);
y:=(a1*b2+a2*b1);
writeln('Resultat = ',x,'+',y,'i');
end;
procedure somme (var a1,a2,b1,b2,x,y : real);
begin
writeln;
writeln('Veuillez entrer les deux complexes a multiplier');
writeln('Complexe nø1 : a = ');
read(a1);
writeln('Complexe nø1 : b = ');
read(b1);
writeln;
writeln('Complexe nø2 : a = ');
read(a2);
writeln('Complexe nø2 : b = ');
read(b2);
writeln;
x:=(a1+a2);
y:=(b1+b2);
writeln('Resultat = ',x,'+',y,'i');
end;
procedure menu_calculatrice (var choix3 : integer);
begin
writeln;
writeln('Menu');
writeln('****');
writeln;
writeln(' 1 - Multiplication');
writeln(' 2 - Somme');
readln(choix3);
case choix3 of
1 : multiplication(a1,b1,a2,b2,x,y);
2 : somme(a1,b1,a2,b2,x,y);
end;
end;
procedure menu (var choix : integer);
begin
writeln;
writeln('Menu');
writeln('****');
writeln;
writeln('1- Changer la forme d ecriture d un complexe');
writeln('2- Effectuer une operation sur deux complexes');
writeln;
readln(choix);
case choix of
1 : transformation_complexe (a,b,r,t,choix2);
2 : menu_calculatrice (choix3);
end;
end;
begin
menu(choix);
end;
end. |
