Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 aide sur exercice

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
dorsaf
Nouveau
Nouveau


Nombre de messages : 12
Date d'inscription : 29/11/2007

MessageSujet: aide sur exercice   Sam 2 Fév - 11:35

salut je veux la correction de l'exercice 2 page 174 du livre 3 si


Dernière édition par le Lun 4 Fév - 13:04, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

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

MessageSujet: Re: aide sur exercice   Dim 3 Fév - 11:30

Poste l'excercice, pourque ceux qui n'ont pas de livre de 3ème informatique puisse t'aider aussi !!! (et j'en fait partie :))
Tu devrai aussi, proposer ta méthode et on te la corrigera !!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
4scinfo
Nouveau
Nouveau


Nombre de messages : 4
Date d'inscription : 05/02/2008

MessageSujet: Re: aide sur exercice   Mar 5 Fév - 14:52

Chaker a écrit:
Poste l'excercice, pourque ceux qui n'ont pas de livre de 3ème informatique puisse t'aider aussi !!! (et j'en fait partie :))
Tu devrai aussi, proposer ta méthode et on te la corrigera !!
voici l'enonce de l'exercice
Exercice N°2:
Soit un tableau T de N entiers (on suppose que N>=), on veut déterminer et afficher le Kiéme plus petit élément (1<= k <= N) et l'indice de sa première apparition dans le tableauT.

Exemple :
Soit le tableau T suivant :
T --> 5 | 2 | 7 | 2 | 1 | 4 | 9 | 1 | 1
Le 3éme élément minilale est 4 et l'indice de sa preimère apparition est 6.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ammouna8208
Nouveau
Nouveau


Nombre de messages : 3
Date d'inscription : 02/02/2008

MessageSujet: Re: aide sur exercice   Dim 10 Fév - 20:33

Bonsoir TLM,
Ex 2 P.174
program kppe;
uses wincrt;
type
tab=Array[1..50] of integer;
var
t,t1:tab;
k,n,pet:integer;
trouve:boolean;
{******saisie de t et n **************}
procedure saisie(var v:tab; var x:integer);
var
i:integer;
begin
repeat
write ('dimention du tableau:');readln(x);
until
x >=2 ;
for i :=1 to x do
begin
write ('l''élement ',i,': ');
read(v[i]);
end;
end;
{************copie****************}
procedure copie(var v1:tab;v:tab ; x:integer);
var
i:integer;
begin
for i :=1 to x do
v1[i]:=v[i];

end;
{************permut*********}
procedure permut (var x :integer; var y:integer);
var
aux:integer;
begin
aux:=x;
x:=y;
y:=aux;
end;
{********trie de t*******************}
procedure trie (var v1: tab; x:integer);
var
i:integer;
permuter:boolean;
begin
repeat
permuter:=false;
for i:= 1 to x-1 do
if v1[i]>v1[i+1] then
begin
permut(v1[i],v1[i+1]);
permuter:=true;
end;

until permuter = false;
end;
{***************recherche******************}
procedure recherche(k:integer;v1:tab;x:integer; var existe:boolean; var petit:integer);
var
i,pt:integer;
begin
pt:=0;
i:=1;
repeat
if v1[i] <> v1[i+1] then
pt:=pt+1;
i:=i+1;
until (pt = k) or (i>x);
if(pt=k) then
begin
existe:=true;
petit:=v1[i-1];
end
else
existe:=false;
end;
{***********affich de t**********}
procedure affich (v:tab ; x: integer);
var
i: integer;
begin
for i:=1 to x do
write (v[i],' ');
end;
{**********indice********************}
function indice(v:tab;x,petit:integer):integer;
var
i:integer;
begin
i:=0;
repeat
i:=i+1;
until (v[i] = petit);
indice:=i;
end;
{************ program principale*********}
BEGIN
saisie (t,n);
copie(t1,t,n);
write('Plus petit n° : ');readln(K);
trie (t1,n);
recherche(k,t1,n,trouve,pet);
clrscr;{effacer l'écran}
affich (t,n);
writeln;
if(trouve) then
write('le kppe=',pet,'son indice=',indice(t1,n,pet))
else
write('le kppe n''existe pas');
END.

Bonne réception
Imen
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: aide sur exercice   

Revenir en haut Aller en bas
 
aide sur exercice
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» besion d'aide language html lecteur de musique !! (Résolu)
» Aide TC Gold en français
» [résolu]Message d'erreur ... Besoin d'aide !
» pc lent, besoin d'aide.......
» De l'aide sur autocad!!!

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