Conalep

Páginas: 3 (532 palabras) Publicado: 6 de diciembre de 2012
Nombre del alumno | Alberto Delgado DÍAZ | Grupo: V “B” |
Unidad de aprendizaje 1: | Programación para el manejo de bases de datos |
Resultado de aprendizaje: | 1.1 Estructura información pormedio de operaciones de selección sobre las bases de datos y el empleo de sentencias del lenguaje de consulta estándar |
Ejercicio num. 1: | Declaración de elementos de programación empleandosentencias del lenguaje de programación |

INSTRUCCIONES:
Codificar la solución en papel los siguientes ejercicios básicos de programación y posteriormente codificados en el equipo de computo utilizandoVisual Basic.
1. Pedir al alumno dos numero, uno entero y otro real, y mostrar su producto
Module Module1

Sub Main()
'programa que multiplica dos numeros
Dim num AsInteger
Dim num2 As Single
Dim resultado As Single

Console.Write(" teclea un numero entero: ")
num = Console.ReadLine()
Console.Write(" teclea un numeroreal: ")
num2 = Console.ReadLine()

resultado = num * num2

Console.Write(" el resultado de la multiplicacion de los dos numeroses " & resultado)Console.ReadLine()

End Sub
End Module

2 Calcular el área de un circulo cuyo radio se le preguntara al alumno
Module Module1

Sub Main()

'Programa para calcular el area del circuloDim r As Single
Dim a As Single
Const pi As Single = 3.1416
Console.Write(" teclea el radio del circulo ")
r = Console.ReadLine()

a = pi * (r * r)Console.Write(" el area del circulo es " & a)
Console.ReadLine()

End Sub

End Module

3. Pedir al alumno los coeficientes (a, b, c) de un polinomio de segundogrado (ax2+bx+c) y mostrar las dos raíces: (-b+-(b2-4ac)1/2)/2a)
Module Module1

Sub Main()
'programa de ecuacion de segundo grado
Dim a As Single
Dim b As Single...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Conalep
  • conalep
  • conalep
  • conalep
  • conalep
  • conalep
  • CONALEP
  • CONALEP

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS