Discussion :

[LeonHONORE]

Ello,
J'ai réalisé une mini-calculatrice; mon souci est que j'aimerais savoir comment faire en sorte qu'après une opération, elle revienne au début ou à une ligne, que ça ne se termine pas en bref :o
Voila mon 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
program calculatorV3;
uses crt;
var
  choice:byte;
  a,b,r:longint;
 
procedure credit;
begin
  writeln('Created by Leon');
  readln;
end;
 
procedure addition;
begin
  r := a + b;
  writeln('The result is : ',r);
end;
 
procedure substraction;
begin
  r := a - b;
  writeln('The result is : ',r);
end;
 
procedure product;
begin
  r := a * b;
  writeln('The result is : ',r);
end;
 
procedure division;
begin
  if b = 0 then
    writeln('Div By 0 Impossible')
  else r := a div b;
  writeln('The result is : ',r);
end;
 
procedure menu;
begin
  writeln('===Operation Menu===');
  writeln('1.Addition');
  writeln('2.Substraction');
  writeln('3.Product');
  writeln('4.Division');
  writeln('====================');
  writeln;
  writeln('Input your 2 numbers a & b');
  readln(a);
  readln(b);
  writeln('Input your choice via it''s number');
  readln(choice);
end;
 
begin
  writeln('Welcome to Leon''s Calculator V1.2');
  writeln;
  menu;
  case choice of
    1 : addition;
    2 : substraction;
    3 : product;
    4 : division;
    5..255 : writeln('Not available');
  end;
  writeln;
  writeln;
  writeln;
  credit;
end.

[Alcatîz]

Bonjour !

Il te suffit d'insérer l'appel du menu et l'exécution de l'opération dans une boucle repeat..until, en utilisant par exemple le choix '0' pour mettre fin à la boucle.

[LeonHONORE]

Bonjour !

Il te suffit d'insérer l'appel du menu et l'exécution de l'opération dans une boucle repeat..until, en utilisant par exemple le choix '0' pour mettre fin à la boucle.

Quesq'une indentation? (c'est écrit en bas de mon post)
et merci pour la réponse ça marche

[Alcatîz]

Quesq'une indentation? (c'est écrit en bas de mon post)

L'indentation est le fait d'appliquer des retraits afin de clarifier le code.
Philippe Gormand a écrit un article sur le sujet, plein de conseils judicieux :
http://philippe-gormand.developpez.c...i/Indentation/