[TP][Débutant] Problème If , then

Version imprimable

Bonsoir, j'ai essayé de retaper de différentes manières , mais je n'y arrive vraiment pas.... un petit coup de pouce svp!

Voyez plutot le code :

Code:

1
2
if (b-a)> 0
then begin (b-a)=G1 , P1=0 end;

Il me dis , qu'il y a illegal expression....

J'ai du refaire l'erreur pleins de fois...

En faite, il s'agit d'un petit programme de calcul, je vous copie colle le code en entier, qui sait, le probleme vien peut être d'ailleur...

Code:

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
Program Calcul_RSI;
Var  a,b,c,d,e,f,G1,G2,G3,G4,G5,P1,P2,P3,P4,P5,SG1,SP2,MG1,MP1,M2,RSI5,x: real;
Begin
 
writeln('Quel Periode choisir?');
writeln;
writeln;
readln(x);
 
if x=5
then writeln('Ecrire les valeurs de clotures un par un (appuyez sur --entrer-- pour confirmer chaque valeur un a un');
readln(a);
readln(b);
readln(c);
readln(d);
readln(e);
readln(f);
 
if (b-a)> 0
then begin (b-a)=G1 , P1=0 end; ////////////////// C'est a partir , et surtout ICI que sa bloque.... Que sa soit avec ou sans les 'begin, end' sa marche pas...////////////////////
 
if (b-a)<0
then G1=0 , (b-a):=P1;
 
if (c-b)>0
then (c-b):= G2 , P2=0;
if (c-b)<0
then G2=0 , (c-b):=P2;
 
if (d-c)>0
then (d-c):= G3, P3=0;
if (d-c)<0
then G3=0 , (d-c):=P3;
 
 
if (e-d)>0
then (e-d):= G4, P4=0;
if (e-d)<0
then (e-d):=P4, G4=0;
 
 
if (f-e)>0
then (f-e):= G5, P5=0;
if (f-e)<0
then G5=0, (f-e):=P5;
 
G1+G2+G3+G4+G5 = SG1;
P1+P2+P3+P4+P5 = SP2;
 
SG1/5 = MG1;
SP2/5 = MP1;
 
MG1/MP1 = M2;
 
100 - 100/(1 + M2) = RSI5;
writeln;
writeln;
writeln('Le RSI 5 est de :');
writeln(RSI5);
readln;
 
end.

S'il vous plait, aidez moi

13/12/2007, 21h32
Loceka

Les instructions doivent se terminer par un point-virgule (;) pas par une virgule. :roll:
13/12/2007, 21h44
inquisitor
Citation:

Envoyé par Loceka

Les instructions doivent se terminer par un point-virgule (;) pas par une virgule. :roll:

Je comprends pas...

Le p1 = 0 est compris dans la commande, c'est pour cela que j'ai mis une virgule.
Code:

1 2 then (b-a)=G1 , P1=0;
Réxplique sil te plait
13/12/2007, 21h57
blackhorus

Citation:

P=1

est une instruction, et

Citation:

(b-a)=G1

en est une autre.
Donc, pour les séparer il faut mettre ; comme l'a suggéré Loceka, et non ,

Je te conseille de lire ce cours ;)
13/12/2007, 22h02
inquisitor

Citation:

Envoyé par blackhorus

est une instruction, et en est une autre.
Donc, pour les séparer il faut mettre ; comme l'a suggéré Loceka, et non ,

Je te conseille de lire ce cours ;)

Mais non, non les gars... vous comprenez pas, ou c'est peut -être moi qui suis a coté de la plaque...

P n'est pas égale a 1 ...

mais P1=0 , P1 étant une variable, regarde dans les variables, je l'ai configuré pourtant.

Je comprends vraiment pas...
13/12/2007, 22h04
Alcatîz

Bonjour,

Sans vouloir te froisser, une instruction comme

Code:

(b-a)=G1

ou

Code:

(b-a):=G1

n'a aucun sens. Que penses-tu faire en écrivant cela ?

;)
13/12/2007, 22h16
inquisitor

Citation:

Envoyé par Alcatîz

Bonjour,

Sans vouloir te froisser, une instruction comme

Code:

(b-a)=G1

ou

Code:

(b-a):=G1

n'a aucun sens. Que penses-tu faire en écrivant cela ?

;)

Non, non ya pas de soucis, je suis la pour apprendre, et pour connaitre mon erreur.

Alor, enfaite, si vous regardez le code la haut, je demande à la personne d'entrer des chiffres, qui serons determinés comme des variables.

donc, b est un chiffre et a aussi

cette opération la , (b-a), je voudrais également la faire correspondre a une troisième varibale, G1

Voyez ?
13/12/2007, 22h51
droggo

Dio,

Citation:

Envoyé par inquisitor

...
cette opération la , (b-a), je voudrais également la faire correspondre a une troisième varibale, G1

Voyez ?

Ben, pas franchement. :)
13/12/2007, 22h54
Alcatîz

Citation:

Envoyé par inquisitor

cette opération la , (b-a), je voudrais également la faire correspondre a une troisième varibale, G1

S'il s'agit d'affecter le résultat de (b-a) à la variable G1, il faut écrire :

Code:

G1 := b - a;

;)
13/12/2007, 23h02
inquisitor
oui , c'est tout a fait sa , merci !!

Mais sa ne change rien au probleme suivant...

Supposons que j'introduit une commande "if/then"

la condition if existe ( pas de probleme avec elle)

Est-il possible d'introduire dans la commande then, une deuxième variable ?
Code:

1 2 if (b-a)> 0 ( sa c'est bon, sa existe toujours) then G1 := b - a;
( C'est la seule affectation de variable possible ? On peut pas intriduire une autre variable dans then? sans qu'on soit obligé de retapé a nouveau la boucle if /then ?)
13/12/2007, 23h06
Alcatîz
Au point-virgule près (voir la réponse de Loceka), ce que tu faisais au début était correct :
Code:

1 2 3 4 5 6 if (b - a) > 0 then begin G := b - a; P := 0 end;
13/12/2007, 23h10
inquisitor

ouaaaa, merci beaucoup! Sa a marché!

Vous m'avez été d'une très grande utilité ^^

Merci encore une fois!

I'll be back....surement lol

PS: je marque en résolu ^^

Autre chose, au vu de l'indentation :
Citation:
Code:

1 2 if (c-b)>0 then (c-b):= G2 , P2=0;
je crois comprendre que tu veux que tes deux instructions soient executées ssi la condition est réalisée. Alors dans ce cas tu dois les mettre entre begin et end.

Voilà plus de précisions sur l'utilisation d'un "if" :
Code:

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 (* if avec une seule instruction *) if (cond1) and (cond2) then instr; (* if avec plusieurs instructions *) if (cond) then begin instr1; instr2; end; (* if suivi d'un else *) if (cond) then instr1 (* attention, pas de ";" avant un "else" *) else instr2; ou if (cond) then begin instr1; instr2; end (* attention, pas de ";" avant un "else" *) else instr3;