Aide Syntaxe

→ **MyCalcs** profile · by **yob** » 25 Oct 2023, 16:56

Code: Select all: Define els3()= Prgm : :Request "bw = [m]", B :Request "d = [m]", D :Request "As en [cm²]", A :((A)/(10^(4)))→S :Request "Mser perm = [MN*m]", P :Request "Mser cara = [MN*m]", C :Request "fck = [MPa]", K :Request "fyk = [MPa]", J : :((15*S)/(B))*(√(1+((((2*B*D)/(15)))/(S)))-1)→Z :Disp "Z en [cm]=",Z*100 :pause :((B*Z )/(3))+15*S*(D-Z)²→I :Disp "I en [cm^4]=",I*10^((8) ) :pause :((P*Z)/(I))→X :Disp "σc,max perm [MPa]=",X :pause :((15*C*(D-Z))/(I))→Y :Disp "σs,max cara[MPa]=",Y :pause :If X≤0.45*K Then :Disp "σc,max béton OK" :Else :Disp "NON pb sigma béton" :EndIf : :If Y≤0.8*J Then :Disp "σs,max acier OK" :Else :Disp "NON PB sigma acier" :EndIf :pause :((15*P*(D-Z))/(I))→E :Disp "σs,max perm en[MPa]=",E :pause :Disp "maîtrise des fissurations:" :pause : :Disp "section minimale des As:" :pause :Disp "hauteur de la section:[m]" :Request "L =", L :Request "fctm en [MPa]:", G :Request "σs,max du Tab7.2N [MPa]:", Q :Request "Act section tendue en m²", N :((0.4*G*N*10000)/(Q))→V :Disp "As,min =",V : :If V≤A Then :Disp "OK, vérifiée!" :Else :Disp "NON > As,réelle!" :EndIf :pause :Disp "vérif. flèche sans calcul" :pause :Disp "Leff en [m] =" :Request "F =", F :((F)/(D))→H :((310)/(E))→M :((((((A)/(L)))/(B)))/(10000))→O :Request "(L/d)lim:", :R R*M→W Disp "(L/d)=",H :Disp "(L/d)lim * Ccorr=",W :If H≤W Then :Disp "Ok flèche vérifiée" : Else Disp "PB flèche!" :EndIf : :EndPrgm

Bonjour
J'ai le message" manque d'une instruction en débutou fin de bloc" mais je ne vois pas ou se situe le problème
une petite aide svp?

Code: Select all: Define els3()= Prgm : Request "bw = [m]", B Request "d = [m]", D Request "As en [cm²]", A ((A)/(10^(4)))→S Request "Mser perm = [MN*m]", P Request "Mser cara = [MN*m]", C Request "fck = [MPa]", K Request "fyk = [MPa]", J ((15*S)/(B))*(√(1+((((2*B*D)/(15)))/(S)))-1)→Z Disp "Z en [cm]=",Z*100 pause ((B*Z )/(3))+15*S*(D-Z)²→I Disp "I en [cm^4]=",I*10^((8)) pause ((P*Z)/(I))→X Disp "σc,max perm [MPa]=",X pause ((15*C*(D-Z))/(I))→Y Disp "σs,max cara[MPa]=",Y pause If X≤0.45*K Then Disp "σc,max béton OK" Else Disp "NON pb sigma béton" EndIf If Y≤0.8*J Then Disp "σs,max acier OK" Else Disp "NON PB sigma acier" EndIf pause ((15*P*(D-Z))/(I))→E Disp "σs,max perm en[MPa]=",E pause Disp "maîtrise des fissurations:" pause Disp "section minimale des As:" pause Disp "hauteur de la section:[m]" Request "L =", L Request "fctm en [MPa]:", G Request "σs,max du Tab7.2N [MPa]:", Q Request "Act section tendue en m²", N ((0.4*G*N*10000)/(Q))→V Disp "As,min =",V If V≤A Then Disp "OK, vérifiée!" Else Disp "NON > As,réelle!" EndIf pause Disp "vérif. flèche sans calcul" pause Disp "Leff en [m] =" Request "F =", F ((F)/(D))→H ((310)/(E))→M ((((((A)/(L)))/(B)))/(10000))→O Request "(L/d)lim:", R R*M→W Disp "(L/d)=",H Disp "(L/d)lim * Ccorr=",W If H≤W Then Disp "Ok flèche vérifiée" Else Disp "PB flèche!" EndIf EndPrgm

My calculator programs · by **Adriweb** » 25 Oct 2023, 17:03

ici peut être:

Il faut que le R soit sur la même ligne que le request, pas apres

→ **MyCalcs** profile · by **yob** » 25 Oct 2023, 17:13

je viens de changer, mais toujours le même problème ...

My calculator programs · by **Adriweb** » 25 Oct 2023, 17:14

Et qu'est-ce que te raconte Ctrl-B ? Normalement ça t'amène à l'endroit du problème

→ **MyCalcs** profile · by **yob** » 25 Oct 2023, 18:21

non ca me dit rien

→ **MyCalcs** profile · by **yob** » 25 Oct 2023, 18:26

Maintenant, j'ai juste un probleme de syntaxe!

Code: Select all: Define els3()= Prgm : :Request "bw = [m]",B :Request "d = [m]", D :Request "As en [cm²]", A :((A)/(10^(4)))→S :Request "Mser perm = [MN*m]", P :Request "Mser cara = [MN*m]", C :Request "fck = [MPa]", K :Request "fyk = [MPa]", J : :((15*S)/(B))*(√(1+((((2*B*D)/(15)))/(S)))-1)→Z :Disp "Z en [cm]=",Z*100 :pause :((B*Z )/(3))+15*S*(D-Z)^(2)→I :Disp "I en [cm^4]=",I*10^(8) :pause :((P*Z)/(I))→X :Disp "σc,max perm [MPa]=",X :pause :((15*C*(D-Z))/(I))→Y :Disp "σs,max cara[MPa]=",Y :pause :If X≤0.45*K Then :Disp "σc,max béton OK" :Else :Disp "NON pb sigma béton" :EndIf : :If Y≤0.8*J Then :Disp "σs,max acier OK" :Else :Disp "NON PB sigma acier" :EndIf :pause :((15*P*(D-Z))/(I))→E :Disp "σs,max perm en[MPa]=",E :pause :Disp "maîtrise des fissurations:" :pause : :Disp "section minimale des As:" :pause :Disp "hauteur de la section:[m]" :Request "L =", L :Request "fctm en [MPa]:", G :Request "σs,max du Tab7.2N [MPa]:", Q :Request "Act section tendue en m²", N :((0.4*G*N*10000)/(Q))→V :Disp "As,min =",V : :If V≤A Then :Disp "OK, vérifiée!" :Else :Disp "NON > As,réelle!" :EndIf :pause :Disp "vérif. flèche sans calcul" :pause :Disp "Leff en [m] =" :Request "F =", F :((F)/(D))→H :((310)/(E))→M :((((((A)/(L)))/(B)))/(10000))→O :Request "(L/d)lim:", R :R*M→W :Disp "(L/d)=",H :Disp "(L/d)lim * Ccorr=",W :If H≤W Then :Disp "Ok fleche vérifiee" : Else Disp "PB fleche!" :EndIf : :EndPrgm