Augmentation
: Prompt X, Y
: Disp(1+Y/100)X

Calcul de B
: Prompt A, X, Y
: Disp « B= », Y-AX

Devoir
: Prompt X
: For (I, 1, 24)
: (1/2)X+10→X
: Disp X
: End
Devoir 2
: Prompt A
: For (I,1,63)
: 0.99A-5→A
: Disp A
: End

Euclide
: Prompt A, B
: 0→ N
: While B ≠0
: N + 1 → N
: partEnt (A/B) → Q
: A-B*Q→R
: B→A
: R→B
: End
: Disp “PGCD=”, A, “N=”, N

45p124
: For (X, -5, 5, 1)
: X^3→A
: If A≤B
: Then
: Disp “X”, X
: Pause
: End (*2)

Ex02
: 0→ S
: O→ N
: While S≤220
: N+ 1 →N
: N+S→S
: Disp N, S
: End

Ex03
: 20→X
: 0→C
: While X≥0.1
: 1/5X →X
: C+1→C
: Disp “X”, X, “C”, C
: Pause
: End

Ex05
: 0→S
: For (N,6,251,1)
: S+N→S
: End
: Disp S

Ex06
: 250→ X
: For (C, 1,18)
: 1.0275X+250→X
: Disp X
: End

Fonc :
: Prompt X
: 1→Y
: For (I,1,4)
: X*Y→X
: End
: Disp Y

Fonction
: Prompt X,Y
: If Y1(X)=Y
: Then
: Disp « M(X,Y)appCF »
: Else
: Disp “Non”

Image
: Prompt X
: For (Y1(X)
: X≥-10 et X≤10
: Then
: Disp « Y1(X)= »

Image2
: Prompt X,P
: For (C,1,P)
: (X-5)/(X-1)→X
: End
: Disp X
KrParfait
: Prompt X
: If partDéc(√(X))=0
: Then
: Disp “Parfait”, √(X)
Milieu
: Input “XA?”,P
: Input “XB?”, Q
: (P+Q)/2→T
: Disp “Abscisse=”,T
: Input « YA ? »,R
: Input « YB ? »,S
: (R+S)/2→U
: Disp “Ordonnée”,U

Pythagore
: Prompt A,B
: A2 + B2 → E
: √(E)→C
: Disp C

Rectangle
: For (X,-10,10,1)
: Disp X
: Disp 2X^2+1
: Pause
: End

Reduction
: Prompt X,Y
: Disp (1-Y/100)X

Syracuse
: Prompt X
: 0→C
: While X ≠1
: C+1→C
: If partDéc(X/2)=0
: Then
:X/2→X
: Else
: 3X+1→X
: End
: Disp X,C
: End

Temps
: Prompt V,D
: D/V→T
: Disp « T