Algorithme TD2

Exercice 1:
Ecrire un programme qui à partir d’un prix et d’un nombre d’article fournit en données,
calcule le PHT, la TVA et le TTC.
Algorithme: Facture
variables
nombre_d_articles : entier
prix_unitaire,PHT,TTC,TVA : reels
constantes
TauxTVA = 20
Debut
ecrire("donnez le nombre d'articles");
lire("nombre_d_articles");
ecrire("donnez le prix unitaire");
lire("prix_unitaire");
PHT = nombre_d_articles * prix_unirtaire;
TVA = PHT * TauxTVA /100;
TTC = PHT + TVA;
ecrire("le prix hors taxe est de: ",PHT);
ecrire("la TVA est de: ",TVA);
ecrire("le prix tout taxe compris est de: ",TTC);

Fin.
Exercice 2:
Ecrire un algorithme qui permet de faire la permutation de deux nombres saisies au clavier.
1. En utilisant une variable intermédiaire
2. Sans utiliser une variable intermédiaire
Algorithme: Permutation
variables
T1,T2,T3 : entiers
Debut
ecrire("donnez le premier nombre");
lire("T1");
ecrire("donnez le second nombre");
lire("T2");
T1 = T3;
T2 = T1;
T3 = T2;
ecrire("apres permutation");
ecrire("T1 devient: ",T3);
Fin.
Algorithme: Permutation
variable
T1,T2 : entier
Debut:
ecrire("donner la valeur du premier nombre");
lire("T1");
ecrire("donnez la valeur du deuxieme nombre");
lire("T2");
T1 = T1 + T2;
T2 = T1 - T2;
T1 = T1 - T2;
ecrire("apres permuation:");

Fin.
Exercice 3:
Ecrire un algorithme qui permet de convertir un temps donné en secondes en heures, minutes
et secondes.
Exemple : Si temps = 3685 alors le programme affichera : 3685 s = 1 h : 1 min : 25 s
Algorithme: converison temps
variables
temps,seconde,minutes,heures,reste : entiers
Debut
ecrire("donnez le temps en seconde");
lire("temps");
heures = temps /3600;
reste = temps mod 3600;
minutes = reste /60;
secondes = minutes mod 60;
ecrire("heures vaut: ",heures);

ecrire("minutes vaut: ",minutes);
ecrire("secondes vaut: ",secondes);
Fin.
Exercice 4:
Ecrire un programme qui demande à l’utilisateur de donner le rayon d’un cercle et lui
retourne sa surface et son périmètre.
Algorithme: cercle
variable
rayon,surface,perimetre,deux: entier
constante
pie = 3.14
deux = 2
Debut
ecrire("donnez le rayon du cercle");
lire("rayon");
perimetre = deux * pie * rayon;
surface = pie * rayon * rayon;
ecrire("perimetre du cercle est: ",perimetre);
ecrire("surface du cercle est: ",surface);
Fin.
Exercice 5:
Algorithme: Calcul
variable
somme,différence,produit,quotient,N1,N2 : entier
Debut:
ecrire("donnez le premier nombre");
lire("N1");
ecrire("donnez le second nombre");
lire("N2");
somme = N1 + N2;
difference = N1 - N2;
produit = N1 * N2;
quotient = N1 / N2;
ecrire("aprés calcul: ");
ecrire("la somme est égale à: ",somme);
ecrire("la différence est égale à: ",différence);
ecrire("le produit est égale à: ",produit);
ecrire("le quotient est égale à: ",quotient);
Fin.
Exercice 6:
Algorithme : distance
Variable : d, x1, x2, y1, y2, : rééls ;
Début :
Ecrire (« donner les coordonnées du premier point ») ;
Lire(x1, y1)
Ecrire (« donner les coordonnées du second point ») ;

Lire(x2,y2)
d=sqrt(x1-x2)²+(y2-y1)²
Ecrire (« la distance entre les deux points est » d)
Fin.
Exercice 7 :
Algorithme Conversion
Variable nbrbit: entier;
Oct, Ko , Mo, Go : reel;
Debut
Ecrire (« Saisir le nombre de bit ») ;
Lire (nbrbit) ;
Oct = nbrbit /8 ;
Ko = Oct /1024 ;
Mo = Ko /1024 ;
Go = Mo /1024 ;
Ecrire (nbrbit, « bits est egal a » ,oct , « Octet »,Ko « Kilo Octet » , Mo , « Méga Octet » , Go ,
« Giga Octet ») ;
fin
Exercice 8 :
Algorithme : Extraction
Variables:
nbr,u,d,c : entier
Début
Ecrire("un nombre composé de trois chiffres");
lire(nbr);
c <---nbr div 100 ;
d <---( nbr mod 100) div 10 ;
u <---( nbr mod 100) mod 10 ;
Ecrire(nbr,"=" , C , "centaine", D, "dizaine", U,"unité" ) ;
fin
Exercice 9 :
Algorithme : Salaire_Mensuel
Constante
TI=0.25
Variable
Nbrh : entier
Shb,smb, smn : reel
Début
Ecrire ("donner le salaire horaire brute"
Lire (Shb)
Ecrire ("donner le nombre d’heures éffectuees")
Lire (Nbrh)
Smb = shb*Nbrh
Smn = smb - (smb*TI)
Ecrire ("le salaire mensuel brute est : ", smb)
Ecrire ("le salaire mensuel net est : ", smn)
Fin

Algorithme TD2

Transféré par

Informations du documentcliquez pour développer les informations du document

Droits d'auteur :

Formats disponibles

Algorithme TD2

Transféré par

Informations du document

Titre original

Copyright

Formats disponibles

Partager ce document

Partager ou intégrer le document

Options de partage

Avez-vous trouvé ce document utile ?

Ce contenu est-il inapproprié ?

Droits d'auteur :

Formats disponibles

Algorithme TD2

Transféré par

Droits d'auteur :

Formats disponibles

Exercice 1:

calcule le PHT, la TVA et le TTC.

ecrire("donnez le nombre d'articles");

ecrire("donnez le prix unitaire");

PHT = nombre_d_articles * prix_unirtaire;

TVA = PHT * TauxTVA /100;

TTC = PHT + TVA;

ecrire("le prix hors taxe est de: ",PHT);

ecrire("la TVA est de: ",TVA);

ecrire("le prix tout taxe compris est de: ",TTC);

1. En utilisant une variable intermédiaire

2. Sans utiliser une variable intermédiaire

ecrire("donnez le premier nombre");

ecrire("donnez le second nombre");

ecrire("T1 devient: ",T3);

ecrire("T2 devient: ",T1);

ecrire("T3 devient: ",T2);

ecrire("donner la valeur du premier nombre");

ecrire("donnez la valeur du deuxieme nombre");

ecrire("T1 devient: ",T2);

ecrire("T2 devient: ",T1);

Exemple : Si temps = 3685 alors le programme affichera : 3685 s = 1 h : 1 min : 25 s

Algorithme: converison temps

ecrire("donnez le temps en seconde");

heures = temps /3600;

reste = temps mod 3600;

minutes = reste /60;

secondes = minutes mod 60;

ecrire("heures vaut: ",heures);

ecrire("secondes vaut: ",secondes);

retourne sa surface et son périmètre.

ecrire("donnez le rayon du cercle");

surface = pie * rayon * rayon;

ecrire("perimetre du cercle est: ",perimetre);

ecrire("surface du cercle est: ",surface);

ecrire("donnez le premier nombre");

ecrire("donnez le second nombre");

ecrire("aprés calcul: ");

ecrire("la somme est égale à: ",somme);

ecrire("la différence est égale à: ",différence);

ecrire("le produit est égale à: ",produit);

ecrire("le quotient est égale à: ",quotient);

Variable : d, x1, x2, y1, y2, : rééls ;

Ecrire (« donner les coordonnées du premier point ») ;

Ecrire (« donner les coordonnées du second point ») ;

Ecrire (« la distance entre les deux points est » d)

Variable nbrbit: entier;

Oct, Ko , Mo, Go : reel;

Ecrire (« Saisir le nombre de bit ») ;

Ecrire("un nombre composé de trois chiffres");

c <---nbr div 100 ;

d <---( nbr mod 100) div 10 ;

u <---( nbr mod 100) mod 10 ;

Ecrire(nbr,"=" , C , "centaine", D, "dizaine", U,"unité" ) ;

Shb,smb, smn : reel

Ecrire ("donner le salaire horaire brute"

Ecrire ("donner le nombre d’heures éffectuees")

Smn = smb - (smb*TI)