
Si c'est ce que tu veux dire, il n'y a que 2 tailles différentes.
Il y a effectivement une différence si tu mets ou non le -1.
: Text(-1,0,0,"X1=(-",B,"+sqrt(",D,"/(2*",A,")")
1 : ClrHome
2 : Disp "AX^2+BX+C = 0"
3 : Prompt A
4 : If A = 0
5 : Then
6 : Disp "IMPOSSIBLE"
7 : Stop
8 : End
9 : Prompt B,C
10 : ClrHome
11 : Disp "D = B^2-4AC"
12 : (B^2)-(4AC) - D
13 : Disp " "
14 : Disp "Delta="
15 : Disp D
16 : Disp " "
17 : If D0
18 : Then
19 : Disp "2 SOLUTIONS"
20 : Output(1,1," // effacer le : done.
21 : Disp " " // sautez une ligne
22 : Pause
23 : ClrHome
24 : Disp "X1=(-B+√D)/(2A)
25 : Disp " "
26 : Disp "ET"
27 : Disp " "
28 : Disp "X2=(-B-√D)/(2A)
29 : Pause
30 : (-B+√D)/(2A) - I
31 : (-B-√D)/(2A) - J
32 : ClrDraw
33 : AxesOff
34 : Text (-1,0,0,"X1="
35 : Text (-1,9,0,"(-",B,"+sqrt(",D,"/(2*",A,")")
36 : Text (-1,26,0,"X1=",I)
37 : Pause
38 : Text (-1,0,0,"X2="
39 : Text (-1,9,0,"(-",B,"-sqrt(",D,"/(2*",A,")")
40 : Text (-1,26,0,"X2=",J)
41 : End
42 :
43 : If D0
44 : Then
45 : Disp "0 SOLUTION."
46 : End
47 :
48 : If D=0
49 : Then
50 : Disp "1 SOLUTION"
51 : Disp "DOUBLE"
52 : Disp " "
53 : OutPut (1,1,"
54 : Pause
55 : ClrHome
56 : Disp "X=(-B)/(2A)"
57 : Pause
58 : (-B)/(2*A) - K
59 : ClrDraw
60 : AxesOff
61 : Text (-1,0,0,"X=(-",B,"/(2*",A,")")
62 : Text (-1,0,0,"X=",K)
63 : End
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 7 invités