programme pascal

Question

Bonjour,
cava , jai un probleme f pascal.
le programme est: il faut remplir un tableau de 10 cases,puis je doit entrer en nombre x .et l programme doit le chercher et nous affich son indice. s'il n trouv po c nombre il doit sortir evec un affichage d'un message de 'il n ya aucun nombre qui egale x" 
stp jai essayé d fair ce progamme mé j ai trouvé un pro de à chaq fois il m'affiche un indice de 11

Godboss · Answer

Bonjour,

pourrais tu nous donner ton code source ce sera plus facile pour nous
merci,

hichemhlm · Answer

salu , hichemhlm@hotmail.com
 debut
 pour c de 1 á 10 faire
 ecrire (donne un entie `,c)
lire (T[c])
fin pour
ecrire (done x)
lire (x)
pour i de 1 a 10 faire 
si x=T[i] 
alors lire(i)
sinon  n=n+1
fin pour
si n=10 
alors ecrir (il n y a pas....)
fin programme .
bizou.

greg · Answer

Ecrit une boucle while pour ta recherche d'indice, et non pas une boucle for comme je sais que tu utilises ...
Tous tes problèmes se résolveront.
A+

dwitgsi · Answer

Voilà ce que j'ai fais rapidement.
Cet algorithme fonctionne, tu peux t'en inspirer ou le recopier. :-)

program tableau;

var n, x, resul : integer;
    nbe : array[0..9] of byte;

begin

  n := 0;
  
  repeat
    writeln('Donnez un entier :');
    readln(nbe[n]);
    n := n+1;
  until n = 10;
  
  writeln('Donnez la valeur à trouver :');
  readln(x);
  n := 0;
  resul := 10;
  
  for n := 0 to 9 do
    begin
      if nbe[n] = x then
        resul := n;
    end;
  
  if resul = 10 then
    begin
      writeln('Aucun nombre n''est égal à cette valeur.');
    end
  else
    begin
      writeln('Cette valeur se trouve à la ',resul+1,'e place du tableau.');
    end;

end.

malor · Answer

slt j'ai besoin d'aide car je cherche a un prog qui permi d'affichie si le mot tappez et palindrom ou nn on utilisie les fonction  ,  palindrom= le mot qui on peut lit de agauche a adroite et le contraire est juste

ilham · Answer

program internet;
uses wincrt;
type tab=array[1..10] of real;
var a:tab;
i,indice:integer;
x:real;
begin
indice:=0;
for i:=1 to 10 do read(a[i]);
read(x);
for i:=1 to 10 do
if x=a[i] then indice:=i;
if indice=0 then write('ya aucun nombre égal à x')
else write('indice=',indice);
end.

Programme pascal

6 réponses

Votre réponse

Discussions similaires

Newsletters