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é: Remplissage aléatoire de tableau, min, max, nombre
 
 
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:23 (2011)    Sujet du message: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Répondre en citant

PublicitéSupprimer les publicités ?
ENONCE

On se propose de remplir aléatoirement un tableau T de n (5<n<50) entiers de l'intervalle [a, b] où a<b, deux entiers saisis par l'utilisateur.

1) Déterminer le max, le min ainsi que leurs rangs dans le tableau T.
2) Déterminer le nombre d'entiers de T qui sont supérieurs à la moyenne
M = (max + min)/2.

EXEMPLE

n = 7, a = 10, b = 20,
T = {12,10,17,14,10,13,15}.
min = 10, max = 17, M = 13.5,
Il y a 3 nombres supérieurs à 13.5





solution

program random1;
uses wincrt;
type
TAB = array[1..100] of integer;

procedure saisie(var n:integer; var a:integer; var b:integer);
begin
repeat
write('Taille du tableau = ');
readln(n);
until (n>=5) and (n<=50);
write('a = ');
readln(a);
repeat
write('Entrer un entier (b) supérieur à ',a,'= ');
readln(b);
until (b>a);
end;

procedure remplissage(var T:TAB; n,a,b:integer);
var
i:integer;
begin
for i:=1 to n do
begin
T[i] := a + random(b-a+1);
end;
end;

procedure afficher(T:TAB;n:integer);
var i:integer;
begin
for i:=1 to n do
writeln('T[',i,'] = ',T[i]);
end;
procedure minmax(T:TAB;n:integer;var pmin,pmax:integer);
var
i: integer;
begin
pmin:=1;
pmax:=1;
for i:=2 to n do
begin
if (T[i]<T[pmin]) then
pmin := i;
if (T[i]>T[pmax]) then
pmax := i;
end;
end;

function nombre(T:TAB;n:integer;M:real):integer;
var
i,nbr: integer;
begin
nbr := 0;
for i:=1 to n do
if (T[i]>=M) then
nbr := nbr + 1;
nombre := nbr;
end;

var
n,a,b,pmin,pmax: integer;
M: real;
T:TAB;
begin
randomize;
saisie(n,a,b);
remplissage(T,n,a,b);
afficher(T,n);
minmax(T,n,pmin,pmax);
M := (T[pmin] + T[pmax]) / 2;
writeln('MIN = ',T[pmin],', POSMIN = ',pmin);
writeln('MAX = ',T[pmax],', POSMAX = ',pmax);
writeln('NOMBRE D''ENTIERS SUPERIEUR A ',M:2:2,' = ',nombre(T,n,M));
end.




 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Dim 27 Mar - 07:42 (2011)    Sujet du message: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Répondre en citant

Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
benmeftehsondes


Hors ligne

Inscrit le: 26 Nov 2008
Messages: 3
Féminin
Point(s): 10
Moyenne de points: 0

Posté le: Dim 17 Avr - 12:39 (2011)    Sujet du message: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Répondre en citant

Merci beaucoup pour vos efforts  Okay

 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Lun 18 Avr - 21:46 (2011)    Sujet du message: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Répondre en citant

DE RIEN  Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:25 (2016)    Sujet du message: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre

 
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