recherche dans un vecteur
Page 1 sur 1
recherche dans un vecteur
ÉNONCÉ
Ecrire une analyse, un algorithme et une traduction pascal d’un programme intitulé CHERCHER permettant de saisir un entier A et de remplir par la suite un vecteur V et d’afficher l’indice de la case de V ou se trouve la valeur A si elle existe dans le tableau, sinon il doit afficher « n’existe pas »
PASCAL
program chercher;
uses wincrt;
const n=5; {on a supposé que la taille du vecteur est 5}
var {on peut aussi saisir n, donc ca sera readln(n),si on veut un cas plus general}
i,a:integer;
v:array[1..n] of integer;
trouve:boolean;
begin
writeln('donner un entier');
readln(a);
for i:=1 to n do {la boucle for commence par i=1 et se termine à n=5}
begin
writeln('donner entier n°:',i); {le writeln et readln sont ici pour le remplissage du tableau}
readln (v[i]);
end;
i:=0;
trouve:=false; {trouve est initialisée à false, au début, on suppose qu’on n’as pas trouvé a}
repeat
i:=i+1; {c’est pour l’incrémentation du compteur i}
if v[i]=a then trouve:=true;
until (i=n) or (trouve);
if trouve then write('la position de cet entier recherché est:',i)
else write('cet entier saisi ne se trouve pas dans le vecteur v');
end.
Ecrire une analyse, un algorithme et une traduction pascal d’un programme intitulé CHERCHER permettant de saisir un entier A et de remplir par la suite un vecteur V et d’afficher l’indice de la case de V ou se trouve la valeur A si elle existe dans le tableau, sinon il doit afficher « n’existe pas »
PASCAL
program chercher;
uses wincrt;
const n=5; {on a supposé que la taille du vecteur est 5}
var {on peut aussi saisir n, donc ca sera readln(n),si on veut un cas plus general}
i,a:integer;
v:array[1..n] of integer;
trouve:boolean;
begin
writeln('donner un entier');
readln(a);
for i:=1 to n do {la boucle for commence par i=1 et se termine à n=5}
begin
writeln('donner entier n°:',i); {le writeln et readln sont ici pour le remplissage du tableau}
readln (v[i]);
end;
i:=0;
trouve:=false; {trouve est initialisée à false, au début, on suppose qu’on n’as pas trouvé a}
repeat
i:=i+1; {c’est pour l’incrémentation du compteur i}
if v[i]=a then trouve:=true;
until (i=n) or (trouve);
if trouve then write('la position de cet entier recherché est:',i)
else write('cet entier saisi ne se trouve pas dans le vecteur v');
end.
Sujets similaires
» recherche dans un tableau
» Existence d'un mot dans une chaîne
» étendu dans un tableau
» max min et moyenne dans un intervalle
» nb d'apparence d'un caractère dans un tableau
» Existence d'un mot dans une chaîne
» étendu dans un tableau
» max min et moyenne dans un intervalle
» nb d'apparence d'un caractère dans un tableau
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum