fonction PPCM(a :entier ; b ;entier) :entier def PPCM(a,b) :
Début m=a
m←a while (m%b !=0) :
Tant que (m mod b≠0) faire m=m+a
m=m+a return m
fin tant que
retourner m
fin
fonction suite_fib(n:entier) :entier def suite_fib(n) :
début U1=1
U1←1 U2=1
U2←2 for i in range(3,n+1) :
Pour i de 3 à n faire U= U1+ U2
U←+U2+U1 U1= U2
U1←U2 U2= U
U2 ←U Return U
Fin pour
Retourner U
Fin
fonction nombre_or(eps:réel) :réel def nombre_or (eps) :
Début V1=1
V1←1 V= suite_fib(3)/ suite_fib(2)
V← suite_fib(3)/ suite_fib(2) i =4
i ←4 while (abs((V-V1)>eps) :
Tant que (abs(V-V1)>eps) faire V1=V
V1←V V=suite_fibo(i+1)/
V← suite_fibo(i+1)/suite_fibo(i) suite_fibo(i)
i ←i+1 i=i+1
fin tant que Return U
retourner V
fin
fonction Conv10_b(x,b :entier) :chaine def Conv10_b(x,b) :
Début V1=""
ch← "" while (x!=0) :
Tant que (x ≠0) faire if x %b >=10:
Si x mod b>=10 alors c=chr(55+ x% b)
c← chr(55+x mod b) else:
si non c=str(x%b)
c← convch(x mod b) ch=c+ch
fin si x=x //b
ch ←c+ch Return ch
x ← x div b
fin tant que
retourner ch
fin
Fonction Comb (n, p : Entier) : Réel
Début
Si (p = 0) ou (p = n) alors
retourner 1
Sinon
retourner Comb (n-1, p) + Comb (n-1, p-1) Fin Si
Fin
fonctionConvb10(ch :chaine,b :entier) :chaine def Convb10(ch,b) :
Dec← 0 Dec=0
Pour i de 0 a Long (Ch)-1 Faire for i in range(len(ch)) :
Si Ch[i] Dans ["A".."F"]Alors if ch[i] in "ABCDEF":
a ← Ord (Ch[i]) - 55 a=ord(ch[i])-55
Sinon else:
a ←Val (Ch[i]) a=int(ch[i])
FinSi
Dec ←Dec + a * Puiss (b, Long (Ch_) – i-1)
Dec=Dec+a*b**(len(ch)-i-1)
FinPour Return Dcc
Retourner Dec Fin
Proce/fon traitement (f : fiche) def traitement (f : fiche) :
Début ch= nom_logique.readline()
Lire ligne(f,ch) While ch != "" :
Tant que (ch != "") faire Traitement
Traitement ch = nom_logique.readline()
Lire ligne(f,ch)
Fin tant que
Fin
def traitement (f : fiche)
Fin_fichier = False
while not (Fin_fichier) :
try :
x = load (Nom_logique)
except :
Fin_fichier = True
Fonction Conv2_8 (Ch_Bin : Chaîne) : chaîne
Debut
Tant Que Long (Ch_Bin) Mod 3 ≠ 0 Faire
Ch_Bin ← "0" + Ch_Bin
Fin Tant Que
N ← Long (Ch_Bin) Div 3
Oct ← "",
L ← Long (Ch_Bin)
Pour i de 1 à N Faire
Ch1 ← Sous_chaîne (Ch_Bin, L-2, L+3)
A_oct ← 0
Pour j de 1 à 3 Faire
A←Valeur (ch1[j])
A_oct ← A_oct + a * FN Puiss_2 (3-j)
Fin pour
Ch2←Convch (A_oct)
Oct ← ch2 + Oct
L←L-3
FinPour
retourner Oct
Fin
Fonction Conv16_2 (CH_Hex : Chaîne) : Chaîne
CH_Bin ← ""
Pour i de 1 à Long (CH_Hex) Faire
CH_Bin ← CH_Bin + conv10_2 (CH_Hex[i])
Fin Pour
Tant que CH_Bin[1] = "0" Faire
Efface (CH_Bin,0,1)
Fin Tant Que
Retourner CH_Bin
Fin