Discussion :

[The future scientist]

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 :

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

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

[M.Dlb]

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 :

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

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

[Haywire]

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??

Code :

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

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

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

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
 
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

[droggo]

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.

[Loceka]

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.

[The future scientist]

Code :

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

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 , ou est elle l'erreur
patientez avec moi, je m'excuse

[The future scientist]

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

Code :

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

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

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

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
 
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

[Haywire]

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 :

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

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

si x vaut 2 cela affichera:

x est pairle carré de x est 4

Code :

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

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

si x vaut 2 cela affichera:

x est pair
le carré de x est 4

[The future scientist]

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 :

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

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

si x vaut 2 cela affichera:

Code :

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

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
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!

[Haywire]

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.

[Loceka]

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

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...).

[The future scientist]

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

[gadalla]

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

[gadalla]

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

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 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.

[gadalla]

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

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 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.

[The future scientist]

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

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 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