hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Exercice corrigé : manipulation simple des tableaux
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 8 Fév - 15:22 (2011)    Sujet du message: Exercice corrigé : manipulation simple des tableaux Répondre en citant

PublicitéSupprimer les publicités ?

ENONCE:

Ecrire un programme qui permet de:

1. remplir un tableau de N entiers (2<50).
2. afficher tous les éléments du tableau.
3. calculer le nombre d'entiers pairs qui existent dans le tableau.
4. calculer la moyenne du tableau.
5. calculer le produit des entiers non nul du tableau


solution


program tab01;

uses wincrt;

type

TAB = array[1..50] of integer;

{ ************************************************** **** }

procedure saisie_tab(var n: integer; var T: TAB);
var
i: integer;
begin

repeat
write('Dimension du tableau: ');
readln(n);
until (n in [3..49]);

Writeln('Remplissage du tableau:');
for i:=1 to n do
begin
write('T[',i,'] = ');
readln(T[i]);
end;
end;

{ ************************************************** **** }

procedure affiche_tab(n: integer; T: TAB);
var
i:integer;
begin

Writeln('Affichage du tableau:');
for i:=1 to n do
writeln('T[',i,'] = ',T[i]);

end;

{ ************************************************** **** }

function calcul_pair(n:integer; T: TAB):integer;
var
nbr,i: integer;
begin
nbr := 0;
for i:=1 to n do
if (T[i] mod 2 = 0) then
nbr := nbr + 1;

calcul_pair := nbr;
end;

{ ************************************************** **** }
function calcul_moy(N:integer;T:tab):real;
var
i:integer;
som:integer;
begin
som := 0;
for i:=1 to n do
som := som + T[i];


calcul_moy := som / n;
end;

{************************************************* *********}
function calcul_prod(N:integer;T:TAB):integer;
var
i,pr:integer;

begin
pr:=1;
for i:=1 to n do
if (T[i]<>0) then
pr:= pr*T[i] ;

calcul_prod := pr;
end;
{************************************************* *********=}
var

N: integer;
T: TAB;
x: integer;
m: real;
p: integer;
begin



saisie_tab(N,T);

affiche_tab(N,T);

x := calcul_pair(N,T);
writeln('Il existe ',x,' entiers pairs dans T.');

m := calcul_moy(N,T);
writeln('La moyenne du tableau est: ',m:2:2);

p:= calcul_prod(N,T);
writeln('le produit du tableau est: ',p);
end.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 11:25 (2016)    Sujet du message: Exercice corrigé : manipulation simple des tableaux

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation