A voir également:
- Programme pascal
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Turbo pascal download - Télécharger - Édition & Programmation
- Frequence programme national ✓ - Forum Messagerie
- Programme demarrage windows 10 - Guide
- My pascal - Télécharger - Édition & Programmation
6 réponses
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
26 mars 2008 à 00:32
Bonjour,
pourrais tu nous donner ton code source ce sera plus facile pour nous
merci,
pourrais tu nous donner ton code source ce sera plus facile pour nous
merci,
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.
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.
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+
Tous tes problèmes se résolveront.
A+
dwitgsi
Messages postés
583
Date d'inscription
samedi 10 mars 2007
Statut
Membre
Dernière intervention
10 décembre 2012
84
26 mars 2008 à 02:00
26 mars 2008 à 02:00
Voilà ce que j'ai fais rapidement.
Cet algorithme fonctionne, tu peux t'en inspirer ou le recopier. :-)
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.
dwitgsi
Messages postés
583
Date d'inscription
samedi 10 mars 2007
Statut
Membre
Dernière intervention
10 décembre 2012
84
>
r@j@@
27 mars 2008 à 00:27
27 mars 2008 à 00:27
Parfait si tu as réussi :-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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