Page 64 - Chapra y Canale. Metodos Numericos para Ingenieros 5edición_Neat

40 PROGRAMACIÓN Y SOFTWARE

a) Seudocódigo b) Excel VBA
IF/THEN:
IF condición THEN If b <> 0 Then
Bloque verdadero r1 = —c / b
ENDIF End If

IF/THEN/ELSE:
IF condición THEN If a < 0 Then
Bloque verdadero b = Sqr(Abs(a))
ELSE Else
Bloque falso b = Sqr(a)
ENDIF End If

IF/THEN/ELSEIF:
IF condición THEN If class = 1 Then
1
Bloque x = x + 8
1
ELSEIF condición ElseIf class < 1 Then
2
Bloque x = x – 8
2
ELSEIF condición ElseIf class < 10 Then
3
Bloque x = x — 32
3
ELSE Else
Bloque x = x — 64
4
ENDIF End If
CASE:
SELECT CASE Expresión de prueba Select Case a + b
CASE Valor Case Is < —50
1
Bloque x = —5
1
CASE Valor Case Is < 0
2
Bloque x = —5 — (a + b) / 10
2
CASE Valor Case Is < 50
3
Bloque x = (a + b) / 10
3
CASE ELSE Case Else
Bloque x = 5
4
END SELECT End Select
DOEXIT:
DO Do
Bloque i = i + 1
1
IF condición EXIT If i >= 10 Then Exit Do
Bloque j = i*x
2
ENDIF Loop
FIGURA 2.8 LOOP CONTROLADO POR CONTADOR:
Estructuras de control funda- DOFOR i = inicio, fi n, incremento For i = 1 To 10 Step 2
mentales en a) seudo- Bloque x = x + i
código y b) VBA de Excel. ENDDO Next i

6/12/06 13:43:43
Chapra-02.indd 40 6/12/06 13:43:43
Chapra-02.indd 40