Discussion :

[cartmanpro]

Voilà j'avais un devoir à rendre pour demain. La prof a demandé de rechercher un élément sur une ligne : linéaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program recherchex;
const n=3;
var v: array[1..n] of integer;
    x,i:integer;
    trouve:boolean;
begin
  for i:=1 to n do
    begin
      v[i]:=i;
    end;
  writeln('Introduire x');
  readln(x);
  trouve:=false;
  i:=1;
  while (i<=n) AND (trouve=false) do
      if v[i]=x then trouve:=true;
      i:=i+1;
    end;
  if trouve=true then writeln('x apparitent au tableau')
  else writeln('x n'appartient pas au tableau');
end.

Est-ce correct ?
Si oui, la prof me demande ensuite de retrouver : Rechercher un élément y dans un tableau de n x m éléments entiers.
Là dessus je suis coincé, donc je viens vous voir pour m'aider, car je n'y arrive pas de ce fait j'ai contacté un ami, il n'y arrive pas non plus. Merci de votre aide

[droggo]

Gio,

Non, ce n'est pas correct, car ça ne compilera pas.

Encadre ton code par les balises [*code] [*/code], sans les * qui ne servent qu'à les invalider.

[cartmanpro]

Merci

[Alcatîz]

Bonjour,

Il manque le begin au début de ta boucle while.

Petite remarque avec les booléens : tu peux remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while (i<=n) AND (trouve=false) do

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while (i<=n) AND not trouve do

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if trouve=true then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if trouve then

Au sujet de ton autre question, pour retrouver un élément dans un tableau de n x m éléments, il faut utiliser deux boucles imbriquées.

[cartmanpro]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
program recherchex;
const n=3;
var v: array[1..n] of integer;
    x,i:integer;
    trouve:boolean;
begin
  for i:=1 to n do
    begin
      v[i]:=i;
    end;
  writeln('Introduire x');
  readln(x);
  trouve:=false;
  i:=1;
begin;
  while (i<=n) AND (trouve=false) do
      if v[i]=x then trouve:=true;
      i:=i+1;
    end;
  if trouve=true then writeln('x apparitent au tableau')
  else writeln('x n'appartient pas au tableau');
end.

Merci pour les booléens, je ne vois pas par contre pour les 2 boucles imbriquées ? Je ne sais comment structurer le programme :s, serais-tu capable de m'en dire un peu plus et de me claircir un peu plus mes idées stp ?

[droggo]

Lae,

Revois la syntaxe d'une boucle while, ton code est faux.

Et essaye de poster du code qui compile, même s'il ne marche pas.

Tant que ça ne compile pas, ça ne risque pas de marcher. N'est-ce pas ?