Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 Série: Les Sous Programmes

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Série: Les Sous Programmes   Jeu 4 Jan - 19:40

Exercice 1 :



Soit un tableau T1 de n élément (1<= n <= 100). Les élément de T1 sont des entiers naturels de trois chiffres. On se propose de remplir un tableau T2 de la façon suivante :

T2[i] est égal à la somme des carrés des chiffres de T1[i].

Exemple :

Si T1[i] = 254 alors T2[i] = 2puissance2 + 5puissance2 + 4puissance2


Ecrire un algorithme et sa traduction en Pascal qui permet de saisir les élément de T1, de remplir puis d’afficher le tableau T2

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 4 Jan - 19:45

Exercices 2 :

Deux entiers naturels strictement positifs m et n sont dits amis si et seulement si :
La somme des diviseurs de m sauf lui-même est égale à n
Et la somme des diviseurs de n sauf lui-même est égale à m
Exemple :
220 et 284 sont deux nombres amis, en effet :
D284 = {1,2,4,71,142,284}
D220 = {1,2,4,5,10,11,20,22,44,55,110,220}


Dernière édition par le Jeu 4 Jan - 19:54, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 4 Jan - 19:48

Exercice 3 :



Une anagramme est un mot obtenu par transposition des lettres d’un autre mot (par exemple chien, chine sont des anagrammes du mot niche).

Ecrire un programme Pascal qui permet de saisir deux mots non vides MOT1 et MOT2 puis de déterminer si MOT2 est une anagramme de MOT1.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 4 Jan - 19:52

Exercices 4 :



Soit une matrice de réels de dimension (m,n) avec 2<n<6 et 2<m<6 on veut écrire un programme qui permet d’afficher le nombre des élément strictement positifs par ligne

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: correction: exercice 1   Jeu 11 Jan - 19:03

mtcs a écrit:
Exercice 1 :



Soit un tableau T1 de n élément (1<= n <= 100). Les élément de T1 sont des entiers naturels de trois chiffres. On se propose de remplir un tableau T2 de la façon suivante :

T2[i] est égal à la somme des carrés des chiffres de T1[i].

Exemple :

Si T1[i] = 254 alors T2[i] = 2puissance2 + 5puissance2 + 4puissance2


Ecrire un algorithme et sa traduction en Pascal qui permet de saisir les élément de T1, de remplir puis d’afficher le tableau T2




program somme_carre ;
uses wincrt ;
type
tab = array [1..100] of integer ;
var
t1,t2 : tab ;
n : integer ;

procedure saisir (var n: integer) ;
begin
repeat
write('n= ') ;
readln(n) ;
until n in [1..100] ;
end ;

procedure lecture (var t:tab ; n:integer) ;
var
i : integer ;
begin
for i:= 1 to n do
begin
repeat
readln(t[i]) ;
until (t[i] in [100..220]) ;

end ;

procedure affiche (var t:tab ; n:integer) ;
var
i : integer ;
begin
for i:= 1 to n do
begin
writeln (t[i]) ;
end ;
end ;

function somme (x:integer):integer ;
var
u,d,c,s : integer ;
begin
c:= x div 100 ;
d:= (x div 10) mod 10 ;
u:= x mod 10 ;
s:= sqr(u)+sqr(d)+sqr(c) ;
somme:= s ;
end ;


procedure remplir (var t2:tab ; t1:tab ; n:integer) ;
var
i : integer ;
begin
for i:= 1 to n do
begin
t2[i]:= somme(t1[i]) ;
end ;
end ;

begin
writeln (' *************** programmation.megabb.com *********************');
saisir (n) ;
lecture (t1,n) ;
remplir (t2,t1,n) ;
affiche (t2,n) ;
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 11 Jan - 19:05

mtcs a écrit:
Exercices 2 :

Deux entiers naturels strictement positifs m et n sont dits amis si et seulement si :
La somme des diviseurs de m sauf lui-même est égale à n
Et la somme des diviseurs de n sauf lui-même est égale à m
Exemple :
220 et 284 sont deux nombres amis, en effet :
D284 = {1,2,4,71,142,284}
D220 = {1,2,4,5,10,11,20,22,44,55,110,220}



program amis ;
uses wincrt ;
var
m,n : integer ;

procedure saisir (var x : integer) ;
begin
repeat
writeln ('saisir un entier');
readln (x) ;
until (x > 0) ;
end ;

function somme_diviseur (e:integer): integer ;
var
i,sd : integer ;
begin
sd:= 0 ;
for i:= 1 to e div 2 do
begin
if e mod i=0 then
sd:= sd+i ;
end ;
somme_diviseur:= sd ;
end ;

begin
writeln ('******************* programmation.megabb.com *************************');
saisir (m) ;
saisir (n) ;
if (somme_diviseur(m)=n) and (somme_diviseur(n)=m) then
write('m et n sont amis')
else
write('ils ne sont pas amis') ;
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 11 Jan - 19:09

mtcs a écrit:
Exercice 3 :



Une anagramme est un mot obtenu par transposition des lettres d’un autre mot (par exemple chien, chine sont des anagrammes du mot niche).

Ecrire un programme Pascal qui permet de saisir deux mots non vides MOT1 et MOT2 puis de déterminer si MOT2 est une anagramme de MOT1.



program existe ;
uses wincrt ;
var
mot1,mot2 : string ;

procedure saisir (var ch:string);
var
i:integer ;
begin
repeat
writeln ('saisir un mot');
readln(ch);
until (ch<>'') ;
end ;

function anagramme (ch1,ch2:string): boolean ;
var
i:integer ;
begin
i:= 1 ;
while (pos(ch2[i],ch1)<>0) and (i<= length(ch2)) do
begin
delete(ch1,pos(ch2[i],ch1),1) ;
i:= i+1 ;
end ;
anagramme:= (ch1='') and (i> length(ch2)) ;
end ;


begin
writeln ('******************* programmation.megabb.com *****************');
saisir(mot1);
saisir(mot2);
if anagramme(mot1,mot2) then
write('les deux mots sont anagrammes')
else
write('les deux mots ne sont pas une anagrammes');
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 11 Jan - 19:10

mtcs a écrit:
Exercices 4 :



Soit une matrice de réels de dimension (m,n) avec 2<6 et 2<6 on veut écrire un programme qui permet d’afficher le nombre des élément strictement positifs par ligne



program nombre_po ;
uses wincrt ;
type
mat= array [1..5,1..5] of real ;
var
a: mat ;
n,m :integer ;

procedure saisir(var x:integer) ;
begin
repeat
writeln (' saisir la dimension');
readln(x) ;
until (x in [3..5]) ;
end;

procedure remplir (var a:mat ; m,n:integer);
var
i,j:integer ;
begin
for i:= 1 to m do
begin
for j:= 1 to n do
begin
readln(a[i,j]) ;
end ;
end ;
end ;

procedure affiche (a:mat ; m,n:integer) ;
var
nb,i,j:integer ;
begin
for i:= 1 to m do
begin
nb:= 0 ;
for j:= 1 to n do
begin
if a[i,j] > 0 then
nb:= nb+1 ;
end ;
writeln('le nombre d"elements positifs de la ligne ',i,' est = ',nb) ;
end ;
end ;

begin

writeln ('***************** programmation.megabb.com ****************');
saisir(m) ;
saisir (n) ;
remplir(a,m,n) ;
affiche (a,m,n) ;
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 11 Jan - 19:35

LES FICHIERS EXECUTABLES DE LES EXERCICES
TANGOUR20@GMAIL.COM
ici
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur


Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: Série: Les Sous Programmes   Ven 19 Jan - 22:15

mille merci cher ami
je sui un éléve en 3eme année Info
et je trouve ces exercices trés utiles

Very Happy Very Happy Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Dim 21 Jan - 15:36

chakerbh a écrit:
mille merci cher ami
je sui un éléve en 3eme année Info
et je trouve ces exercices trés utiles

Very Happy Very Happy Very Happy


Embarassed Embarassed Embarassed Embarassed
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mozilla26
Nouveau
Nouveau


Nombre de messages : 3
Date d'inscription : 25/01/2007

MessageSujet: Re: Série: Les Sous Programmes   Jeu 25 Jan - 13:11

Merci Beaucoup
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Jeu 25 Jan - 13:17

mozilla26 a écrit:
Merci Beaucoup

de rien mon ami
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Scorshy
utilisateur régulier
utilisateur régulier


Nombre de messages : 78
Age : 27
Date d'inscription : 18/02/2007

MessageSujet: Re: Série: Les Sous Programmes   Dim 18 Fév - 22:26

Ces exercices sont trop coool !!


je révise avec ,pour le prochain devoir !!
merci!!!!!!!!!!!!!:&":
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
babina
utilisateur professionnel
utilisateur professionnel


Nombre de messages : 207
Age : 28
Date d'inscription : 05/12/2006

MessageSujet: Re: Série: Les Sous Programmes   Lun 19 Fév - 14:01

merci beaucoup
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://mtcs-soft.jeun.fr
mtcs
Administrateur
Administrateur


Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Série: Les Sous Programmes   Lun 19 Fév - 16:57

merci à vous mes amis
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
aydahamzaoui
Nouveau
Nouveau


Nombre de messages : 1
Age : 29
Date d'inscription : 14/04/2013

MessageSujet: Re: Série: Les Sous Programmes   Dim 14 Avr - 13:57

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Série: Les Sous Programmes   

Revenir en haut Aller en bas
 
Série: Les Sous Programmes
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Bibliothèque de sous-programmes
» les sous-programmes, les variables globales et locales
» quels services et programmes puis-je désactiver au démarrage [résolu]
» pc sous vista lent
» suppression des programmes au demarrage [résolu]

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: