Select Case
En este programa se clasifica podiendo mostrar una frase o palabra según el valor ingresado.
Ejercicio1:
Un programa que me muestre los tres primeros meses del año si es uno mostrar enero, si es dos mostrar febrero y si es tres mostrar marzo.
Module Module 1
Dim mes As Integer
Sub Main ( )
Console.Writeline(“ingrese mes:”)
Mes = Console.Readline
Select Case Mes
Case 1: Console.Write(“enero”)
Case 2: Console.Write(“febrero”)
Case 3: Console.Write(“marzo”)
End Select
Console.Readline( )
End Sub
End Module
viernes, 7 de septiembre de 2007
While
While
Es semejante al “for”, porque se repite una operación o frase o palabra mientras la condicion sea verdadera.
Ejercicio 1:
Un programa que muestre a los cinco primeros numeros pares
Module Module 1
Dim num as integer = 1
Sub Main ( )
While (num < 10)
Console.Writeline(num*2)
End While
Console.Readline ( )
End Sub
End Module
Es semejante al “for”, porque se repite una operación o frase o palabra mientras la condicion sea verdadera.
Ejercicio 1:
Un programa que muestre a los cinco primeros numeros pares
Module Module 1
Dim num as integer = 1
Sub Main ( )
While (num < 10)
Console.Writeline(num*2)
End While
Console.Readline ( )
End Sub
End Module
For
For
Este programa se realiza desde un valor inicial hacia uno final, una determinada operación o frase o palabra.
Ejercicio 1:
Un programa que me muestre veinte veces la palabra algoritmia
Module Module 1
Dim cont As Integer
Sub Main ( )
For cont = 1 to 20
Console.Writeline(“algoritmia”)
Next
Console.Readline ( )
End Sub
End Module
Este programa se realiza desde un valor inicial hacia uno final, una determinada operación o frase o palabra.
Ejercicio 1:
Un programa que me muestre veinte veces la palabra algoritmia
Module Module 1
Dim cont As Integer
Sub Main ( )
For cont = 1 to 20
Console.Writeline(“algoritmia”)
Next
Console.Readline ( )
End Sub
End Module
If Anidado
If Anidado
En este programa se realiza un if dentro de otro if, donde una decisión lleva a otra, sucesivamente.
Ejercicio 1:
Un programa que calcule el menor de tres numeros.
Module Module 1
Dim num1, num2, num3 As Integer
Sub Main ( )
Console.Write(“ingrese num1:”)
num1 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline
If num1 < num2 Then
If num1 < num2 Then
Console.Write(num1)
Else
Console.Write(num3)
End If
Else
If num2 < num3 Then
Console.Write(num2)
Else
Console.Write(num3)
End If
End If
Console.Readline( )
End Sub
End Module
En este programa se realiza un if dentro de otro if, donde una decisión lleva a otra, sucesivamente.
Ejercicio 1:
Un programa que calcule el menor de tres numeros.
Module Module 1
Dim num1, num2, num3 As Integer
Sub Main ( )
Console.Write(“ingrese num1:”)
num1 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline
If num1 < num2 Then
If num1 < num2 Then
Console.Write(num1)
Else
Console.Write(num3)
End If
Else
If num2 < num3 Then
Console.Write(num2)
Else
Console.Write(num3)
End If
End If
Console.Readline( )
End Sub
End Module
If
If
En este programa se realiza un se debe tomar una decisión (si – no), y acontinuacion mostrar el resultado o una frase o palabra.
Ejercicio 1:
Un programa que me ingrese un numero y me muestre si es par o impar.
Module Module 1
Dim num As Integer
Sub Main ( )
Console.Write(“ingrese num:”)
Num = Console.Readline
If num mod 2 = 0 Then
Console.Writeline(“PAR”)
Else
Console.Writeline(“IMPAR”)
End If
Console.Readline( )
End Sub
End Module
En este programa se realiza un se debe tomar una decisión (si – no), y acontinuacion mostrar el resultado o una frase o palabra.
Ejercicio 1:
Un programa que me ingrese un numero y me muestre si es par o impar.
Module Module 1
Dim num As Integer
Sub Main ( )
Console.Write(“ingrese num:”)
Num = Console.Readline
If num mod 2 = 0 Then
Console.Writeline(“PAR”)
Else
Console.Writeline(“IMPAR”)
End If
Console.Readline( )
End Sub
End Module
Secuencial
Secuencial
En este programa se pueden resolver problemas sencillos, siguiendo una simple secuencia, ya que no hay decisiones, u otros. Se puede decir que este es basico para aprender otros programas.
Ejercicio 1:
Un programa que calcule la multiplicación de dos numeros
Module Module 1
Dim num1 As Integer
Dim num2 As Integer
Dim multi As Integer
Sub Main ( )
Console.Write(“ingrese num1:”)
Num1 = Console.Readline
Console.Write(“ingrese num2:”)
Num2 = Console.Readline
multi = num1*num2
Console.Writeline (multi)
Console.Readline ( )
End Sub
End Module
En este programa se pueden resolver problemas sencillos, siguiendo una simple secuencia, ya que no hay decisiones, u otros. Se puede decir que este es basico para aprender otros programas.
Ejercicio 1:
Un programa que calcule la multiplicación de dos numeros
Module Module 1
Dim num1 As Integer
Dim num2 As Integer
Dim multi As Integer
Sub Main ( )
Console.Write(“ingrese num1:”)
Num1 = Console.Readline
Console.Write(“ingrese num2:”)
Num2 = Console.Readline
multi = num1*num2
Console.Writeline (multi)
Console.Readline ( )
End Sub
End Module
Suscribirse a:
Entradas (Atom)