Ayuda con sentencias condicionales
Publicado por Pedro (3 intervenciones) el 20/05/2010 05:27:52
Hola, necesito ayuda, he escrito este programa, con sentencias, si, pero no corre y me sale sintax error y al darle exit coloca el cursor en el punto señalado, he intentado todo pero no sé donde está el error, he cambiado los parántesis de varias formas posibles, si alguien me puede ayudar...
Clrtext (enter)
"Cálculo dureza de Aguas" (enter)
"Dato de Carbonatos (pppCaC03):"?(Flecha) A (enter)
"Dato pH:"? (flecha) B (enter)
Clrtext (enter)
iF((A)≤150And (B)<4.9) (enter)
Then "Aguas muy blandas" (enter)
iFEnd (enter)
iF ((A)>0 And (A)≤75) (Aquí se ubica el cursor) And ((B)≥4,9 And (B)≤6,5) (enter)
Then "Aguas óptimas" (enter)
iFEnd (enter)
iF ((A)≥76 And (A)≤150) And ((B)≥6,6 And (B)≤7,2) (enter)
Then "Aguas Aptas" (enter)
iFEnd (enter)
iF ((A)≥151 And (A)≤180) And ((B)≥7,3 And (B)≤8,2) (enter) Then "Aguas blandas" (enter)
iFEnd (enter)
iF ((A)≥181 And (A)≤270) And ((B)≥8,3 And (B)≤9,5) (enter)
Then "Aguas semiduras" (enter)
iFEnd (enter)
iF ((A)≥271 And (A)≤360) And ((B)≥8,3 And (B)≤9,5) (enter)
Then "Aguas duras" (enter)
iFEnd (enter)
iF(A)>360 And(B)>9,6) (enter)
Then "Aguas muy duras" (enter)
iFEnd (enter)
"FIN"
Clrtext (enter)
"Cálculo dureza de Aguas" (enter)
"Dato de Carbonatos (pppCaC03):"?(Flecha) A (enter)
"Dato pH:"? (flecha) B (enter)
Clrtext (enter)
iF((A)≤150And (B)<4.9) (enter)
Then "Aguas muy blandas" (enter)
iFEnd (enter)
iF ((A)>0 And (A)≤75) (Aquí se ubica el cursor) And ((B)≥4,9 And (B)≤6,5) (enter)
Then "Aguas óptimas" (enter)
iFEnd (enter)
iF ((A)≥76 And (A)≤150) And ((B)≥6,6 And (B)≤7,2) (enter)
Then "Aguas Aptas" (enter)
iFEnd (enter)
iF ((A)≥151 And (A)≤180) And ((B)≥7,3 And (B)≤8,2) (enter) Then "Aguas blandas" (enter)
iFEnd (enter)
iF ((A)≥181 And (A)≤270) And ((B)≥8,3 And (B)≤9,5) (enter)
Then "Aguas semiduras" (enter)
iFEnd (enter)
iF ((A)≥271 And (A)≤360) And ((B)≥8,3 And (B)≤9,5) (enter)
Then "Aguas duras" (enter)
iFEnd (enter)
iF(A)>360 And(B)>9,6) (enter)
Then "Aguas muy duras" (enter)
iFEnd (enter)
"FIN"
Valora esta pregunta
0