Algorithme tunisie|Problèmes Pascal

☰ Pascal-Problèmes

Exercice 1:

Ecrire un module en Pascal permettant l’insertion d'un entier x dans un tableau T de taille n à une position p.

Objet	Type/Nature	Rôle
i	Entier	compteur

Exercice 2:

Saisir un tableau T de taille n ( entre 5 et 10 ) en ordre décroissant (tq T[2]<=T[1], T[3]<=t[2] ) puis Insérer un élément X dans T à sa bonne place pour garder le tableau trié.

Exercice 3:

Remplir un tableau T de taille n(entre 1 et 10) par des éléments distincts puis insérer un autre élément X s’il n’existe pas dans T à une position donnée K, enfin afficher le tableau.

Analyse du programme principal:


Nom :distincts
Résulat= proc afficher(t,n)
Si fn verif(x,t,n)=faux alors 
                        K=donnée ("donner la position d’insertion =")
                        proc inserer(t,n,x,k)
FinSi
X=donnée("donner un entier à insérer =")
(t,n)=Proc Remplir(t,n)
Fin distincts

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

Type
TAB= tableau de 11 entiers

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

Objet	Type/Nature	Rôle
T N X K Remplir Verif Inserer afficher	TAB Entier Entier Entier Procédure Fonction Procédure procédure	Tableau à remplir Taille du tableau Entier è insérer Position d’insertion Remplir T et n Vérifie l’existence d’un entier dans T Insérer x dans T à la position K Afficher le tableau T

Algorithme de la procédure remplir:


0)Def Proc Remplir(var t :tab, var n :entier)
1) répéter
    Ecrire("n="), lire(n)
  Jusqu’a n dans [1..10]
2) Ecrire("T[1]="), lire(t[1])
3) pour i de 2 à n faire
      répéter
    Ecrire("T[",i,"]="), lire(t[i]) 
      Jusqu’a ( verif(T[i], t,i-1)=faux )
  Fin pour
4)Fin remplir

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

Objet	Type/Nature	Rôle
i Verif	entier Fonction	compteur Vérifie l’existence d’un entier dans T

Algorithme de la fonction verif:


0) Def fn verif(x :entier,t :tab, n :entier) :booléen
1) Trouve←faux
2) I←0
3) Répéter
      I←i+1
      Si t[i]=x alors trouve←vrai finsi
    Jusqu’a (trouve) ou (i=n)
4) Verif ←trouve
5) Fin verif

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

Objet	Type/Nature	Rôle
i trouve	entier booléen	compteur Vérifie l’existence de x dans T

Algorithme de la procédure inserer:


0)Def proc inserer(var t :tab,var n :entier,x,k :entier)
1) n←n+1
2) pour i de n à  k+1 (pas=-1) faire
     t[i]←t[i-1] ;
    FinPour
3) t[k]←x 
4) Fin inserer

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

Traduction en Pascal:

Exercice 4:

Ecrire un programme pascal qui permet pour un entier positif non nul N de donner l’entier le plus grand formé par les chiffres de N
Exemple si N=12178 le résultat sera 87211

Exercice 5:

Un nombre uniforme (en anglais repdigit qui provient de repeated digit) est un entier naturel formé par la répétition d'un seul chiffre. Par exemple, 8, 11, 22, 4 444, 77 777 et 999 999 sont des nombres uniformes.
Ecrire un module permettant de vérifier si un entier N est uniforme ou non.

Objet	Type/Nature	Rôle
ch I ok	chaine Entier booléen	L’entier convertit en chaine Compteur Indique si n est uniforme ou non

Exercice 6:

Ecrire un module permettant de fusionner deux tableaux triés T1 et T2 de taille respective n1 et n2 (entre 1 et 10) dans un tableau T de taille n.
Exemple :

	1	2	3	4	5	6
T1	3	7	12	20	35	50

	1	2	3	4
T2	1	5	15	18

Résultat de la fusion :

	1	2	3	4	5	6	7	8	9	10
T	1	3	5	7	12	15	18	20	35	50

Algorithme de la procédure fusionner:


0) Def proc fusionner(t1 : TAB1,n1 :entier,t2: TAB2,n2 :entier,var T: TAB,var n :entier)
1) I←1
2) J←1
3) n←0
4) Tant que (i<=n1) et (j<=n2) faire
      Si T1[i]<=T2[j] alors n←n+1
                            T[n]← T1[i]
                            I←i+1
                      Sinon
                            n←n+1
                            T[n]← T2[j]
                            j←j+1
      Finsi
 	 Fin tant que
5) Tant que( i<=n1) faire    //le tableau T2 épuisé, recopier le reste de T1 dans le tableau de fusion 
      n←n+1
      T[n]←t1[i]
      I←i+1
  Fin tantque
6) Tant que (j<=n2) faire    //le tableau T1 épuisé, recopier le reste de T2 dans le tableau de fusion 
      n←n+1
      T[n]←t2[j]
      j←j+1
  Fin tantque
7) Fin fusionner

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

Objet	Type/Nature	Rôle
I j	Entier Entier	Compteur Compteur

Traduction en Pascal:


  program fusion;
uses wincrt;

Type
		TAB1=array[1..10]of integer;
		TAB=array[1..20]of integer;
Var
t1,t2:tab;
t:tab;
n1,n2, n:integer;

procedure remplir(var t:tab;var n:integer);
Var   i:Integer;
Begin
		Repeat
	write('Donner la taille du tableau');
	readln(n);
	until n in [1..10];

	for i:=1 to n Do
	Begin
	write('T[',i,']=');readln(t[i])
	end;

end;

procedure trier(var t:tab;n:integer);
var i,j,tmp:integer;
Begin
for i:=2 to n Do
Begin
tmp:=t[i];
j:=i;
 while(j>1) and (t[j-1]>tmp) Do
 Begin
 t[j]:=t[j-1];
 j:=j-1;
 end;

t[j]:=tmp;
end;
end;
procedure afficher(t:tab;n:integer);
var i:integer;
Begin
for i:=1 to n Do
		writeln('T[',i,']=',t[i]);
end;

procedure fusionner(t1:tab;n1:integer; t2:tab;n2:integer;var t:tab;var n:Integer);
Var i,j :integer;
Begin
i:=1;
j:=1;
n:=0;

while (i<=n1) and (j<=n2) Do
Begin
		if t1[i] < t2[j] Then
					Begin
						n:=n+1;
						t[n]:=t1[i];
						i:=i+1;
					End
				Else
					Begin
						n:=n+1;
						t[n]:=t2[j];
						j:=j+1;
					End;
end;

while (i<=n1) Do
Begin
	n:=n+1;
	t[n]:=t1[i];
	i:=i+1;
end;

while (j<=n2) Do
Begin
	n:=n+1;
	t[n]:=t2[j];
	j:=j+1;
end;
end;

Begin
writeln('Remplissage du tableau T1');
remplir(t1,n1);
writeln('Remplissage du tableau T2');
remplir(t2,n2);
trier(t1,n1);
trier(t2,n2);
writeln('T1 trié :');
afficher(t1,n1);
writeln('T2 trié :');
afficher(t2,n2);
fusionner (t1,n1,t2,n2,t,n);
writeln('Fusion de T1 et t2');
afficher(t,n);
end.

Exercice 7:

Remplir un tableau T de taille n(entre 3 et 9) par des chaines composées par des lettres seulement et de longueur ne dépassant pas 10 caractères puis inverser le tableau enfin l'afficher.
Exemple :

	1	2	3	4	5
T	Bonne	Chance	Bac	info	Tunisie

Resultat aprés inversion :

	1	2	3	4	5
T	Tunisie	info	Bac	Chance	Bonne

Analyse du programme principal:


Nom :inverse_tab
Résulat= proc afficher(t,n)
t=proc inverser(t,n)
(t,n)=Proc Remplir(t,n)
Fin inverser_tab

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

Type
TAB= tableau de 9 chaines

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

Objet	Type/Nature	Rôle
T N Remplir inverser afficher	TAB Entier Procédure Procédure procédure	Tableau à remplir Taille du tableau Remplir T et n Inverser le tableau T Afficher le tableau T

Algorithme de la procédure remplir:


0)Def Proc Remplir(var t :tab, var n :entier)
1) répéter
    Ecrire("n="), lire(n)
  Jusqu’a n dans [3..9]
2) pour i de 1 à n faire
      répéter
    Ecrire("T[",i,"]="), lire(t[i]) 
      Jusqu’a ( fn verif(T[i]) ) et ( long(T[i])<=10 )
  Fin pour
3)Fin remplir

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

Objet	Type/Nature	Rôle
i Verif	entier Fonction	compteur Vérifie que T[i] composé par des lettres seulement

Algorithme de la fonction verif:


0) Def fn verif(ch:chaine) :booléen
1) ok←vrai
2) I←0
3) Répéter
      I←i+1
      Si NON( Majus(ch[i]) dans ["A".."Z"] ) alors ok←faux finsi
    Jusqu’a (ok=faux) ou (i=long(ch))
4) Verif ←ok
5) Fin verif

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

Objet	Type/Nature	Rôle
i Ok	entier booléen	compteur Vérifie si ch est composée par des lettres uniquement

Algorithme de la procédure inverser:


0)Def proc inverser(var t :tab, n :entier)
1) pour i de 1 à  (n div 2) faire
     aux←t[i]
     t[i]←t[n-i+1] 
     t[n-i+1] ← aux
    FinPour 
2) Fin inverser

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

Objet	Type/Nature	Rôle
i aux	entier chaine	compteur variable auxiliaire

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

Traduction en Pascal:

Exercice 8:

On appelle nombre de Keith, un nombre K de n chiffres ayant la propriété suivante:
En partant des nombres composés chacun d'un des n chiffres de K, on compose une sorte de suite de Fibonacci en calculant la somme des n derniers nombres de la suite pour déterminer le suivant.si cette suite fournit à un moment le nombre K, ce nombre est dit nombre de Keith.
Ecrire un programme qui permet de saisir deux entiers naturels non nuls a et b (10<=a<b<1000) puis de chercher puis afficher tous les nombres de Keith dans [a,b].

Exemple: pour K=197
1+9+7=17 ⟶ 9+7+17=33 ⟶ 7+17+33=57 ⟶ 17+33+57=107 ⟶ 33+57+107=197 ⟶Donc 197 est un nombre de Keith.

Autres exemples :14, 19, 28, 47, 61, 75,197, 742

Traduction en Pascal:


Program nombre_keith;
Uses Wincrt;
Var
  a,b: Integer;
Procedure saisir (Var a,b:Integer);
Begin
  Repeat
    Write('a= ');
    Readln(a);
    Write('b= ');
    Readln(b);
  Until (a >= 10) And (a < b) And(b < 1000);
End;
Function keith(K:Integer): Boolean;
Var
  s,n,i,tmp: Integer;
  ch: String;
  t: Array[1..4] Of Integer;
Begin
  tmp := K;
{calcul de n :nombre de chiffres qui composent K }
  Str(tmp,ch);
  n := Length(ch);
{stokage des chiffres de K dans un tableau T et calcul de leurs somme S }
  s := 0;
  For i:=n Downto 1 Do
    Begin
      T[i] := tmp Mod 10;
      s := s+ T[i];
      tmp := tmp Div 10;
    End;
{continuer à faire la somme jusqu'a S=K (chiffre de Keith) ou S>K (on arrête) }
  While (s < K) Do
    Begin
{décalage dans le tableau puis ajout de la nouvelle sommeau tableau}
      For i:=1 To n-1 Do
        t[i] := t[i+1];
      t[N] := S;
{calcul de la nouvelle somme}
      s := 0;
      For i:=1 To n Do
        s := s+t[i];
    End;
  keith := (s=k);
End;
Procedure afficher(a,b:Integer);
Var
  i: Integer;
Begin
  Writeln('Les nombres de Keith entre [',a,'..',b,'] :');
  For i:=a To b Do
    If keith(i) Then Writeln(i);
End;
Begin
  saisir (a,b);
  afficher(a,b);
End.

Algo.tn

☰ Pascal-Problèmes

☰ Pascal-Problèmes

Exercice 1:

Algorithme de la procédure insertion:

Traduction en Pascal:

Exercice 2:

Traduction en Pascal:

Exercice 3:

Analyse du programme principal:

Algorithme de la procédure remplir:

Algorithme de la fonction verif:

Algorithme de la procédure inserer:

Algorithme de la procédure afficher:

Traduction en Pascal:

Exercice 4:

Traduction en Pascal:

Exercice 5:

Algorithme de la fonction uniforme:

Traduction en Pascal:

Exercice 6:

Algorithme de la procédure fusionner:

Traduction en Pascal:

Exercice 7:

Analyse du programme principal:

Algorithme de la procédure remplir:

Algorithme de la fonction verif:

Algorithme de la procédure inverser:

Algorithme de la procédure afficher:

Traduction en Pascal:

Exercice 8:

Traduction en Pascal: