Algo.tn

☰ Pascal-Structures conditionnelles

Exercice 1:

Écrire un programme qui permet de vérifier la parité d'un entier donné (en utilisant la forme simple réduite)

Objet	Type/Nature	Rôle
n message	Entier chaîne	entier à saisir message à afficher

Exercice 2:

Ecrire un programme qui permet de vérifier la parité d'un entier (utilisant la forme alternative)

Objet	Type/Nature	Rôle
n	Entier	entier à saisir

Exercice 3:

Ecrire une analyse et un algorithme qui permet de saisir un entier puis de vérifier s’il est divisible par son chiffre d’unité. Exemple : 24 est divisible par 4 127 n’est pas divisible par 7

Objet	Type/Nature	Rôle
n u	Entier Entier	entier à saisir Unité

Exercice 4:

Saisir une chaîne de caractère CH puis vérifier si elle est composée par « un seul mot » ou de « plusieurs mots ».

Objet	Type/Nature	Rôle
ch	chaine	chaine à saisir

Exercice 5:

Ecrire un programme permettant de calculer puis d’afficher la surface d’un triangle.
Sachant que surface=(base * hauteur)/2
NB : la Base et la hauteur doivent être positives, dans le cas contraire afficher un message d’erreur.

Objet	Type/Nature	Rôle
h b S	réel réel réel	hauteur base Surface

Exercice 6:

Écrire un programme qui permet de saisir une année puis de vérifier si elle est bissextile.

NB:Une année bissextile est une année comptant 366 jours au lieu de 365, c'est-à-dire une année comprenant un 29 février (exemples : 2016, 2000 bissextile , 1900 est non bissextile)
sont bissextiles les années:
• divisibles par 4 mais non divisibles par 100
• divisibles par 400.

Objet	Type/Nature	Rôle
a	Entier	Année à saisir

Exercice 7:

Écrire un programme, qui affiche selon le cas, la nature d’une lettre (consonne ou voyelle) correspondant à une touche saisie. (les voyelles sont : A, E,I,O,U,Y )

Exercice 8:

Écrire un programme, qui affiche selon le cas, la nature d’une lettre (consonne ou voyelle) correspondant à une touche saisie. (les voyelles sont : A, E,I,O,U,Y )
Remarque : Prévoir le cas d’erreur (saisie d’un caractère qui n’est pas une lettre)

Exercice 9:

Ecrire une analyse et un algorithme qui permet de saisir un entier puis de vérifier s’il est divisible par son chiffre d’unité. Exemple : 24 est divisible par 4 127 n’est pas divisible par 7
Remarque: prevoir le cas d'erreur (unité=0)

Objet	Type/Nature	Rôle
n u	Entier Entier	entier à saisir Unité

Exercice 10:

Écrire un programme qui permet de saisir une moyenne (moy) puis affiche la décision correspondante :
ADMIS Si moy >=10
CONTROLE Si 9<=moy <10
REDOUBLE Si moy<9

Objet	Type/Nature	Rôle
Moy Message	réel Chaine de caractère	moyenne à saisir message à afficher

Exercice 11:

À pression atmosphérique normale, l'eau pure, distillée, est solide (glace) pour une température inférieure à 0 °C, liquide pour une température comprise entre 0 °C et 100 °C, et à l'état gazeux (vapeur d'eau) pour des températures supérieures.

Ecrire un programme permettant de lire une valeur réelle température (T) puis afficher l’état de l’eau.

Objet	Type/Nature	Rôle
T	réel	Température à saisir

Exercice 12:

Écrire un programme qui permet de faire la résolution de l’équation du 1er degré : ax+b = 0

Objet	Type/Nature	Rôle
a,b	réel	coefficients à saisir

Exercice 12:(bis)

Écrire un programme qui permet de faire la résolution de l’équation de second degré : ax²+bx+c=0

Objet	Type/Nature	Rôle
a,b,c delta	réel réel	coefficients à saisir discriminant

Exercice 13:

Écrire un programme qui permet de saisir un temps (heure et minute) lui ajoute 5 minutes puis l'affiche.

Exemples :heure : 10 minute : 20 après 5 minutes : 10:25
heure : 10 minute:57 après 5 minutes : 11: 02
heure : 23 minute:55 après 5 minutes : 00:00

Algorithme:


0)Début plus5min
1)Ecrire("Heure: "),lire(h)
2)Ecrire("Minute: "),lire(m)
3)Si m<55  alors  m ← m+5
		   sinon
			si h<23 alors
				h ← h+1
	 			m ← m-55
				   sinon
				h ← 0
				m ← m-55
			FinSi
  FinSi
4)Ecrire("Après 5 min : ", h, " :", m)
5)Fin Plus5min

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

Objet	Type/Nature	Rôle
h,m	entier	heures et minutes à saisir

Traduction en Pascal:


program plus5min ;
uses wincrt ;
var	h,m : integer ;
Begin
	write('Heure : ') ;readln(h) ;
	write('minute : ') ;readln(m) ;
if m<55  then  m := m+5
		   else
			if h<>23 then
     				 begin
				  h:= h+1 ;
	 			  m:= m+5-60 ;
			          end
				   else
			       begin
				  h:=0 ;
				  m :=  m-55 ;
			       end ;
writeln('Après 5 min : ', h, ' :', m) ;
End.

Remarque : pour un affichage convenable de l’heure : 00 :00 , il faut modifier l’affichage comme suit :


Writeln('Après 5 min :') ;
If h<10 then write('0',h) Else write(h);
Write(':');
If m<10 then write('0',m) Else write(m);

Exercice 14:

Écrire un programme qui permet de saisir un caractère puis affiche sa nature (lettre, chiffre ou symbole)

Exercice 15:

Écrire un programme qui permet de saisir un caractère puis affiche selon le cas sa nature (voyelle,consonne, chiffre ou symbole)

Algorithme:


0)Début nature2
1)Ecrire("donner un carctère: "),lire(c)
2)Si majus(c) dans ["A".."Z"] alors Ecrire("Lettre")
                                        si Majus(c) dans ["A","E","I","Y","O","U"] 
                                        alors Ecrire("Voyelle")
                                        sinon Ecrire("Consonne")
                                        FinSi 
                              sinon
                                 si c dans ["0".."9"] alors
                                                Ecrire("Chiffre")
                                                   sinon
                                                Ecrire("Symbole")
                                FinSi
   FinSi
3)Fin Nature2

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

Objet	Type/Nature	Rôle
c	caractèrer	caractère à saisir

Traduction en Pascal:


program nature2;
uses wincrt;
var
   c:char;

begin
write('Donner un caractère: ');
readln(c);

if upcase(c)  in ['A'..'Z'] then
                                begin
                       writeln('Lettre');
                       if upcase(c) in ['A','E','I','Y','O','U']
                          then writeln('Voyelle')
                       else writeln('Consonne');
                                end
                            else
                            if c in ['0'..'9']then
                               writeln('chiffre')
                               else
                               writeln('Symbole');

end.

Autre méthode (utilisant Selon..faire (case .. of))

Algorithme:


0)Début nature3
1)Ecrire("donner un carctère: "),lire(c)
2)selon c faire 
  "A".."Z","a".."z" : Ecrire("Lettre")
                      si Majus(c) dans ["A","E","I","Y","O","U"] 
                            alors Ecrire("Voyelle")
                            sinon Ecrire("Consonne")
                      FinSi 
  "0".."9": Ecrire("Chiffre")
  sinon
  Ecrire("Symbole")
  FinSelon
3)Fin Nature3

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

Objet	Type/Nature	Rôle
c	caractèrer	caractère à saisir

Traduction en Pascal:


program nature3;
uses wincrt;
var
   c:char;

begin
write('Donner un caractère: ');
readln(c);

case c of
'A'..'Z', 'a'..'z' : begin
                       writeln('Lettre');
                       if upcase(c) in ['A','E','I','Y','O','U']
                          then writeln('Voyelle')
                       else writeln('Consonne');
                    end;
'0'..'9': writeln('chiffre');
  else
writeln('Symbole');
end;
end.

Exercice 16:

Un entier naturel de trois chiffres est dit cubique s’il est égal à la somme des cubes de ses chiffres.
Exemple : 153 est cubique car 153=1³+5³+3³
Autres exemples: 370, 371, 407

Ecrire un programme permettant de saisir un entier n puis d’afficher s’il est cubique ou non.

Objet	Type/Nature	Rôle
n c d u s	Entier Entier Entier Entier Entier	Entier à saisir Centaine Dizaine Unité Somme à calculer

Exercice 17:

Ecrire un programme permettant d’afficher le coût d’impression d’un nombre de page nb.
Sachant que :
Tarif=50mil par page Si nb<10
Tarif=40mil par page Si 10≤nb<50
Tarif=35mil par page Si nb≥50

Objet	Type/Nature	Rôle
n tarif	Entier Entier	nombre à saisir tarif à payer

Exercice 18:

Effectuez une analyse puis écrivez un algorithme et la traduction en Pascal du programme intitulé T_LETTRES, qui traduit en toutes lettres un entier naturel composé d'au maximum deux chiffres.
Exemples : 21 donne "VINGT ET UN"
22 donne "VINGT DEUX"

Algorithme:


0)début T_lettres 
1)Ecrire("Donner un entier composé d'au maximum deux chiffres"), lire(n) 
2) d← n div 10
3) u← n mod 10
4)message ←""
5) Si d=2 alors message←"vingt" Finsi
6) Si d=3 alors message←"trente" Finsi
7) Si d=4 alors message←"quarante" Finsi
8) Si d=5 alors message←"cinquante" Finsi
9) Si d=6 alors message←"soixante" Finsi
10) Si d=7 alors message←"soixante" Finsi
11) Si d=8 alors message←"quatre-vingt" Finsi
12) Si d=9 alors message←"quatre-vingt" Finsi
13)si d dans[2..9]  alors 
           si (u=1) alors message←message+"-et-"
           sinon si(u<>0) ou (d=7) ou (d=9) alors
                                        message←message+"-"
    Finsi
14) si d dans [1,7,9] alors 
            si u=0 alors message←"dix" finsi
           si u=1 alors message←"onze" finsi  
           si u=2 alors message←"douze" finsi 
           si u=3 alors message←"treize"  finsi  
           si u=4 alors message←"quatorze" finsi             
           si u=5 alors message←"quinze"  finsi 
           si u=6 alors message←"seize" finsi 
           si u=7 alors message←"dix-sept"  finsi  
           si u=8 alors message←"dix-huit" finsi 
           si u=9 alors message←"dix-neuf" finsi 
  sinon
      si u=1 alors message←message+"un" FinSi
      si u=2 alors message←message+"deux" Finsi 
      si u=3 alors message←message+"trois" Finsi 
      si u=4 alors message←message+"quatre" Finsi 
      si u=5 alors message←message+"cinq" Finsi 
      si u=6 alors message←message+"six" Finsi 
      si u=7 alors message←message+"sept" Finsi 
      si u=8 alors message←message+"huit" Finsi 
      si u=9 alors message←message+"neuf" Finsi 
  FinSi
15) Ecrire (message)
16)fin  T_lettres

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

Objet	Type/Nature	Rôle
n u d message	Entier Entier Entier chaine	nombre à saisir unité dizaine message à afficher

Traduction en Pascal:


program T_lettres;
uses wincrt;
var
n,u,d:integer;
message:string;
begin
writeln('Donner un entier composé d''au maximum deux chiffres');
readln(n);
d:= n div 10 ;
u:= n mod 10 ;
message :='' ;


if d=2 then message:='vingt' ;
if d=3 then message:='trente' ;
if d=4 then message:='quarante' ;
if d=5 then message:='cinquante' ;
if d=6 then message:='soixante'  ;
if d=7 then message:='soixante';
if d=8 then message:='quatre-vingt' ;
if d=9 then message:='quatre-vingt';

if (d in [2..9])then
   if  (u=1) then message:=message+'-et-'
             else  if (u<>0) or (d=7) or (d=9) then message:=message+'-';

if d in [1,7,9] then
                    begin
                if u=0 then message:=message+'dix';
                if u=1 then message:=message+'onze';
                if u=2 then message:=message+'douze';
                if u=3 then message:=message+'treize';
                if u=4 then message:=message+'quatorze';
                if u=5 then message:=message+'quinze';
                if u=6 then message:=message+'seize';
                if u=7 then message:=message+'dix-sept';
                if u=8 then message:=message+'dix-huit';
                if u=9 then message:=message+'dix-neuf';
                    end
                else
            begin
      if u=1 then message:=message+'un'  ;
      if u=2 then message:=message+'deux'  ;
      if u=3 then message:=message+'trois'  ;
      if u=4 then message:=message+'quatre' ;
      if u=5 then message:=message+'cinq' ;
      if u=6 then message:=message+'six'  ;
      if u=7 then message:=message+'sept' ;
      if u=8 then message:=message+'huit';
      if u=9 then message:=message+'neuf'  ;
             end;
      

writeln (message);

end.

Remarque: Affichage de chiffres suivant les cardinaux en français (orthographe de 1990)
source: https://fr.wiktionary.org/wiki/Mod%C3%A8le:cardinaux/fr

Exercice 19:

Ecrire un programme qui permet, à partir d'une d'une date sous forme jj/mm/aaaa de donner le jour suivant.

Exemple 1: Donner une date : 25/03/2017    Le jour suivant est=26/03/2017
Exemple 2: Donner une date : 31/12/2017    Le jour suivant est=01/01/2018
Exemple 3: Donner une date : 28/02/2017    Le jour suivant est=01/03/2017

Algorithme:


0) début jour_suivant
1) Ecrire("Donner une date (jj/mm/aaaa): ")
2)lire(date)
3)valeur(sous_chaine(date,1,2),j,e)
4)valeur(sous_chaine(date,4,2),m,e)
5)val(sous_chaine(date,7,4),a,e)
6)si m dans [1,3,5,7,8,10,12] alors
     si j<31 alors j←j+1
             sinon
             si m<>12 alors 
                         j←1
                         m←m+1
                       sinon
                        j←1
                        m←1
                        a←a+1
             Finsi
     Finsi
  Finsi
7) si m dans [4,6,9,11] alors
             si j<30 alors j←j+1
                     sinon
                         j←1
                        m←m+1
             Finsi
   Finsi
8) si m=2 alors
             si ((a mod 4=0) et (a mod 100<>0)) ou (a mod 400=0)
             alors
                 si j<29 alors j←j+1
                         sinon
                             j←1
                             m←m+1
                 Finsi            
             sinon
                 si j<28 alors j←j+1
                         sinon
                             j←1
                             m←m+1
                 Finsi
             Finsi
  Finsi
9)Ecrire("Le jour suivant est=")
10)si j<10 alors Ecrire("0",j) sinon Ecrire(j) Finsi
11) Ecrire("/")
12) si m<10 alors Ecrire("0",m) sinon ecrire(m) Finsi
13)Ecrire("/",a)
14)Fin jour_suivant

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

Objet	Type/Nature	Rôle
j m a e date	Entier Entier Entier entier chaine	jour mois année pos erreur date à saisir

Traduction en Pascal:


program jour_suivant;
uses wincrt;
var
j,m,a,e:integer;
date:string;
begin

write('Donner une date (jj/mm/aaaa): ');
readln(date);

val(copy(date,1,2),j,e);
val(copy(date,4,2),m,e);
val(copy(date,7,4),a,e);

if m in [1,3,5,7,8,10,12] then

     if j<31 then j:=j+1
             else
             if m<>12 then 
                       begin
                         j:=1;
                         m:=m+1;
                         end
                       else
                       begin
                        j:=1;
                        m:=1;
                        a:=a+1;
                        end;
 if m in [4,6,9,11] then

     if j<30 then j:=j+1
             else
               begin
              j:=1;
              m:=m+1;
               end;
 if m=2 then
            begin
             if ((a mod 4=0) and (a mod 100<>0))OR(a mod 400=0)
             then
                 if j<29 then j:=j+1
                         else
                             begin
                             j:=1;
                             m:=m+1;
                             end
             else
                 if j<28 then j:=j+1
                         else
                             begin
                             j:=1;
                             m:=m+1;
                             end;

            end;



 write('Le jour suivant est=');
 if j<10 then write('0',j) else write(j);
 write('/');
 if m<10 then write('0',m) else write(m);
write('/',a);

end.

Remarque: Voir Exercice n°6 : sur l'année bissextile
sont bissextiles les années:
• divisibles par 4 mais non divisibles par 100
• divisibles par 400.

Exercice 20:

Écrire un programme qui permet de saisir le n° de mois puis affiche la saison correspondante.
Exemple : n°mois=7 affiche été
     12,1,2 saison hiver
     3,4,5 saison printemps
     6,7,8 saison été
     9,10,11 saison automne

Objet	Type/Nature	Rôle
mois	entier	n° de mois à saisir
M	chaîne de caractères	message à afficher

Exercice 21:

Ecrire l'algorithme et le programme pascal d'un programme qui permet de saisir un entier de 3 chiffres puis affiche la somme S de ces 3 chiffres. Puis si S est composé de 2 chiffres alors faire leurs somme S2 enfin si S2 est composé de 2 chiffres alors faire leurs somme S3

Exemple : pour 946 S=9+4+6=19 S2=1+9=10 S3=1+0=1