Discussion :

[cheenwee]

on nous propose d'écrire un programme en PASCAL qui essaie de faire deviner un nombre entier compris entre 1 et 100.
L’utilisateur propose un nombre entier
le programme répond par (+) si le nombre est plus grand
ou (-) si le nombre est plus petit
un message indiquant que le joueur à trouver le nombre égal au nombre à deviner?

[Alcatîz]

Même pas une petite formule de politesse ?

Bonjour,

Si vous voulez obtenir de l'aide, vous devez au moins indiquer quels problèmes vous rencontrez. Avec l'énoncé tout seul, difficile de deviner. Donc, postez votre code et détaillez vos difficultés.

[cheenwee]

Même pas une petite formule de politesse ?

Bonjour,

Si vous voulez obtenir de l'aide, vous devez au moins indiquer quels problèmes vous rencontrez. Avec l'énoncé tout seul, difficile de deviner. Donc, postez votre code et détaillez vos difficultés.

bonsoir!!!
je suis vraiment désolé de ne pas avoir user de mot de politesse mais sans être impoli ce qui n'est pas de ma nature.

[cheenwee]

Si vous voulez obtenir de l'aide, vous devez au moins indiquer quels problèmes vous rencontrez. Avec l'énoncé tout seul, difficile de deviner. Donc, postez votre code et détaillez vos difficultés.

Salut
Voici le programme que j'ai pu écrire selon les données que j'ai énoncées avant :

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 devinette;
USES CRT;
N,Y: integer;
+,-: char;
VAR
begin
repeat;
writeln ('Donner un nombre ',N)
writeln (N); y:=55
if N<Y then writeln ('-');
else if N>Y then writeln ('+')
     else writeln ('Bravo vous avez gagné')
until N=Y
end.

Le problème est que ce programme ne s’exécute pas !!!
Erreur 36 : begin expected sur la déclaration des valeurs N,Y !!!

[Alcatîz]

Salut,

N et Y étant des variables, elles doivent être précédées du mot-clé var :

Code :

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

1
2
VAR
  N,Y: integer;

Et cette déclaration :

Code :

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

+,-: char;

est incorrecte syntaxiquement (+ et - sont des opérateurs) et inutile.

[cheenwee]

Bonjour
je suis débutant dans le domaine...vous avez bien préciser le problème...après correction tout est rentrer dans l'ordre
merçi

[cheenwee]

Bonsoir
j'ai écrit ce code et je voulais l'optimiser... est-ce que c'est possible ?

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
var
  T: array[1..100] of integer;
  k,i,n,x,pos:integer;
begin
  writeln ('entrer le nombre de valeur');
  readln (n);
  for i:= 1 to n do
    begin
      writeln ('enter un chiffre');
      readln (T[i]);
    end;
  for k:=1 to n-1 do
    begin
      pos:=k;
      for i:= k+1 to n do
        begin
          if T[i]>T[pos] then
            pos:=i;
        end;
      x:=T[k];
      T[k]:=T[pos];
      T[pos]:=x;
    end;
  i:=1;
  k:=n;
  while i<k do begin
      x:=T[i];
      t[i]:=t[k];
      t[k]:=x;
      i:=i+1;
      k:=k-1;
    end;
  writeln(' ');
  writeln(' ');
  writeln('le tri');
  writeln(' ');
  writeln(' ');
  for i:=1 to n do
    writeln (T[i]);
  readln;
end.

Merci de votre aide