Révision Informatique

Quiz algo : Révisez votre bac en jouant , débloquez tous les niveaux , et prouvez que vous êtes le meilleur.

Commencez le jeu

Quiz algo !

Donner le code d'accés fourni à la fin du stage précédent

Code d'accès

Fin Stage1 !

Votre score est ---

Code Stage2

5482

Fin Stage2 !

Votre score est ---

Code Stage3

2089

Stage 1 !

Les constantes et les variables:
Pour stocker les informations, on a besoin d'un conteneur, qui peut avoir une valeur constante ou un contenu variable.
- Une constante est caractérisée par son nom(identificateur unique) et sa valeur.
- Une variable est carctérisée par son nom, son type et son contenu.

Votre score est % - /

Questions:

1. Déclaration d'une constante pi de valeur 3.14 en Pascal est :

Const pi:3.14 ;
Const pi=3.14 ;
Const pi:3,14 ;

2. Déclarer en Pascal , 2 variables: n de type entier et x de type réel:

var
n,x: integer;
var
n: integer;
x: real;
var
n: real;
x: integer;

Identificateur d'une variable
-Le langage Pascal ne distingue pas les majuscules et les minuscules dans un identificateur. Exp: Bac, BAC et bac désigne la même variable.
-Un identificateur est composé d'une suite de lettres (non accentuées) et de chiffres. Le premier caractère doit être une lettre. Le symbole '_' est aussi considéré comme une lettre.

Questions:

3. choisir les identificateurs valides dans le langage PASCAL :

Code Produit
Code+Produit
Code_Produit
3etapes
Capacité
_Capacite
CodeProduit

4. Choisir les déclarations valide d'un entier intitulé num:

var num:integer;
var NUM:integer;
var Num:integer;

Soit l'algorithme suivant:
0) Début test
1) Ecrire("Donner le rayon: "),Lire(r)
2) Ecrire(2*pi*r)
3) Fin test

Questions:

5. Donner le T.D.O (Tableau de déclaration des objets) correspondant:

Objet	Type/Nature	Rôle
Pi r	réel constante	Réel à saisir Constante

Objet	Type/Nature	Rôle
Pi r	Constante=3.14 Réel	Constante rayon à saisir

6. L'affectation (←) en Pascal est:

7.La déclaration correcte(ordre const,var):

const pi=3.14;
var n:integer;
var n:integer;
const pi=3.14;

Permutation de deux variables:
On veut permuter le contenu de deux variables X et Y, avec ou sans variable intermédiaire (ou temporaire ou auxiliaire).
Remarque: Réaliser la permutation comme indique le schéma ou avec toute autre méthode valable.

Questions:

8. Choisir les algorithmes permettant de faire la permutation:

1)x←15
2)y←10
3)x←y
4)y←x
1)x←15
2)y←10
3)z←x
4)x←y
5)y←z
1)x← 15
2)y← 10
3)x← x+y
4)y← x-y
5)x← x-y
1)x← 15
2)y← 10
3)y← x+y
4)x← y-x
5)y← y-x
1)x←15
2)y←10
3)z←y
4)y←x
5)x←z

Le type permet : de déterminer l’ensemble des valeurs qui peuvent être affectées à la variable, fixer implicitement l’ensemble des opérateurs valides sur ses variables.
Le type Entier :
INTEGER -32768..32767 Signé 16bits, SHORTINT-128..127 Signé 8bits, LONGINT -2147483648.. 2147483647 Signé 32 bits,
BYTE 0..255 Non signé 8 bits, WORD 0..65535 Non signé 16 bits

Opérateurs arithmétiques : + , - , * , div et mod
div: donne le quotient dans la division entière. Exp:23 div 7=3
mod: donne le reste de la division entière. Exp:23 mod 7=2

Questions:

9. Evaluer l'expression suivante :

((58 DIV 7) MOD 2) + 5 =

10. Choisir les affectations valides pour la déclaration : var n:integer;

n:=3.5 ;
n:=20;
n:=5 div 2;
n:='Bonjour';
n:=40000;

Le type réel : REAL
Le réel 2.6 10² s'affiche en Pascal au format 2.6 E +02 avec 2.6:mantisse, 02:exposant, E:10^...
Opérateurs arithmétiques: +, - ,*, / (division réelle)
Déclaration: var x,y : real;
Les Fonctions arithmétiques standards:

Nom	En pascal	paramètre	Sortie	Exemples
Tronc(x)	TRUNC(x)	Entier/Réel	Entier	Tronc (3.14) = 3
ENT(x)	INT(x)	Entier/Réel	Réel	ENT(3.14)= 3.00
Arrondi (x)	ROUND(x)	Entier/Réel	Entier	Arrondi(9.49)= 9 Arrondi(10.5)=11
Carré(x)	SQR(x)	Entier/Réel	Entier/Réel	Carré (5) = 25

Questions:

11.Choisir la valeur correspondante à 3.25400000000000E+0001 :

32.54
3.254
0.3254
325.4

12. Evaluer l'expression suivante :

sqr( trunc(20.5) - round(18.45) )=

Le type réel : Les Fonctions arithmétiques standards:(suite)

Nom	En pascal	paramètre	Sortie	Exemples
RacineCarré (x)	SQRT(x)	Entier/Réel	Réel	RacineCarré (2)=1.4142
Abs (x)	ABS (x)	Entier/Réel	Entier/Réel	Abs(-20) = 20
Aléa	RANDOM	-	Réel	0..1(exlu)
Aléa(n)	RANDOM(n)	Entier	Entier	entre 0 et n-1

Questions:

13. Int(12.5) correspond à:

12
12.50
12.00
13

14. Evaluer l'expression suivante :

sqrt( abs( trunc(-1.25)*round(3.75) ) )=

15. Pour générer un nombre au hasard entre 0 et 10 est :

Aléa(9)
Aléa(10)
Aléa(11)
Aléa(0,10)

Questions:

16. Soit les instructions Pascal suivantes :
Randomize; x:=Random;
Que contient x ? :

Un réel entre 0 et 1(exclu)
Un réel entre 0 et 1(inclu)
par exemple 0.5248
par exemple 1

17. Pour générer un nombre au hasard x entre 5 et 20 :

random;
x:=random(15);
random;
x:=random(15)+5;
random;
x:=5+random(16);

18. Pour supprimer les chiffres après la virgule de 82.55 pour avoir 82.00 ou 82 on peut utiliser:

TRUNC(82.55)
INT(82.55)
ROUND(82.55)
ABS(82.55)

Type booléen :
Domaine de valeur : deux valeurs logiques VRAI et FAUX (true, false)
Opérateurs logiques sur les booléen :NON (NOT),ET (AND), OU (OR), Ouex (XOR)
AND : il suffit un opérande =Faux ==> le résultat est Faux
OR : il suffit un opérande =Vrai ==> le résultat est Vrai
XOR: comme OR (saufe cas vrai Xor Vrai donne Faux)
Ordre de priorité : Entre parenthèses prioritaires, Non > ET > ou=ouex

Questions:

19. Déclarer deux variables booléennes flag et test :

var
flag,test:boolean;
var
flag :boolean;
test:boolean;
var
flag,test:booleen;

20. L'expression (10 >5) OU (20 > 40) ET (3 < 2) donne :

Vrai OU Faux=Vrai
Vrai ET Faux=Faux

Type caractère :
Une variable de type caractère contient un seul caractère. L'espace est un caractère blanc. "0"<"1"<... "A" < "B"<... "a"< "b"<...
Opérateurs <, >, =, <=,>=,<> (différent)
Exemple : "A"<"B" donne Vrai (code ASCII A=65 < code ASCII B=66)
Les Fonctions prédéfinies pour les caractères:

Nom	En pascal	Exemples
ORD (c)	ORD (c)	ORD ("a") = 97
CHR (x)	CHR (x)	CHR (97)= a
SUCC (c)	SUCC (c)	SUCC ("C") =D
PRED (c)	PRED (c)	PRED ("C") = B
MAJUS (c)	UPCASE (c)	MAJUS ("d")=D

Questions:

21. Déclarer une variable CH de type caractère :

var ch:char;
var ch :chr;
var CH:char;

22. Evaluer l'expression suivante :

SUCC(CHR(ORD("B")+1)=

Type chaîne de caractères :
composée d'une suite de n caractères.0≤ n ≤ 255. Si n=0 on dit que la chaîne est vide. CH ←"Tunisie" c←ch[1] ch[7]← "a" donc ch="Tunisia"
"Said"<"Saleh" Comparaison caractère par caractère
Les Fonctions prédéfinies pour les chaîne:

Nom	En pascal	Exemples
Long(ch)	LENGTH(ch)	L←long("Bonjour") 7
Pos(ch1,ch2))	POS(ch1,ch2)	X← Pos ("ac" ,"Bac") 2
Sous_chaine(ch,p,nbc)	COPY(ch,p,nbc)	X←Sous_chaîne("salut",2,3) alu
Concat(ch1,…,chn)	Concat(ch1,…,chn)	h←concat("10",":","20") 10:20

Questions:

23. Déclarer une variable CH de type chaîne de caractère :

var
ch:char;
var
ch :string;
var
CH:string[10];

24. Evaluer l'expression suivante :

sous_chaine ("Tunisie",pos("B","Bonjour"),long("matin"))=

Les procédures prédéfinies pour les chaîne:

Nom	En pascal	Exemples
Efface(ch,p,n)	DELETE(ch,p,n)	Efface ("CD ROM",3,4) CD
Insère(ch1,ch2,p)	INSERT(ch1,ch2,p)	Insère("ur","cos",3) cours
Convch(d,ch1)	STR(d ,ch1 )	Convch (2020 , ch) ch="2020"
Valeur(ch,d,erreur)	VAL(ch,d,erreur)	Valeur("20/20",d,e) d=0 e=3 Valeur("10.50",d,e) d=10.50 e =0

Questions:

25. Pour ch="information" l'expression Efface(ch,3,6) donne :

ch='inion'
ch='format'
ch='info'

26. Evaluer l'expression suivante :

"Bon" + "jour"=

27. valeur("138.25",d,e) donne:

(pour d entier) d=0 e=4
(pour d réel) d=138.25 e=0

Stage 2 !

Évaluation d'une expression :
Il y a un ordre de priorité dans l’évaluation des expressions :
1-Contenu de parenthèses
2-Les fonctions
3-Operateur unaire (-, Non)
4-Opérateurs multiplicatif (*,/,div,mod,Et)
5-Opérateur additif (+,-,ou)
6-Operateurs relationnels (<, >, <=, >=, =, <>)
Remarque: si deux opérateurs ont la même priorité, le calcul se fera de gauche à droite.

Questions:

1. Evaluer l'expression suivante :

12+4*5-2*(4 mod 3+5) =

2. Evaluer l'expression suivante :

10 mod 10- 3 =

3. Aléa(50)<0 ET arrondi(5.25)=5 OU Majus("A")<>"A" vaut:

Vrai
Faux

Le tableau: un tableau est une structure de données permettant de ranger un nombre fini d’éléments de même type et selon une disposition bien définie. Soit T un tableau T de 5 entiers au maximum

Questions:

4. Déclarer T dans le T.D.O:

Objet	Type/Nature	Rôle
T	Tableau de 5 entiers

Objet	Type/Nature	Rôle
T	5 entiers

5.La déclaration correcte de T en Pascal:

Var
T: array[5];
Var
T: array[1..5]of integer;
Var
T: array[1...5]of integer;

6.La déclaration de T utilisant le type en Pascal:

Type
Tab=array[1..5] of integer;
Var T:Tab;
Var T:Tab;
type
Tab=array[1..5] of integer;

Soit la séquence suivante :
1)T[1]←30
2)T[2] ← 7
3)T[3] ← T[1] div T[2]
4)T[4] ← T[1]+T[3]*10

Questions:

7. Choisir La(les) déclaration(s) correcte(s) de T:

T.D.nouveaux types:

Type
TAB=Tableau de 4 entiers

T.D.O

Objet	Type/Nature	Rôle
T	TAB

T.D.O

Objet	Type/Nature	Rôle
T	tableau de 4 entiers

8. L'affichage de la case 3 de T :

Ecrire(T[3]) donne :

9. L'affichage de la case 4 de T :

Ecrire(T[4]) donne :

Extrait (1) Bac 2013:
Cocher la ou les bonnes réponses.

Questions:

10. Soit l’instruction C ←Sous_chaîne("Baccalauréat",4,1)

Elle permet d’affecter le caractère "c" à la variable C.
La variable C doit être déclarée de type caractère.
La variable C doit être déclarée de type Chaîne.

11. L’instruction X ← Aléatoire(6) + 4 permet d’affecter à la variable X une valeur aléatoire de l’intervalle

[4,6]
[4,10]
[4,9]

12. L’instruction R ←Arrondi (12.5) permet d’affecter à la variable R

L’entier 12
L’entier 13
Le réel 13.0

13. Soit l’affectation suivante C ← Majus(" ?").

Elle permet d’affecter le caractère C le caractère "?" en gras.
Elle permet d’affecter le caractère C le caractère "?".
La variable C doit être de type Caractère.

Extrait (2) Bac 2013:
Soit la partie déclarative suivante d’un programme Pascal :
Program Composer ;
Const mot1= 'informatique' ; mot2= '3D' ;
Var mot3, mot4 :string ; n, m : integer ;
En utilisant des fonctions et des procédures prédéfinies, donner les instructions Pascal permettant de réaliser les traitements suivants :

Questions:

Compléter les noms des fonctions ou des procédures prédéfinies (en minuscule)

14. A partir de la constante mot1, mettre dans la variable mot3 le terme "format":

mot3 :=

(mot1,3,6) ;

15. A partir de mot3 et mot2, mettre dans la variable mot4 le terme "format 3D":

mot4 :=

(mot3,' ',mot2) ;

16. Mettre dans n la longueur de la chaîne mot4:

n :=

(mot4) ;

17. A partir de la constante mot2, mettre dans m la valeur 3:

(copy(mot2,1,1),m,n) ;

Questions:

18. Une affectation permet d'affecter une valeur à une variable : Variable ← Valeur , choisir les affectations valides pour x et y deux entiers:

x:=3;
x:=y;
x:=(y div 2)+5;
x:=10/2;

19. Pour afficher x et y on utilise Ecrire(x) puis Ecrire(y) choisir les instructions permettant d'afficher x puis dans une nouvelle ligne y :

write(x);
write(y);
writeln(x);
write(y);
write(x);
writeln(y);
writeln(x);
writeln(y);

20. Pour lire x à partir du clavier, on utilise Lire(x) , on peut aussi ajouter un message avec Ecrire("Donner x=") puis lire(x), choisr les traductions en Pascal valides :

write('Donner x=');
readln(x);
writeln('Donner x=');
readln(x);
readln('Donner x=',x);

21. Pour afficher ch:='Bac'; précédée de 3 espaces "⎵ ⎵ ⎵Bac":

Writeln(ch:3);
Writeln(ch:6);
Writeln(ch:4);

22. Pour afficher x:=15.25; sur 8 cases avec 3 chiffres après la virgule"⎵ ⎵15.250":

Writeln(x:8:3);
Writeln(x:3:8);
Writeln(x:8,3);

Questions:

23. On veut décomposer un entier n composé de 3 chiffres en unités (u), dizaines (d) et centaines (c),si n=452 donne c=4 d=5 u=2 ,choisir les instructions valides :

c ← n div 100
d ← (n mod 100) div 10
u ← n mod 10
c ← n div 100
d ← (n mod 100) div 10
u ← (n mod 100) mod 10
convch(n,ch)
valeur(ch[1],c,e)
valeur(ch[2],d,e)
valeur(ch[3],u,e)

24. Pour un entier n de 3 chiffres, choisir le T.D.O pour les instructions suivantes:
convch(n,ch)
valeur(ch[1],c,e)
valeur(ch[2],d,e)
valeur(ch[3],u,e)

Objet	Type/Nature	Rôle
ch,e n,c,d,u	Chaîne entier

Objet	Type/Nature	Rôle
ch n,c,d,u,e	Chaîne entier

25. Pour une durée T en secondes, déterminer le nombre heures, minutes et secondes:

h:=T div 3600;
m:=(T mod 3600) div 60;
s:=T mod 60;
h:=T div 3600;
m:=(T mod 3600) mod 60;
s:=T div 60;
h:=T div 3600;
m:=(T div 3600) div 60;
s:=T div 60;

Questions:

26. choisir les instructions permettant la vérification de la parité d'un entier n :

message ← "impair"
si n mod 2= 0 alors message ← "pair" finsi
Ecrire(message)
si n mod 2=0 alors Ecrire("pair")
sinon Ecrire("impair")
Finsi

27. Choisir l'instruction syntaxiquement correcte:

if a mod 2=0 then writeln('pair');
else writeln('impair');
if a mod 2<>0 then writeln('impair')
else writeln('pair');

28. Afficher une décision suivant une moyenne (moy): ADMIS Si moy >=10
CONTROLE Si 9<=moy <10 REDOUBLE Si moy<9

if moy>=10 then
write('ADMIS')
else if moy>=9 then
write('CONTROLE')
else write('REDOUBLE');
if moy<9 then
write('REDOUBLE')
else if moy<10 then
write('CONTROLE')
else write('ADMIS');
if moy<9 then
write('REDOUBLE');
if (moy>=9) and (moy<10)
then write('CONTROLE');
if moy>=10 then write('ADMIS');

29. Choisir les instructions syntaxiquement correctes:

if x>=0 then
z:=sqrt(x); write(z)
else write('Erreur');
ok:= n mod 2=0;
if true then write('Vrai');

Questions:

30. Vérifier la nature d’une lettre c (consonne ou voyelle):

writeln('Taper une letter : ') ;readln(c) ;
if upcase(c) in ['A', 'E','I','O','U','Y']
then writeln('voyelle')
else writeln('consonne') ;
writeln('Taper une letter : ') ;readln(c) ;
if upcase(c) in [a, e,i,o,u,y]
then writeln('voyelle')
else writeln('consonne') ;

31. Vérifier la nature d’une lettre c (chiffre,lettre ou symbole):

Si majus(c) dans ["A".."Z"] alors
Ecrire("Lettre")
sinon si c dans ["0".."9"] alors
Ecrire("Chiffre")
sinon Ecrire("Symbole")
FinSi
FinSi
Si c dans ["0".."9"] alors
Ecrire("Chiffre")
sinon si majus(c) dans ["A".."Z"] alors
Ecrire("Lettre")
sinon Ecrire("Symbole")
FinSi
FinSi

32. Vérifier si une année a est bissextile : • divisibles par 4 mais non divisibles par 100 OU • divisibles par 400:

if (a mod 400 =0) OR ((a mod 4 =0)
AND(a mod 100 <>0))
then writeln(a,' est bissextile')
else writeln(a,' est non bissextile');
if (a mod 4 =0) OR (a mod 100 <>0)
AND (a mod 400 =0)
then writeln(a,' est bissextile')
else writeln(a,' est non bissextile');

Questions:

33.Choisir la ou les instructions permettant d'afficher les chiffres de 1 à 10

for i :=1 to 10 do
writeln(i);
for i :=1 to 10 do
writeln('i');
for i :=1 downto 10 do
write(i);

34. Afficher les lettres majuscules de A à K:

for i:='A' to 'K' do
write(i);
for i:=ord('A') to ord('K') do
writeln(chr(i));
for i:=ord('A') to ord('K') do
writeln(i);

35. Choisir le T.D.O correspondant aux instructions suivantes:
for i:='A' to 'K' do write(i);

Objet	Type/Nature	Rôle
i	entier

Objet	Type/Nature	Rôle
i	caractère

Objet	Type/Nature	Rôle
i	Chaîne

36. Quel est le rôle de cet algorithme:
1) [S ← 0] pour i de 1 à 5 faire
   Ecrire("Donner un réel : "), lire(x)
   S ← S + x
   FinPour
2) Ecrire( S)

La somme de 5 réels
la somme de s réels
la somme de 4 réels

Questions:

37.Choisir les instructions permettant de calculer la somme S de 5 réels

s:=0 ;
for i:=1 to 5 do
begin
write(' Donner un réel : ') ; readln(x);
s:= s + x ;
end ;
s:=0 ;
for i:=1 to 5 do
write(' Donner un réel : ') ; readln(x);
s:= s + x ;
end ;

38. choisir l'algorithme permettant de faire le factoriel :

1) Ecrire("Donner un entier") , lire(n)
2) [f← 1] pour i de 2 à n faire
f ← f * i
FinPour
3) Ecrire(''Le factoriel est '', f)
1) Ecrire ("donner x= "), lire(x)
2) Ecrire ('donner n= '), lire(n)
3) [p←1] pour i de 1 à n faire
p←p*x
FinPour

39. Choisir les instructions permettant d'inverser une chaine CH:(exp: inverse de "Bac" est "caB")

ch2 ←""
pour i de long(ch) à 1 (pas=-1) faire
ch2←ch2+ch[i]
finPour
pour i de 1 à (long(ch) div 2) faire
aux← ch[i]
ch[i]←ch[long(ch)-i+1]
ch[long(ch)-i+1] ←aux
finPour

Questions:

40.On peut utiliser les instructions suivantes pour :
write(' Donner un mot='); readln(ch);
write(' Donner une lettre='); readln(L);
nb:=0;
for i:=1 to length(ch) do
if ch[i]=L then nb := nb+1;

Calculer le nombre d'occurence De L dans CH
Vérifier l'existance de L dans ch

41. Choisir les instructions permettant de remplir un tableau :

1) Ecrire("Donner la taille =") , lire(n)
2) pour i de 1 à n faire
Ecrire("T[",i,"]=") , lire(T[i])
FinPour
1) Ecrire("Donner la taille =") , lire(n)
2) pour i de 1 à n faire
Ecrire("T[",i,"]=", T[i])
FinPour

42. Soit les instructions suivantes :
m:=T[1] ;
for i:=2 to n do if t[i]>m then m:=T[i] ;

m est le minimum de T
m est le maximum de T

Stage 3 !

Questions:

1. Ajouter un contrôle de saisie sur un entier n pour qu'il soit dans [1..20] :

Répéter
Ecrire("Donner un entier : ")
Lire(n)
jusqu'à n dans [1..20]
Tant que NON(n dans [1..20]) faire
Ecrire("Donner un entier : ")
Lire(n)
FinTantque

2. Ajouter un contrôle de saisie sur un réel x pour qu'il soit dans [1..5] :

Repeat
write('Donner un entier : ') ;
readln(x);
until x in [1..5];
Repeat
write('Donner un entier : ') ;
readln(x);
until (x>=1) and (x<=5);

3. Calculer le pgcd de 2 entiers a et b par la méthode de différence.choisir les instructions syntaxiquement correctes:

while a<>b do
if a>b then a:=a-b
else b:=b-a ;
repeat
if a>b then a:=a-b;
if b>a then b:=b-a ;
until (a=b) ;
while a<>b do
begin if a>b then a:=a-b
else b:=b-a ;
end;

Questions:

4. Choisir le programme permettant de vérifier si un mot est palindrôme (se lit dans les deux sens).Exemples : ELLE, RADAR, REVER, DVD,... :

Program plindrome ;
uses wincrt ;
var i:integer ;
mot,pal : string ;
begin
repeat
Write('Donner un mot ') ;
Readln(mot) ;
until length(mot)in [2..10]; ;
pal:= '' ;
For i:=length(mot) DownTo 1 do
pal:=pal+mot[i] ;
if (pal=mot) then
writeln('palindrome ')
else
writeln(' Non palindrome ') ;
End.
program palindrome2;
uses wincrt;
var
mot:String;
L, i:integer;
Begin
Repeat
write('Donner un mot: ');
readln(mot);
until length(mot)in [2..10];
L:=length(mot);
i:=1;
while (mot[i]=mot[L-i+1]) and (i<>L div 2) do
i:=i+1;
if (mot[i]=mot[L-i+1]) then
writeln('Palindrome')
else writeln('Non palindrome');
end.

Questions:

5. Choisir le programme permettant de vérifier si un entier est premier ou non . (Un entier autre que 1 est premier s'il n'est divisible que par 1 et par lui même.):

program premier;
uses wincrt;
var i,nb,n : integer;
begin write('n='); readln(n);
nb:=0; for i:=1 to n do
if n mod i=0 then nb:=nb+1;
if nb=2 then writeln(n, ' est premier' )
else writeln(n, ' n''est pas premier' );
end.
program premier2;
uses wincrt;
var i,nb,n : integer;
begin write('n='); readln(n);
nb:=0; for i:=1 to n do
if n mod i<>0 then nb:=nb+1;
if nb=2 then writeln(n, ' est premier' )
else writeln(n, ' n''est pas premier' );
end.

6. Que permet de faire le programme suivant: program premier3;
uses wincrt;
var i,nb,j : integer;
begin
for j:=1 to 100 do
begin nb:=0; for i:=1 to j do
if j mod i=0 then nb:=nb+1;
if nb=2 then write(j:3);
end ; end.

Afficher 3 entiers premiers
Afficher les entiers premiers entre 1 et 100

A suivre ...

Les sous-programmes

Program permutation ;
Uses wincrt ;
Var a,b :integer;
Procedure saisir( VAR a : integer ; VAR b :integer);
Begin
repeat
writeln(‘a=’) ; readln(a);
writeln(‘b=’) ; readln(b);
until (a>0) and (b>0);
End ;

Procedure permuter(VAR x :integer;VAR y:integer);
Var c: integer;
Begin
c:=x; x:=y; y:=c;
End ;
Begin
Saisir(a,b);
Writeln(‘a=’,a,’b=’,b);
End.

Questions:

7. Soit le programme suivant:

program premier;
uses wincrt;
var i,nb,n : integer;
begin write('n='); readln(n);
nb:=0; for i:=1 to n do
if n mod i=0 then nb:=nb+1;
if nb=2 then writeln(n, ' est premier' )
else writeln(n, ' n''est pas premier' );
end.
program premier2;
uses wincrt;
var i,nb,n : integer;
begin write('n='); readln(n);
nb:=0; for i:=1 to n do
if n mod i<>0 then nb:=nb+1;
if nb=2 then writeln(n, ' est premier' )
else writeln(n, ' n''est pas premier' );
end.

Afficher 3 entiers premiers
Afficher les entiers premiers entre 1 et 100

Questions:

1. Ajouter un contrôle de saisie sur un entier n pour qu'il soit dans [1..20] :

Répéter
Ecrire("Donner un entier : ")
Lire(n)
jusqu'à n dans [1..20]
Tant que NON(n dans [1..20]) faire
Ecrire("Donner un entier : ")
Lire(n)
FinTantque

2. Ajouter un contrôle de saisie sur un réel x pour qu'il soit dans [1..5] :

Repeat
write('Donner un entier : ') ;
readln(x);
until x in [1..5];
Repeat
write('Donner un entier : ') ;
readln(x);
until (x>=1) and (x<=5);

3. Calculer le pgcd de 2 entiers a et b par la méthode de différence.choisir les instructions syntaxiquement correctes:

while a<>b do
if a>b then a:=a-b
else b:=b-a ;
repeat
if a>b then a:=a-b;
if b>a then b:=b-a ;
until (a=b) ;
while a<>b do
begin if a>b then a:=a-b
else b:=b-a ;
end;

Révision Info

Bac Scientifiques

1-Méthodes de recherche
2-Méthodes de tri
3-Sous-programmes
4-Collecte de documents
5-Quiz Algo

____________________________________________

Programmes officiels

Manuels scolaires

Outils pédagogiques