[TP] Nombres pairs et impairs

j'ai un autre problème dans un autre énoncé:
Ecrire un algo et sa traduction en pascal qui permet de:
- afficher un message"entier pair" et calculer le carré de l'entier si l'entier donnée par l'utilisateur est paire.
- Afficher un message"entier impaire" et calculer la racine carré de l'entier si l'entier donnée par l'utilisateur est impair

Pascal ( mon travail)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Program p1; uses wincrt; var x:integer; begin writeln('donner la valeur de x'); readln(x); if(x est pair) then begin write('x est pair') write('le carré de x est',sqr(x)'); end else begin write('x est impair'); write('le racine carré de x est',sqrt(x)'); end;

---

l'erreur est affiché en if...' expression boleenne attendue'

Pouvez vous m'aider??
Ne dites pas que je suis idiote, il y a des prog que j'ai réussi quand meme:oops: ;)

La condition x est pair n'est pas résolvable par le compilateur, du moins pas sous cetet forme. if attend comme condition une expression booléenne pouvant être déterminée. Pour déterminer si un nombre est pair ou impair, il suffit de tester si le reste de sa division euclidienne par 2 vaut 0 ou 1. Si 0, pair, si 1 impair. L'opérateur utilisé est le modulo % :

Code:

---

if (x % 2 = 0) then {pair} else {impair}

---

Citation:

---

Envoyé par wormful_sickfoot

La condition x est pair n'est pas résolvable par le compilateur

---

Quel dommage ! A quand un langage où il suffira d'écrire ce qu'on veut en français pour que l'ordinateur le fasse?? :mrgreen:

Code:

---

1 2	Demande un nombre à l'utilisateur, si ce nombre est pair dis lui, sinon dis lui qu'il ne l'est pas, ensuite prépare moi un café sans sucre

---

:king:

Bon pour ne pas poster juste pour déconner je vais anticiper tes deux prochaines erreurs de compilation.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Program p1; uses wincrt; var x:integer; begin writeln('donner la valeur de x'); readln(x); if (x % 2 = 0) then begin write('x est pair') // mieux vaut utiliser writeln, l'affichage sera plus propre write('le carré de x est',sqr(x)'); // idem et aussi il faut supprimer le dernier "'" sinon erreur de compil end else begin write('x est impair'); // writeln write('le racine carré de x est',sqrt(x)'); // writeln et de nouveau le "'" end; end. // il manquait ce end, l'identation le montre clairement

---

Kal,

En Pascal, on dispose de Odd qui renvoie true si la valeur est impaire.

Mais comme je ne l'ai que très rarement utilisée, je ne sais plus si c'est standard ou si ça dépend du compilateur.

Très franchement, il ne sert à rien de se lancer dans un langage sans en connaître les bases. Lis des cours et des tutoriaux, ne serait-ce que sur la syntaxe (begin, end, if, for, while, les ";", les ":=", les "=") etc.

Je te conseille aussi d'utiliser un IDE (ça peut être un éditeur de texte) qui fasse de la coloration syntaxique pour Pascal, ça aide pas mal. Là par exemple tu vois au premier coup d'oeil que ton code ne va pas compiler.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Program p1; uses wincrt; var x:integer; begin writeln('donner la valeur de x'); readln(x); if(x%2=0) then write('x est pair') write('le carré de x est',sqr(x)'); end else begin write('x est impair'); write('le racine carré de x est',sqrt(x)'); end;

---

Erreur de syntaxe elle est devenue:cry: , ou est elle l'erreur
patientez avec moi, je m'excuse:oops:

Citation:

---

Envoyé par Mushroom7

Quel dommage ! A quand un langage où il suffira d'écrire ce qu'on veut en français pour que l'ordinateur le fasse?? :mrgreen:

Code:

---

1 2	Demande un nombre à l'utilisateur, si ce nombre est pair dis lui, sinon dis lui qu'il ne l'est pas, ensuite prépare moi un café sans sucre

---

:king:

Bon pour ne pas poster juste pour déconner je vais anticiper tes deux prochaines erreurs de compilation.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Program p1; uses wincrt; var x:integer; begin writeln('donner la valeur de x'); readln(x); if (x % 2 = 0) then begin write('x est pair') // mieux vaut utiliser writeln, l'affichage sera plus propre write('le carré de x est',sqr(x)'); // idem et aussi il faut supprimer le dernier "'" sinon erreur de compil end else begin write('x est impair'); // writeln write('le racine carré de x est',sqrt(x)'); // writeln et de nouveau le "'" end; end. // il manquait ce end, l'identation le montre clairement

---

---

quelle est la difference entre writeln et write??? pourquoi de preference writeln??

Et merci
:king:

Write affiche une chaine de caractère et laisse le curseur à la fin de la chaine.
Writeln affiche une chaine et passe le curseur à la ligne.

Exemple concret:

Code:

---

1 2 3

write('x est pair'); write('le carré de x est ',sqr(x));

---

si x vaut 2 cela affichera:

Citation:

---

x est pairle carré de x est 4

---

Code:

---

1 2 3

writeln('x est pair'); writeln('le carré de x est ',sqr(x));

---

si x vaut 2 cela affichera:

Citation:

---

x est pair
le carré de x est 4

---

Citation:

---

Envoyé par Mushroom7

Write affiche une chaine de caractère et laisse le curseur à la fin de la chaine.
Writeln affiche une chaine et passe le curseur à la ligne.

Exemple concret:

Code:

---

1 2 3

write('x est pair'); write('le carré de x est',sqr(x));

---

si x vaut 2 cela affichera:

Code:

---

1 2 3

writeln('x est pair'); writeln('le carré de x est',sqr(x));

---

si x vaut 2 cela affichera:

---

Merci de me faire comprendre:D
au code writeln('le carré de x est',sqr(x)); il parait une erreur signe " ' " attendu, mais pourquoi??? meme si je le remet c'est la meme erreur!

Tu en as peut-être mis un en trop dans un writeln précédent.
Il faudrait voir le code complet pour trouver l'erreur.

Mushroom : Elle a déjà posté 2 fois le code où apparaissait l'erreur. :P

C'est pour ça que j'avais dit dans un post antérieur que l'utilisation d'un IDE avec coloration syntaxique était bien pratique et que ça aidait à trouver les erreurs d'étourderie comme celle-là parce qu'elle sautaient aux yeux... Apparement j'avais tort.

Bref, The future scientist regarde dans les code que tu as posté sur le forum et tu remarqueras que certains mots sont écris dans une couleur qu'ils ne devraient pas avoir... Après il ne te reste plus qu'à localiser la cause du problème (qui n'est pas très loin de la mauvaise coloration...).

Merci
je vais lire les cours aujoudrd'hui avec concentration, puisque le devoir d'informatique est demin.8-)
Et puis, je resoudrerai le problème toute seule avec votre aide biensur;)
Bonne journée

:lol: bonjour
le programme paire et inpaire et un programme facille dans le programme de 3eme math
ce' soir je vais te donner une methode tres facile et fiable

voici la premier méthode :mrgreen: et je vai te envoyé une deuxiemme avec *odd*

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

program pairinp ; uses wincrt; var n:integer; a:real; begin writeln('donner un entier'); readln(n); if (n mod 2) =0 then begin writeln('entier paire'); a:= sqr(n); writeln('le carré est ',a); end else begin writeln('entier impaire'); a:=sqrt(n); writeln('le racine carré est ',a); end; end.

---

salut weld bladi voici la deuwieme méthode avecla fonction odd

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

program pairinp ; uses wincrt; var n:integer; a:real; begin writeln('donner un entier'); readln(n); if odd(n) = true then begin writeln('entier impaire'); a:=sqrt(n); write('le racine carré est ',a:2:2); end else begin writeln('entier paire'); a:= sqr(n); write('le carré est ',a:2:2); end; end.

---

Citation:

---

Envoyé par gadalla

voici la premier méthode :mrgreen: et je vai te envoyé une deuxiemme avec *odd*

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

program pairinp ; uses wincrt; var n:integer; a:real; begin writeln('donner un entier'); readln(n); if (n mod 2) =0 then begin writeln('entier paire'); a:= sqr(n); writeln('le carré est ',a); end else begin writeln('entier impaire'); a:=sqrt(n); writeln('le racine carré est ',a); end; end.

---

---

Merci, c'est une bonne methode