•   Ouvrir dans un nouvel onglet
•   Copier lien

cours

0

•   Ouvrir dans un nouvel onglet
•   Copier lien

Architecture d'un ordinateur

0

•   Ouvrir dans un nouvel onglet
•   Copier lien

v=False
while not(v):
n=int(input("donner un nombre positif strictement"))
v= n>0
s=0
for i in range (1,n):
if n % i ==0:
s=s i
if (s==n):
print (n,"parfait-")
else:
print(n,"pas parfait")

0

•   Ouvrir dans un nouvel onglet
•   Copier lien

Application : On se propose de calculer le PGCD de deux entiers A et B données, par la méthode des différences. Cette méthode consiste à remplacer A par A-B si A>B ou bien B par B-A si B>A, tant que AB. A l’égalité entre A et B le PGCD est trouvé (c’est la valeur de A ou de B). Effectuer l’analyse correspondante, en déduire l’algorithme et le traduire en pascal.

Ind. : PGCD (10, 6) = PGCD (4, 6) = PGCD (4, 2) = PGCD (2, 2) = 2

0/ début PGCD
1/ Lire (B)
2/ Lire (A)
3/ Tant Que (AB) faire
Si B> A alors
B ← B – A
Sinon
Afficher la suite Afficher la suite A ← A – B
FinSi
Fin Tant Que
4/ Ecrire ("le PGCD est :", A)
5/ Fin PGCD

Traduction Pascal

Program PGCD ;
Uses Wincrt ;
Var A, B :Integer ;
Begin
Readln(B) ;
Readln(A) ;
While (AB) Do
Begin
If B>A then
B := B – A
Else
A := A – B ;
End ;
Writeln ('le PGCD est : ', A) ;
End.

0

•   Ouvrir dans un nouvel onglet
•   Copier lien

Exemple d'algorithme du procédure remplir
0) Def proc remplir (var t : tab ; var n : entier)
1) répéter
Écrire (‘‘donner la taille du tableau’’)
lire(n)
Jusqu’à (n dans [5..50])

2) Pour i de 1 à n faire
Écrire (‘‘donner l’élément’’, i)
lire(t[i])
Fin pour
3) fin remplir

0

•   Ouvrir dans un nouvel onglet
•   Copier lien

série les boucles

0