Tecnologia

UNIVERSIDAD DR. ANDRÉS BELLO
FACULTAD DE CIENCIAS ECONOMICAS (UNAB)

CATEDRA:

PROGRAMACION 2 Alumnos: DENIS RONALDO CORTEZ JESUS ANTONIO ARGUETA VASQUEZ

CATEDRATICO: LIC. DANIEL PALACIOSTEMA:

SISTEMA ALGORITMO

FECHA DE ENTREGA: Jueves, 7 de Febrero del 2013

1

Índice

Introducción

3

Objetivo

4

Algoritmos

5-9

Conclusión

10

2

Introducción

Seentiende por algoritmo a un conjunto prescrito de instrucciones o reglas bien definidas, ordenadas y finitas que permite realizar una actividad mediante pasos sucesivos que no generen dudas a quiendeba realizar dicha actividad.

3

Objetivo

Comprender y conocer los diferentes términos computacionales que envuelve a la programación de VB, para de este modo aumentar nuestro conocimientoprofesional y trabajar mejor en el área que nos desenvolvemos.

4

Algoritmos:

Imports System.Console Module Module1 Sub Main() Menu: Console.Clear() Dim opcion As Integer WriteLine()WriteLine("MENU") WriteLine("-------------------------------------------------") WriteLine("1. Promediar calificaciones") WriteLine("2. Buscar un numero en un arreglo") WriteLine("3. Comparar valores dearreglos") WriteLine("4. Conversion de numeros a sus valores binarios") WriteLine("5. Programa que prohibe ejecuciones de ecuaciones") WriteLine("-------------------------------------------------")WriteLine() Write("Ingrese el numero de la operacion que desea realizar: ") opcion = Console.ReadLine()

If opcion = 1 Then Console.Clear() WriteLine() WriteLine("1. Ha elegido promediar calificaciones")WriteLine("-----------------------------------")

Dim Alumno1(3), Alumno2(3), Alumno3(3), Alumno4(3), Alumno5(3), Matriz1, Matriz2, Matriz3, Matriz4, Matriz5 As Decimal Dim promedio1, promedio2,promedio3, promedio4, promedio5 As Short WriteLine("Para 5 alumnos ingrese 3 notas cada uno") WriteLine("notas del Estudiante 1 ") For i As Integer = 1 To Alumno1.Length - 1 WriteLine("Nota " & i & " : ")...