lunes, enero 23, 2006

Tarea II Tabla de multiplicar

Tablas de Multiplicar

Hacer un programa que genere tablas de multiplicar. El programa debe de pedir un valor inicial y un valor final. Con el valor inicial debera empezar la tabla y con el final hasta donde llegará la tabla.

Ej. Si le doy como número inicial un 3 y como número final un 5, solo desplegará las tablas 3, 4 y 5.


El formato será el siguiente:

(en caso de empezar con 1)

1 X 1 = 1
1 X 2 = 2
1 X 3 = 3
1 X 4 = 4
1 X 5 = 5
1 X 6 = 6
1 X 7 = 7
1 X 8 = 8
1 X 9 = 9
1 X 10 = 10

2 X 1 = 2
2 X 2 = 4
2 X 3 = 6
2 X 4 = 8
2 X 5 = 10
2 X 6 = 12
2 X 7 = 14
2 X 8 = 16
2 X 9 = 18
2 X 10 = 20

...

Programa:

Module Module1
Sub Main()
Dim tabla As Integer, multiplicador As Integer
Dim val_inic As Integer, val_final As Integer
Dim Num_mul As Integer
Console.WriteLine("Dame el valor inicial: ")
val_inic = Console.ReadLine()
Console.WriteLine("Dame el valor final:")
val_final = Console.ReadLine()
For tabla = val_inic To val_final
For multiplicador = 1 To 10
Console.WriteLine("{0} X {1} = {2} ", tabla, multiplicador, tabla * multiplicador)
If multiplicador = 10 Then
Console.WriteLine(" ")
End If
Next
Next
Console.ReadLine()
End Sub
End Module






Nota: Usar ciclos for anidados o Do While (al criterio del alumno)