Bonjours à tous,
J'écris ce topic pour vous proposer des programmes sur les équations du seconde degré, sur les calcules d'incertitudes (c'est plutôt pour la physique), les simplification de fractions et racine carré, et enfin sur les suites pour calculer u(n), la valeur n, et la somme d'une suite.
Si vous avez des questions ou si vous trouvez des erreurs dans les programmes dites le moi
Prenez juste en compte les espaces que j'ai mis entre les guillemets, les autres espaces c'est juste pour aérer les lignes
Ma calculatrice est en anglais, donc il se peut que certaines fonctions n'aient pas le même nom
Vous trouverez en bas de page l'emplacement des fonctions
1. Calcul des solution et de delta d'une équation du second degré
: ClrHome
: Disp ''AX^2+BX+C = 0''
: Prompt A , B , C
: B^2-4*A*C→D
: Disp ''DELTA='' , D
: If D<0
: Then
: Disp ''S='' , (-B-i*racine(-D))/(2A)►Frac , (-B+i*racine(-D))/(2A)►Frac ---- en bleu c'est toute la racine carrée
: Else
: If D=0
: Then
: Disp ''S='' , (-B)/(2A)►Frac
: Else
: If D>0
: Then
: Disp ''S='' , (-B-racine(D))/(2A)►Frac , (-B+racine(D))/(2A)►Frac
: End
2. Calcul des incertitudes
: ClrHome
: Menu (''Menu'' , ''CALCULER'' , 1 , ''REDEFINIR L1'' , 2 , ''QUITTER'', 3)
: Lbl 2
: ClrHome
: {0}→L1 ---- le L1 est la liste 1, ça se trouve dans ''2nde'' ; ''1''
: Disp ''X VALEURS A''
: Input ''METTRE:'' , N
: 0→A
: 0→I
: Disp '' ''
: Disp ''VALEURS SONT:''
: While N>A
: A+1→A
: Input B
: I+1→I
: B→L1(I)
: End
: Goto 1
: Stop
: Lbl 1
: ClrHome
: 0→A
: 0→B
: For (I , 1 , N)
: L1(I)→A
: A+B→B
: End
: B/N→C
: 0→D
: 0→E
: For (I , 1 , N)
: (L1(I)-C)^2→D
: D+E→E
: End
: racine((E)/(N-1))→F
: Disp ''S-EXP='' , F ---- S-EXP représente l'écrart-type expérimental
: Disp ''--------''
: Pause
: (F)/(racine(N))→G
: Disp ''S='' , G ---- S représente l'incertitude-type
: Disp ''--------''
: Pause
: 2*G→H
: Disp ''DELTA-X='' , H ---- DELTA-X représente l'incertitude-type élargie
: Disp ''X='' , C ---- X est la moyenne des valeurs (sur copie, ça se note x= (X +- DELTA-X) unité
: Disp ''--------''
: Pause
: (H/C)*100→J
: Disp ''INCERT RELAT EN''
: Disp ''POURCENTAGE='' , J ---- c'est le pourcentage d'incertitude de DELTA-X et de X
: Pause
: Menu ('' '' , ''RECALCULER'' , 1 , ''REDEFINIR L1'' , 2 , ''QUITTER'' , 3)
: Lbl 3
: Stop
3. Simplifications de fractions et de racines carrées
: ClrHome
: Lbl M
: Menu (''SIMPLIFICATION'' , ''FRACTION'' , 1 , ''RACINE CARREE'' , 2 , ''QUITTER'' , 3)
: Lbl 1
: ClrHome
: Output (1 , 5 , ''FRACTION'')
: Disp '' '', '' ''
: Input ''X='' , A
: Disp '' ''
: Disp ''X SIMPLIFIEE:''
: Disp A►Frac
: Pause
: Menu ('' '' , ''REFAIRE'' , 1 , ''MENU'' , M , ''QUITTER'' , 3)
: Stop
: Lbl 2
: ClrHome
: Output (1 , 7 , ''RAC(X)'')
: Disp '' ''
: Input ''X='' , X
: If (iPart(racine(X))^2=X
: Then
: Output (4 , 1 , ''SIMPLIFIEE:'')
: Output (5 , 1 , racine(X))
: Else
: 2→A
: 1→B
: While A^2<X
: If X-A^2*(iPart(X/A^2))=0
: Then
: B*A→B
: X/A^2→X
: Else
: A+1→A
: End
: End
: B→Z
: 2→Y
: While B>=10
: Y+1→Y
: B/10→B
: End
: X→W
: Y+2→V
: V→U
: While X>=10
: U+1→U
: X/10→X
: End
: U+1→U
: abs(Z)→Z
: abs(W)→W
: If Z≠1
: Then
: Output (4 , 1 , ''SIMPLIFIEE:'')
: Output (5 , 1 , Z)
: Output (5 , Y , ''symbole racine carré'')
: Output (5 , V , W)
: Output (5 , U , '')'')
: Else
: Y-1→Y
: V-1→V
: U-1→U
: Output (4 , 1 , ''NE PEUT PAS ETRE'')
: Output (5 , 1 , ''SIMPLIFIEE:'')
: Output (6 , Y , ''symbole racine carré'') ---- il faut mettre le symbole du racine carré qui se trouve dans ''2nde'' ; ''x²''
: Output (6 , V , W)
: Output (6 , U , '')'')
: End
: End
: Pause
: Menu ('' '' , ''REFAIRE'' , 2 , ''MENU'' , M , ''QUITTER'' , 3)
: Stop
: Lbl 3
: Stop
4. Suites
Pour ce programme, il faut être en mode "Seq" (ou ''Suit'' en version française)
: ClrHome
: Lbl A
: Menu ( ''MENU SUITES'' , ''CALCUL DE u(n)'' , 1 , ''CALCUL DE n'' , 2 , ''CALCUL SOMME'' , 3 , ''QUITTER'' , Q)
: Lbl 3
: Lbl Y
: ClrHome
: Disp ''CALCUL SOMME''
: Disp '' ''
: Disp ''n VALEUR A''
: Disp ''ADITIONNER:''
: Input N
: 0→A
: 0→B
: For (I , 0 , N)
: u(I)→A ---- ce ''u'' se trouve dans ''2nde'' ; ''7''
: A+B→B
: End
: Disp ''Sn='', B
: Pause
: Menu ('' '' , ''REFAIRE'' , Y , ''MENU'' , A , ''QUITTER'' , Q)
: Stop
: Stop
: Lbl 1
: Lbl X
: ClrHome
: Disp ''CALCUL DE u(n)''
: Disp '' ''
: Disp ''n VALEUR:''
: Input N
: u(N)→A
: Disp ''u(n)='', A
: Pause
: Menu ('' '' , ''REFAIRE'' , X , ''MENU'' , A , ''QUITTER'' , Q)
: Stop
: Stop
: Lbl 2
: Lbl W
: ClrHome
: Disp ''CALCUL DE n''
: Disp '' ''
: Disp ''TROUVER LE RANG''
: Disp ''n A PARTIR''
: Disp ''DUQUEL un''
: Disp ''> = 0 >= = 1'' ---- laisser précisément 6 espaces entre ''> = 0'' et ''>= = 1'' --- ''>='' représente le signe supérieur ou égal
: Disp ''< = 2 <= = 3'' ---- aussi laisser 6 espaces --- ''<='' représente le signe inférieur ou égal
: Input Y
: Disp ''A LA VALEUR:''
: Input X
: If Y=0
: Then
: 0→N
: u(0)→U
: U→C
: While C<X
: N+1→N
: u(N)→C
: End
: Disp ''n='', N
: End
: If Y=1
: Then
: 0→N
: u(0)→U
: U→C
: While C<=X
: N+1→N
: u(N)→C
: End
: Disp ''n='', N
: End
: If Y=2
: Then
: 0→N
: u(0)→U
: U→C
: While C>X
: N+1→N
: u(N)→C
: End
: Disp ''n='', N
: End
: If Y=3
: Then
: 0→N
: u(0)→U
: U→C
: While C>=X
: N+1→N
: u(N)→C
: End
: Disp ''n='', N
: End
: Pause
: Menu ('' '' , ''REFAIRE'' , W , ''MENU'' , A , ''QUITTER'' , Q)
: Stop
: Stop
: Lbl Q
: Stop
Si vous ne savait pas où se trouvent certaines fonctions:
- ClrHome ---> ''prgm'' ; ''I/O'' ; ''8''
- i ---> ''2nde'' ; ''.''
- ►Frac ---> ''math'' ; ''MATH'' ; ''1''
- Menu( ---> ''prgm'' ; ''CTL'' ; ''C''
- Lbl ---> ''prgm'' ; ''CTL'' ; ''9''
- Goto ---> ''prgm'' ; ''CTL'' ; ''0''
- { ---> ''2nde'' ; ''(''
- L1 ---> ''2nde'' ; ''1''
- While ---> ''prgm'' ; ''CTL'' ; ''5''
- Pause ---> ''prgm'' ; ''CTL'' ; ''8''
- Output ---> ''prgm'' ; ''I/O'' ; ''6''
- iPart ---> ''math'' ; ''NUM'' ; ''3''
- u ---> ''2nde'' ; ''7''
- n ---> ''x,t,o,n'' => seulement en mode ''Seq''
- < ---> ''2nde'' ; ''math'' ; ''TEST''
-----