Sujet Précédent Sujet Suivant

Programme pascal

Fermé
programme pascal - 25 mars 2008 à 22:02
 ilham - 7 mai 2008 à 23:26
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
A voir également:

6 réponses

Réponse 1 / 6
Godboss Messages postés 69 Date d'inscription lundi 4 février 2008 Statut Membre Dernière intervention 18 juin 2009 18
26 mars 2008 à 00:32
Bonjour,

pourrais tu nous donner ton code source ce sera plus facile pour nous
merci,
0
Réponse 2 / 6
hichemhlm
26 mars 2008 à 01:12
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.
0
Réponse 3 / 6
greg
26 mars 2008 à 01:16
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+
0
Réponse 4 / 6
dwitgsi Messages postés 584 Date d'inscription samedi 10 mars 2007 Statut Membre Dernière intervention 10 décembre 2012 84
26 mars 2008 à 02:00
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.
0
r@j@@
27 mars 2008 à 00:07
merci bcppp. j ai trouvé la solution avec les procedures,et avec un type de tableau. merci bcp pour ton aide
0
dwitgsi Messages postés 584 Date d'inscription samedi 10 mars 2007 Statut Membre Dernière intervention 10 décembre 2012 84 > r@j@@
27 mars 2008 à 00:27
Parfait si tu as réussi :-)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
malor
6 mai 2008 à 13:21
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
0
Réponse 6 / 6
ilham
7 mai 2008 à 23:26
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.
0

Discussions similaires

programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
Pourquoi Program files (x86) et Programmes?
peer_at -
abdelhak -

7 réponses
"BONJOUR" : utilité de ce programme???
sunbeep -
onizukaille -

5 réponses
TV LG affiche le carré non programmé
Chantal Joubert -
Evancarreaujoho -

4 réponses
GWXUX a cessé de fonctionner
ikam -
Adakhum -

9 réponses