recherche dans un vecteur

Aller en bas

recherche dans un vecteur

Message  Admin le Ven 11 Mar - 12:57

É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.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum