Embed Size (px)
Citation preview
Suite Thue_MorseAlgorithme pascal
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
FUNCTION Thue_Morse (N Integer A Char ) String VAR Ch String i j L Integer BeginCh = A For i = 1 To N DoBeginj = 1 RepeatIf Ch [j] = 0 Then Insert (1 Ch j+1)Else Insert (0 Ch j+1)L = Length (Ch) j = j+ 2Until j gt l EndThue_Morse = Ch End
Triangle pascal
0) Proceacutedure Triangle_pascal (N Entier VAR MAT Matrice)1) MAT [11] larr 12) MAT [21] larr 1
PROCEDURE Triangle_pascal (N Integer VAR MAT Matrice)VARligne colonne Integer
Resumer sur les algorithme recurent
3) MAT [22] larr 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] larr 1MAT [Ligne Ligne] larr 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] larr MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_pascal
BEGINMAT [11] = 1 MAT [21] = 1 4INFINFRC0004 Page 11MAT [22] = 1 For ligne = 3 To N DoBeginMAT [ligne 1] = 1MAT [Ligne Ligne] = 1For colonne = 2 To ligne -1 DoBeginMAT [ligne colonne] = MAT [ligne - 1 colonne] + MAT [ligne -1 colonne - 1]End End END
La suite de Fibonacci
0) Fonction Fibo_nacci(N Entier) Entier Long1) U1 larr 12) U2 larr 13) Si N le 2 Alors Fibo larr 1SinonPour i de 3 agrave N FaireFibo larr U1 + U2U1 larr U2U2 larr Fibo
FUNCTION Fibo_Iterative (N Integer ) LongInt VARU1 U2 i Integer Fibo LongInt BEGINU1 = 1 U2 = 1 If N lt= 2 Then Fibo = 1
Fin PourFin Si5) Fibo_Iteacuterative larr Fibo6) Fin Fibo_Iteacuterative
ElseFor i = 3 To N DoBeginFibo = U1 + U2 U1 = U2 U2 = Fibo End Fibo_Iterative = Fibo END
Le nombre dor0) Fonction Nombre_Or (preacutecision Reacuteel) Reacuteel 1) U[1]larr 1 U[2] larr 2 i larr 22) Reacutepeacuteteri larr i + 1U[i] larr U[i-1] + U[i-2]V[i] larr U[i] U[i-1]Jusquagrave ABS(V[i] - V[i-1]) lt preacutecision 3) Nombre_Or larr V[i]4) Fin Nombre_Or
Remplir la partie supeacuterieur droite de la matrice M drsquoordre n
i
La partie coloreacutee sera rempli
0) Def proc remplir (var M mat n entier)
1) pour i de 1 agrave n fairepour j de i agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie gauche infeacuterieur de la matrice M drsquoordre n
i
0) Def proc remplir (var m mat n entier)1) pour i de 1 agrave n fairepour j de 1 agrave i fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairepour j de i+1 agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 2 agrave n fairepour j de 1 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
3) MAT [22] larr 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] larr 1MAT [Ligne Ligne] larr 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] larr MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_pascal
BEGINMAT [11] = 1 MAT [21] = 1 4INFINFRC0004 Page 11MAT [22] = 1 For ligne = 3 To N DoBeginMAT [ligne 1] = 1MAT [Ligne Ligne] = 1For colonne = 2 To ligne -1 DoBeginMAT [ligne colonne] = MAT [ligne - 1 colonne] + MAT [ligne -1 colonne - 1]End End END
La suite de Fibonacci
0) Fonction Fibo_nacci(N Entier) Entier Long1) U1 larr 12) U2 larr 13) Si N le 2 Alors Fibo larr 1SinonPour i de 3 agrave N FaireFibo larr U1 + U2U1 larr U2U2 larr Fibo
FUNCTION Fibo_Iterative (N Integer ) LongInt VARU1 U2 i Integer Fibo LongInt BEGINU1 = 1 U2 = 1 If N lt= 2 Then Fibo = 1
Fin PourFin Si5) Fibo_Iteacuterative larr Fibo6) Fin Fibo_Iteacuterative
ElseFor i = 3 To N DoBeginFibo = U1 + U2 U1 = U2 U2 = Fibo End Fibo_Iterative = Fibo END
Le nombre dor0) Fonction Nombre_Or (preacutecision Reacuteel) Reacuteel 1) U[1]larr 1 U[2] larr 2 i larr 22) Reacutepeacuteteri larr i + 1U[i] larr U[i-1] + U[i-2]V[i] larr U[i] U[i-1]Jusquagrave ABS(V[i] - V[i-1]) lt preacutecision 3) Nombre_Or larr V[i]4) Fin Nombre_Or
Remplir la partie supeacuterieur droite de la matrice M drsquoordre n
i
La partie coloreacutee sera rempli
0) Def proc remplir (var M mat n entier)
1) pour i de 1 agrave n fairepour j de i agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie gauche infeacuterieur de la matrice M drsquoordre n
i
0) Def proc remplir (var m mat n entier)1) pour i de 1 agrave n fairepour j de 1 agrave i fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairepour j de i+1 agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 2 agrave n fairepour j de 1 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
Fin PourFin Si5) Fibo_Iteacuterative larr Fibo6) Fin Fibo_Iteacuterative
ElseFor i = 3 To N DoBeginFibo = U1 + U2 U1 = U2 U2 = Fibo End Fibo_Iterative = Fibo END
Le nombre dor0) Fonction Nombre_Or (preacutecision Reacuteel) Reacuteel 1) U[1]larr 1 U[2] larr 2 i larr 22) Reacutepeacuteteri larr i + 1U[i] larr U[i-1] + U[i-2]V[i] larr U[i] U[i-1]Jusquagrave ABS(V[i] - V[i-1]) lt preacutecision 3) Nombre_Or larr V[i]4) Fin Nombre_Or
Remplir la partie supeacuterieur droite de la matrice M drsquoordre n
i
La partie coloreacutee sera rempli
0) Def proc remplir (var M mat n entier)
1) pour i de 1 agrave n fairepour j de i agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie gauche infeacuterieur de la matrice M drsquoordre n
i
0) Def proc remplir (var m mat n entier)1) pour i de 1 agrave n fairepour j de 1 agrave i fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairepour j de i+1 agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 2 agrave n fairepour j de 1 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
Remplir la partie supeacuterieur droite de la matrice M drsquoordre n
i
La partie coloreacutee sera rempli
0) Def proc remplir (var M mat n entier)
1) pour i de 1 agrave n fairepour j de i agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie gauche infeacuterieur de la matrice M drsquoordre n
i
0) Def proc remplir (var m mat n entier)1) pour i de 1 agrave n fairepour j de 1 agrave i fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairepour j de i+1 agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 2 agrave n fairepour j de 1 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
1) pour i de 1 agrave n fairepour j de i agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie gauche infeacuterieur de la matrice M drsquoordre n
i
0) Def proc remplir (var m mat n entier)1) pour i de 1 agrave n fairepour j de 1 agrave i fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairepour j de i+1 agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 2 agrave n fairepour j de 1 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairepour j de i+1 agrave n fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 2 agrave n fairepour j de 1 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
0) Def proc remplir (var M mat n entier)1) pour i de 2 agrave n fairepour j de 1 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee de la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
0) Def proc remplir (var M mat n entier)1) pour i de 3 agrave n-1 fairepour j de 2 agrave i-1 fairelire (M[ij])fin pourfin pour2) fin remplir
Remplir la partie coloreacutee da la matrice M
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
0) Def proc remplir (var M mat n entier)1) pour i de 1 agrave n fairelire (M[ii])fin pour2) fin remplir
Suite de Thue-Morse
0) Fonction Thue_Morse (N Entier A Caractegravere) Chaicircne1) CH larr A2) Pour i de 1 agrave N Fairej larr 1ReacutepeacuteterSi CH[j] = 0 Alors insegravere (1 CH j +1)
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
Sinon insegravere (0 CH j +1)Fin SiL larr Long (Ch)j larr j + 2Jusquagrave (j gt L)Fin Pour3) Thue_Morse larr Ch4) Fin Thue_Morse
Triangle pascal
0) Proceacutedure Triangle_iteacuteratif (N Entier VAR MAT Matrice)1) MAT [11] 1048773 12) MAT [21] 1048773 13) MAT [22] 1048773 14) Pour ligne de 3 agrave N FaireMAT [ligne 1] 1048773 1MAT [Ligne Ligne] 1048773 1Pour colonne de 2 agrave ligne -1 FaireMAT [ligne colonne] 1048773 MAT [ligne - 1 colonne] + MAT [ligne -1 colonne -1]Fin PourFin Pour5) Fin Triangle_iteacuteratif
![algorithme gmp[1]](https://img.pdfslide.fr/doc/110x75/5571fe7c49795991699b7dcb/algorithme-gmp1.jpg)
