Manipulacion

Páginas: 3 (658 palabras) Publicado: 9 de mayo de 2012
Module Canton1
‘Programa que imprimirá los números solo si son postivos o negativos
Sub Main()
Dim I, ve, a, b, c As Integer
System.Console.WriteLine("Cuantas trios quiere digitar?")
ve =System.Console.ReadLine
For i = 1 To ve
System.Console.WriteLine("Digite tres numeros")
a = System.Console.ReadLine
b = System.Console.ReadLine
c = System.Console.ReadLine
If a > 0 And b > 0 And c >0 Then
System.Console.WriteLine("Los numeros son:{0},{1},{2}", a, b, c)
End If
If a < 0 And b < 0 And c < 0 Then
System.Console.WriteLine("Los numeros son:{0},{1},{2}", a, b, c)
End If
NextSystem.Console.ReadLine()
End Sub
End Module

Module Canton2
‘Programa que le ordenara 3 números en orden de mayor a menor
Sub Main()
Dim a, b, c As Integer
System.Console.WriteLine("Digite 3numeros")
a = System.Console.ReadLine
b = System.Console.ReadLine
c = System.Console.ReadLine
If a > b And a > c And b > c Then
System.Console.WriteLine("El orden de mayor a menor es:{0},{1},{2}",a, b, c)
End If
If b > a And b > c And a > c Then
System.Console.WriteLine("El orden de mayor a menor es:{0},{1},{2}", b, a, c)
End If
If b > a And b > c And c > a ThenSystem.Console.WriteLine("El orden de mayor a menor es:{0},{1},{2}", b, c, a)
End If
If c > a And c > b And a > b Then
System.Console.WriteLine("El orden de mayor a menor es:{0},{1},{2}", c, a, a)
End If
If c > a And c >b And b > a Then
System.Console.WriteLine("El orden de mayor a menor es:{0},{1},{2}", c, b, a)
End If
System.Console.ReadLine()
End Sub
End Module
--------------------------------------------Module Canton3
‘Programa que le ordenara 3 numeros de mayor a menor
Sub Main()
Dim a, b, c, d, e As Integer
e = 1
Console.WriteLine("Digite el numero de veces a repetir: ")
d = Console.ReadLineWhile (e b And a > c And b > c Then
System.Console.WriteLine("El orden de mayor a menor es:{0},{1},{2}", a, b, c)
End If
If b > a And b > c And a > c Then
System.Console.WriteLine("El orden...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Manipulacion
  • La manipulación
  • manipulacion
  • Manipulacion
  • MANIPULACION
  • manipulacion
  • Manipulacion
  • manipulación

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS