Série: Les Sous Programmes

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

Exercice 1 Série: Les Sous Programmes Amour_12

:

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

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

Exercices 2 Série: Les Sous Programmes Amour_12

:

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}

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

Exercice 3 Série: Les Sous Programmes Amour_12

:

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.

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

Exercices 4 Série: Les Sous Programmes Amour_12

:

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

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

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.forumsactifs.com *********************');
saisir (n) ;
lecture (t1,n) ;
remplir (t2,t1,n) ;
affiche (t2,n) ;
end.

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

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.forumsactifs.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.

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

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.forumsactifs.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.

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

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.forumsactifs.com ****************');
saisir(m) ;
saisir (n) ;
remplir(a,m,n) ;
affiche (a,m,n) ;
end.