hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Tue 8 Feb - 15:23 (2011)    Post subject: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Reply with quote

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
Publicité






Posted: Tue 8 Feb - 15:23 (2011)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
r.nsiri
recent membre
recent membre

Offline

Joined: 09 Jan 2009
Posts: 231
Masculin
Point(s): 273
Moyenne de points: 0

Posted: Sun 27 Mar - 07:42 (2011)    Post subject: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Reply with quote

Okay Okay Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
benmeftehsondes


Offline

Joined: 26 Nov 2008
Posts: 3
Féminin
Point(s): 10
Moyenne de points: 0

Posted: Sun 17 Apr - 12:39 (2011)    Post subject: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Reply with quote

Merci beaucoup pour vos efforts  Okay

 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Mon 18 Apr - 21:46 (2011)    Post subject: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre Reply with quote

DE RIEN  Okay

 
Revenir en haut
Contenu Sponsorisé






Posted: Today at 06:41 (2019)    Post subject: Exercice corrigé: Remplissage aléatoire de tableau, min, max, nombre

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation