Bonjour tout le monde, je suis nouveau sur le forum et je commence la programmation en Pascal...
Je voudrais faire un simple programme qui calcule la valeur absolue.
Voici le premier code :
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
PROGRAM valeur_absolue;
 
VAR a : INTEGER;
CONST b = -1;
 
BEGIN
  WRITELN('Entrez la valeur de a');
  READLN(a);
       IF a<0 THEN
           WRITELN('La valeur absolue de a=',a*b);
           READLN   (a*b);
        IF a>0 THEN
        WRITELN('La valeur absolue de',a);
             READLN (a);
           IF a=0 THEN
              WRITELN('La valeur absolue de',a);
          READLN   (a);
 
  WRITELN('valeur absolue')
END.
Le souci c'est que j'aimerais pouvoir entrer d'autres valeurs par la suite, mais je ne comprends pas ce que je dois faire...
J'ai essayé en faisant ceci :
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
PROGRAM valeur_absolue;
 
VAR a : INTEGER;
VAR c : INTEGER;
CONST b = -1;
 
BEGIN;
  WRITELN('Entrez la valeur de a');
  READLN(a);
       WHILE a<0 DO
        BEGIN
           WRITELN('La valeur absolue de a=',c);
           c:= a*b;
        END;
        WHILE a>0 DO
          BEGIN WRITELN('La valeur absolue de',a);
             READLN (a);
          END;
         WHILE a=0 DO
           BEGIN
              WRITELN('La valeur absolue de',a);
          READLN   (a);
           END;
  WRITELN('valeur absolue');
  READLN;
END.
Si quelqu'un peut m'aider ???