Algo.tn

☰ Pascal-Les sous programmes

Exercice 1:

Ecrire un programme qui permet de saisir deux entiers a et b >0 puis permuter leurs valeurs enfin les afficher.

Objet	Type/Nature	Rôle
a , b	Entier	entiers à saisir
Afficher, permuter, saisir	Procédures	Afficher, permuter et saisir ( a et b)

Objet	Type/Nature	Rôle
c	Entier	Variable intermédiaire

Exercice 2:

Écrire un programme qui permet de saisir deux entiers x et y <=9 puis calculer la puissance x^y enfin afficher le résultat.

Objet	Type/Nature	Rôle
x , y	Entier	entiers à saisir
P	entier	Puissance à calculer
Saisir	procédure	Saisir x et y
Puissance	fonction	Calculer la puissance p

Objet	Type/Nature	Rôle
m	Entier	Puissance à calculer
i	Entier	Compteur

Exercice 3:

Écrire un programme qui permet de saisir un entier n ( entre 2 et 20), Remplir un tableau T au hasard par n entiers de valeurs entre 0 et 100, Afficher les éléments de T enfin afficher le maximum de T

Analyse du programme principale:


Nom: Maximum
Résultat= Ecrire("Le maximum est =",max)
Max ← FN maxi(T,n)
Proc Afficher(T,n)
T=PROC Remplir(T,n)
n=PROC saisir(n)
Fin Maximum

T.D.de nouveaux Types (Tableau de déclaration nouveaux Types)

Type
TAB= tableau de 20 entiers

T.D.O Globaux (Tableau de déclaration des objets Globaux)

Objet	Type/Nature	Rôle
n max T Saisir Remplir Afficher Maxi	Entier entier TAB Procédure Procédure Procédure Fonction	Taille du tableau Maximum du tableau Tableau saisir n Remplir T Afficher T Calculer le maximum de T

Algorithme de la procédure Saisir:


0)DEF PROC Saisir(var n : entier) 
1)Répéter
	        Ecrire("n= ") , lire(n)
		Jusqu'a (n dans [2..20])
2)Fin saisir

Algorithme de la procédure Remplir:


0)DEF PROC Remplir(Var T:Tab, n : entier) 
1) pour i de 1 à n faire
	        T[i] ←Hasard(101)
		FinPour
2)Fin Remplir

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i	Entier	Compteur

Algorithme de la procédure Afficher:


0)DEF PROC Afficher( T:Tab, n : entier) 
1) pour i de 1 à n faire
	        Ecrire("T[",i,"]=",T[i])
		FinPour
2)Fin Afficher

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i	Entier	Compteur

Algorithme de la fonction Maxi:


0)DEF FN Maxi(T:tab, n:entier):entier
1) [ma ←T[1] ] pour i de 2 à n faire
   	 	si T[i]>ma alors ma ← T[i]
                 FinPour
2) maxi ← ma
3)Fin Maxi

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i ma	Entier Entier	Compteur maximum de T

Traduction en Pascal:


  Program maximum;
Uses Wincrt;
Type
   tab =  Array [1..20] Of Integer;
Var
   n,max:  Integer;
   t:  tab;

Procedure saisie (Var nb:Integer);
Begin
   Repeat
      write('donner un entier(entre 2 et 20):');
      Readln(nb);
   Until (nb>=2) And (nb<=20);
End;

Procedure remplit(Var tb:tab;nbr:Integer);
Var
   i:  Integer;
Begin
   For i:=1 To nbr Do
      Tb[i] := Random(101);
End;

Procedure Affiche(t:tab;n:Integer);
Var
   j:  Integer;
Begin
   For j:=1 To n Do
      Writeln('L''entier n°',j, 'est ',T[j]);
End;

Function maxi(t:tab;n:Integer):  Integer;
Var
   k,ma:  Integer;
Begin
   Ma := t[1];
   For k:=2 To n Do
      If T[k]>ma Then ma := T[k];
   maxi := ma;
End;
Begin
   saisie(n);
   Randomize;
   remplit(t,n);
   affiche(t,n);
   max := maxi(t,n);
   Writeln('le maximum est ',max);
End.

Exercice 4:

Écrire un programme qui permet de saisir n entre 2 et 5 puis remplit un tableau T par des valeurs au hasard entre 10 et 99 puis affiche le tableau en ordre inverse enfin calcul et affiche le nombre des entiers pairs dans T.

Exercice 5:

Écrire un programme qui permet de saisir n entre 3 et 7 puis de remplir un tableau T de taille n par des lettres minuscules au hasard puis affiche le tableau en ordre inverse enfin calcul et affiche le nombre des voyelles dans T.

Exercice 6:

Écrire un programme qui permet de saisir n (doit être n=2 ou n=3) puis de remplir 2 vecteur t1 et t2 de taille n, puis de calculer et d'afficher le produit scalaire de deux vecteurs, en fin afficher si ce deux vecteurs sont orthogonaux. On rappelle que : pour t1(x1,y1) et t2(x2,y2) est ps=x1*x2+y1*y2 (deux vecteur sont orthogonaux si leurs produit scalaire est égale à zéro)

Exercice 7:

Écrire un programme qui permet de remplir un tableau T de taille n par des entiers positifs, puis extraire les entiers pairs dans un tableau T1 et les entiers impaires dans un tableau T2 , enfin afficher les tableaux T1 et T2.

Analyse du programme principale:


NOM: Parité
Résultat= Proc Afficher(T2,n2)
Proc Afficher(T1,n1)
(T1,n1,T2,n2) = Proc Extraire(T,n,T1,n1,T2,n2)
(T,n)=Proc Saisir(T,n)
FIN Parité

T.D.de nouveaux Types (Tableau de déclaration nouveaux Types)

Type
TAB=Tableau de 10 entiers

T.D.O Globaux (Tableau de déclaration des objets Globaux)

Objet	Type/Nature	Rôle
T T1 T2 N N1 N2 Saisir Extraire Afficher	TAB TAB TAB Entier Entier Entier Procédure Procédure Procédure	Tableau à saisir Tableau des pairs Tableau des impairs Taille du tableau T Taille du tableau T1 Taille du tableau T2 Saisir T et n Extraire T1 et T2 Afficher un tableau

Algorithme de la procédure Saisir:


0) DEF PROC Saisir(VAR n:TAB, VAR n:entier)
1) Ecrire("Donner n: "), lire(nb)
2) Pour i de 1 à n faire
       Répéter
  Ecrire("Donner l’élément n°",i), lire(T[i])
       Jusqu’à
    FinPour
3) FIN saisir

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i	Entier	Compteur

Algorithme de la procédure Afficher:


0)DEF PROC Afficher( T:Tab, n : entier) 
1) pour i de 1 à n faire
	        Ecrire("T[",i,"]=",T[i])
		FinPour
2)Fin Afficher

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i	Entier	Compteur

Algorithme de la procédure extraire

       
0) DEF Proc Extraire(T:TAB, n:entier, T1:TAB,j:entier n,T2:TAB,k:entier)
1)  j←0
2) k←0
3) Pour i de 1 à n faire
         Si T[i] mod 2 =0   alors 
					     j←0
				       T1[j]←T[i]
			                     Sinon 
					     K←0
				       T1[j]←T[i]
        FinSi
     Fin pour
4) FIN Extraire

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i	Entier	Compteur

Traduction en Pascal:


Program parite;
Uses Wincrt;
Type
   tab =  Array[1..10] Of Integer;
Var
   t,t1,t2:  tab;
   n,n1,n2:  Integer;

Procedure saisir(Var t:tab;Var n:Integer);
Var
   i:  Integer;
Begin
   Writeln('donner la taille du tableau');
   Readln(n);
   For i:=1 To n Do
      Repeat
         Writeln('Donner l''élément n°',i);
         Readln(t[i]);
      Until t[i]>0;
End;

Procedure extraire(t:tab;n:Integer; Var t1:tab;Var j:Integer; Var t2:tab;Var k:Integer );
Var
   i:  Integer;
Begin
   j := 0;
   k := 0;
   For i:=1 To n Do
      If t[i] Mod 2=0 Then
         Begin
            j := j+1;
            t1[j] := t[i];
         End
      Else
         Begin
            k := k+1;
            t2[k] := t[i];
         End;
End;

Procedure afficher(a:tab;b:Integer);
Var
   i:  Integer;
Begin
   For i:=1 To b Do
      Writeln('l''élément n°',i,'est:', a[i]);
End;
Begin
   saisir(t,n);
   extraire(t,n,t1,n1,t2,n2);
   Writeln('Le tableau des pairs: ');
   afficher(t1,n1);
   Writeln('le tableau des impairs:');
   afficher(t2,n2);
End.

Exercice 8:

Écrire un programme qui permet de saisir deux entiers n et p (tq 1≤p≤n) et de calculer puis afficher le nombre de combinaison de p éléments parmi n : CNP
sachant que: C_n^p= n! / (p! *(n-p)!)

Objet	Type/Nature	Rôle
Calculer n, p CNP Saisir	fonction entiers entier procedure	calculer la cnp entiers à saisir cnp à calculer saisir n et p

Objet	Type/Nature	Rôle
c fact	Entier fonction	cnp calculer la factoriel

Objet	Type/Nature	Rôle
i f	Entier entier	Compteur la factorielle

Exercice 9:

Écrire un programme qui permet de Saisir un réel x entre 0 et 1, puis calculer puis afficher la valeur approché VA de exp(x) avec la formule suivante:
...
e^x=1+x/1!+x²/2!+x³/3!+x⁴/4! +... NB: Faire le calcul jusqu'à xⁱ / i! <=0,001

Exercice 10:

Écrire un programme qui permet de saisir une chaîne Ch composée uniquement de chiffres et de lettres puis extraire les lettres dans une chaîne CH1 et les chiffres dans une chaîne CH2.

Analyse du programme principale:


Nom : extraction
Résultat=Ecrire ("Lettres=",ch1),Ecrire("Chiffres =",ch2)
(ch1,ch2)=Proc extraire (ch,ch1,ch2)
Ch=Proc saisir(ch)
Fin extraction

T.D.O Globaux (Tableau de déclaration des objets Globaux)

Objet	Type/Nature	Rôle
Ch ch1 ch2 Saisir extraire	chaine chaine chaine Procédure Procédure	chaine à saisir chaine des lettres chaine des chiffres saisir ch extraire ch1 et ch2

Algorithme de la procédure Saisir:


0) DEF PROC Saisir(VAR ch:chaine)
1) Répéter
    Ecrire("ch="),lire(ch)
  Jusqu’à  Fn verif(ch)=vrai
2) FIN saisir

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
verif	fonction	verifier que ch est composée uniquement de chiffres et de lettres

Algorithme de la fonction verif:


0)DEF PROC Fn verif( ch : chaine):booléen 
1) [i←0, ok←vrai] Répéter
                    i←i+1
                     si NON(ch[i] dans ["0.."9", "a".."z","A".."Z"])
                     alors ok ←Faux
                     Finsi
	                 Jusqu'a (i=long(ch)) ou (ok=faux)
2)Fin Verif

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i ok	Entier booléen	Compteur indique la validité da la chaine

Algorithme de la procédure extraire

       
0) DEF Proc Extraire(ch :chaine, Var lettres,chiffres :chaine)
1)  [lettres←"" , chiffres←""] Pour i de 1 à long(ch) faire
                  Si ch[i] dans ["0".."9"] alors chiffres ←chiffres+ch[i]
                  Sinon Lettres ←lettres+ch[i]
                  FinSi
                                  FinPour
2) FIN Extraire

T.D.O Locaux (Tableau de déclaration des objets locaux)

Objet	Type/Nature	Rôle
i	Entier	Compteur

Traduction en Pascal:


Program extraction;
Uses Wincrt;
Var
   ch,ch1,ch2:  string;

Function verif(ch:String):  Boolean;
Var
   i:  Integer;
   ok:  Boolean;
Begin
   i := 0;
   ok := True;
   Repeat
      i := i+1;
      If Not( ch[i] In ['0'..'9', 'a'..'z', 'A'..'Z']) Then ok := False;
   Until (i=Length(ch)) Or (ok=False);
   verif := ok;
End;

Procedure saisir(Var ch :String) ;
Begin
   Repeat
      write('ch=');
      Readln(ch);
   Until verif(ch); { ou until verif(ch)=true ; }
End ;

Procedure extraire(ch:String; Var lettres,chiffres: String);
Var
   i:  Integer;
Begin
   lettres := '';
   chiffres := '';
   For i:=1 To Length(ch) Do
      If ch[i] In ['0'..'9'] Then chiffres := chiffres+ch[i]
      Else lettres := lettres+ch[i];
End;
Begin
   saisir(ch) ;
   extraire(ch,ch1,ch2);
   Writeln('lettres=',ch1);
   Writeln('chiffres=',ch2);
End.

Exercice 11:

Ecrire un programme qui inverse une chaîne de caractères de longueur < 10 caractères,puis indique si c'est un palindrome. (s'écrivant de la même façon de gauche à droite et de droite à gauche . Exemples : radar, elle,...) .

Exercice 12:

Écrire un programme permettant d'enlever les caractères qui se répètent dans une chaîne ch.
Exemples :ch="sciences" → "scien" "programmation" → "progamtin"

Exercice 13:

Écrire un programme qui demande à l’utilisateur un texte et un mot, puis affiche pour chaque lettre du mot, le nombre d’occurrences de cette lettre dans le texte de départ

Exercice 14:

Un nombre est dit perParfait s'il est parfait(égale à la somme de ces diviseurs) et son successeur est premier.
Exemple : 6 est perparfait car il est parfait (6=3+2+1) et son successeur 7 est premier.
Déterminer tous les nombres Perparfaits <=100

☰ Pascal-Les sous programmes

Exercice 1:

Analyse du programme principale:

Algorithme de la procédure Saisir:

Algorithme de la procédure permuter:

Algorithme de la procédure Afficher:

Traduction en Pascal:

Exercice 2:

Analyse du programme principale:

Algorithme de la procédure Saisir:

Algorithme de la fonction puissance:

Traduction en Pascal:

Exercice 3:

Analyse du programme principale:

Algorithme de la procédure Saisir:

Algorithme de la procédure Remplir:

Algorithme de la procédure Afficher:

Algorithme de la fonction Maxi:

Traduction en Pascal:

Exercice 4:

Traduction en Pascal:

Exercice 5:

Traduction en Pascal:

Exercice 6:

Traduction en Pascal:

Exercice 7:

Analyse du programme principale:

Algorithme de la procédure Saisir:

Algorithme de la procédure Afficher:

Algorithme de la procédure extraire

Traduction en Pascal:

Exercice 8:

Analyse du programme principale:

Algorithme de la procédure Saisir:

Algorithme de la fonction calculer:

Algorithme de la fonction fact

Traduction en Pascal:

Exercice 9:

Traduction en Pascal:

Exercice 10:

Analyse du programme principale:

Algorithme de la procédure Saisir:

Algorithme de la fonction verif:

Algorithme de la procédure extraire

Traduction en Pascal:

Exercice 11:

Traduction en Pascal:

Exercice 12:

Traduction en Pascal:

Exercice 13:

Traduction en Pascal:

Exercice 14:

Traduction en Pascal: