LENGUAJES DE PROGRAMACION.

EN "MAREA ROJA" SEGUIMOS TRABAJANDO, AHORA LES DEJAMOS LAS SIGUIENTES CODIFICACIONES EN VISUAL BASIC, PARA SU ASIGNATURA DE LENGUAJES DE PROGRAMACION.

SUMA DE 2 NUMEROS

Sub SUMA()
'DECLARACION DE VARIABLES
Dim A As Single
Dim B As Single
A = InputBox("ESCRIBA EL VALOR DE A")
B = InputBox(" ESCRIBA EL VALOR DE B")
SUMA_ES = A + B
MsgBox "LA SUMA DE LOS DOS VALORES ES " & SUMA_ES
End Sub


SUMA DE N NUMEROS

Sub SUMADEN()
'DECLARACION DE VARIABLES
Dim N As Integer
N = InputBox("ESCRIBA EL NUMERO DE VALORES")
If N <= 0 Then GoTo 10
If N > 0 Then
S = 0
A = 0
30 A = A + 1
VALOR = InputBox("ESCRIBA EL NUEVO VALOR")
S = S + VALOR
If N > A Then GoTo 30
If N = A Then GoTo 20
20 MsgBox "LA SUMA DE LOS VALORES ES " & S
End If
10 End Sub


PROMEDIO DE N NUMEROS

Sub PROMDEN()
'DECLARACION DE VARIABLES
Dim N As Integer
N = InputBox("ESCRIBA EL NUMERO DE VALORES")
If N <= 0 Then GoTo 10
If N > 0 Then
S = 0
A = 0
30 A = A + 1
VALOR = InputBox("ESCRIBA UN NUEVO VALOR")
If VALOR <= 0 Then GoTo 40
If VALOR > 0 Then GoTo 50
40 VALOR = InputBox("VALOR NO VALIDO ESCRIBA UN VALOR VALIDO")
If VALOR <= 0 Then GoTo 40
If VALOR > 0 Then GoTo 50
50 S = S + VALOR
If N > A Then GoTo 30
If N = A Then GoTo 20
20 PROM = S / N
MsgBox "EL PROMEDIO DE LOS VALORES ES" & PROM
End If
10 End Sub


MAYOR DE 3 NUMEROS

Sub MAYOR()
'DECLARACION DE VARIABLES
Dim A As Single
Dim B As Single
Dim C As Single
A = InputBox(" DAME EL VALOR DE A")
B = InputBox(" DAME EL VALOR DE B")
C = InputBox(" DAME EL VALOR DE C")
If A >= B And A >= C Then
MsgBox " EL VALOR MAYOR ES " & A
End If
If B >= C And B > A Then
MsgBox " EL VALOR MAYOR ES " & B
End If
If C > A And C > B Then
MsgBox " EL VALOR MAYOR ES " & C
End If
End Sub


MAYOR DE N NUMEROS

Sub MAYORDEN()
'DECLARACION DE VARIABLES
Dim N As Integer
Dim V As Single
Dim MAYOR As Single
N = InputBox(" DAME EL NUMERO DE VALORES")
If N <= 0 Then GoTo 30
V = InputBox("DAME EL PRIMER VALOR")
MAYOR = V
If N = 1 Then GoTo 20
Z = 1
10 Z = Z + 1
V = InputBox("DAME UN NUEVO VALOR")
If V > MAYOR Then
MAYOR = V
End If
If V <= MAYOR Then
MAYOR = MAYOR
End If
If N > Z Then GoTo 10
If N = Z Then GoTo 20
20 MsgBox " EL VALOR MAYOR ES " & MAYOR
30 End Sub


DESVIACION STANDAR

Sub DESVIACION()
' DECLARACION DE VARIABLES
Dim N As Integer
Dim M() As Single
'CICLO DE LLENADO DE LA MATRIZ
SUMA = 0
Z = 0
N = InputBox("ESCRIBE EL NUMERO DE VALORES")
If N <= 1 Then GoTo 10
ReDim M1(N)
20 Z = Z + 1
M1(Z) = InputBox("ESCRIBE UN VALOR")
SUMA = SUMA + M1(Z)
If N > Z Then GoTo 20
If N = Z Then GoTo 30
30 PROM = SUMA / N
' CICLO DE CALCULO
Z = 0
SUMA = 0
40 Z = Z + 1
SUMA = SUMA + ((M1(Z) - PROM) ^ 2) ^ 0.5
If N > Z Then GoTo 40
If N = Z Then GoTo 50
50 DESV = SUMA / (N - 1)
MsgBox "LA DESVIACION ES " & DESV
10 End Sub


MAYOR, MENOR Y PROMEDIO DE N NUEMROS

Sub MAYMENPRONDEN()
'DECLRARACION DE VARIABLES
Dim N As Integer
Dim SUMA As Single
Dim Z As Integer
Dim V As Single
Dim MAYOR As Single
Dim MENOR As Single
Dim PROM As Single
N = InputBox(" DAME EL NUMERO DE VALORES")
If N <= 0 Then GoTo 10
SUMA = 0
Z = 1
V = InputBox("DAME EL PRIMER VALOR ")
If N = 1 Then
20 MsgBox " EL VALOR MAYOR Y/O MENOR Y PROMEDIO ES " & V
End If
SUMA = SUMA + V
MAYOR = V
MENOR = V
30 Z = Z + 1
V = InputBox("DAME UN NUEVO VALOR")
SUMA = SUMA + V
If V > MAYOR Then
MAYOR = V
End If
If V < menor =" V"> Z Then GoTo 30
If N = Z Then GoTo 40
40 PROM = SUMA / N
MsgBox " EL VALOR MAYOR ES " & MAYOR
MsgBox " EL VALOR MENOR ES " & MENOR
MsgBox " EL PROMEDIO DE LOS VALORES ES " & PROM
10 End Sub


ECUACION GENERAL DE 2DO GRADO

Sub ECUGRALDE2GRADO()
'DECLARACION DE VARIABLES
Dim A As Single
Dim B As Single
Dim C As Single
Dim Z As Single
10 A = InputBox("INTRODUCE EL VALOR DE A")
If A = 0 Then GoTo 10
B = InputBox("INTRODUCE EL VALOR DE B")
C = InputBox("INTRODUCE EL VALOR DE C")
Z = ((B ^ 2) - (4 * A * C))
If Z < x1 =" (-B" x2 =" (-B" color="#3333ff">TIPO DE PROYECTO

Sub TIPODEPROYEC()
' DECLARACION DE VARIABLES
Dim M As Single
M = InputBox(" DIME EL MONTO DEL PROYECTO EN PESOS")
If M <= 1000000 Then
MsgBox " EL PROYECTO ES DE TIPO MANTENIMIENTO MENOR "
End If
If M > 1000000 And M <= 5000000 Then
MsgBox " EL PROYECTO ES DE TIPO MANTENIMIENTO MAYOR "
End If
If M > 5000000 And M <= 100000000 Then
MsgBox " EL PROYECTO ES DE TIPO INVERCION "
End If
If M > 100000000 Then
MsgBox " EL PROYECTO ES DE TIPO MAYOR "
End If
End Sub


ORDEN ASENDENTE DE N NUMEROS

Sub ORDENAR()
'DECLARACION DE VARIABLES
Dim N As Integer
Dim VALOR As Single
Dim M() As Single
Dim B As Single
10 N = InputBox("DIME LA CANTIDAD DE VALORES A ORDENAR")
If N <= 0 Then GoTo 10
ReDim M1(N)
Z = 0
20 Z = Z + 1
VALOR = InputBox("DAME UN VALOR")
M1(Z) = VALOR
If N > Z Then GoTo 20
If N = Z Then GoTo 30
30 A = 0
110 Z = 0
60 A = A + 1
Z = Z + 1
If M1(Z) <= M1(Z + 1) Then GoTo 40
If M1(Z) > M1(Z + 1) Then
50 B = M1(Z)
M1(Z) = M1(Z + 1)
M1(Z + 1) = B
End If
40 If Z < (N - 1) Then GoTo 60
If Z = (N - 1) Then
If A = (N - 1) ^ 2 Then GoTo 70
End If
If A < (N - 1) ^ 2 Then GoTo 110
70 Z = 0
80 Z = Z + 1
MsgBox "LOS VALORES ORDENADOS SON " & M1(Z)
If Z < z =" N">