5 - Estructura de programación secuencial


Cuando en un problema sólo participan operaciones, entradas y salidas se la denomina una estructura secuencial.
Los problemas diagramados y codificados previamente emplean solo estructuras secuenciales.

La programación requiere una práctica ininterrumpida de diagramación y codificación de problemas.

Problema:

Realizar la carga de dos números enteros por teclado e imprimir su suma y su producto.

Diagrama de flujo:

diagrama flujo suma numeros
Tenemos dos entradas num1 y num2, dos operaciones: realizar la suma y el producto de los valores ingresados y dos salidas, que son los resultados de la suma y el producto de los valores ingresados. En el símbolo de impresión podemos indicar una o más salidas, eso queda a criterio del programador, lo mismo para indicar las entradas por teclado.

Programa:

Module Module1

    Sub Main()
        Dim num1, num2, suma, producto As Integer
        Console.Write("Ingrese primer valor:")
        num1 = Console.ReadLine()
        Console.Write("Ingrese segundo valor:")
        num2 = Console.ReadLine()
        suma = num1 + num2
        producto = num1 * num2
        Console.Write("La suma de los dos valores es:")
        Console.WriteLine(suma)
        Console.Write("El producto de los dos valores es:")
        Console.WriteLine(producto)
        Console.ReadKey()
    End Sub

End Module

Recordemos que tenemos que seguir todos los pasos vistos para la creación de un proyecto.

Algunas cosas nuevas que podemos notar:

Problemas propuestos

  1. Realizar la carga del lado de un cuadrado, mostrar por pantalla el perímetro del mismo (El perímetro de un cuadrado se calcula multiplicando el valor del lado por cuatro)
  2. Escribir un programa en el cual se ingresen cuatro números, calcular e informar la suma de los dos primeros y el producto del tercero y el cuarto.
  3. Realizar un programa que lea cuatro valores numéricos e informar su suma y promedio.
  4. Se debe desarrollar un programa que pida el ingreso del precio de un artículo y la cantidad que lleva el cliente. Mostrar lo que debe abonar el comprador.
Solución
Module Module1

    Sub Main()
        Dim lado, perimetro As Integer
        Console.Write("Ingrese el lado del cuadrado:")
        lado = Console.ReadLine()
        perimetro = lado * 4
        Console.Write("El perímetro del cuadrado es:")
        Console.Write(perimetro)
        Console.ReadKey()
    End Sub

End Module





Module Module1

    Sub Main()
        Dim num1, num2, num3, num4, suma, producto As Integer
        Console.Write("Ingrese primer valor:")
        num1 = Console.ReadLine()
        Console.Write("Ingrese segundo valor:")
        num2 = Console.ReadLine()
        Console.Write("Ingrese tercer valor:")
        num3 = Console.ReadLine()
        Console.Write("Ingrese cuarto valor:")
        num4 = Console.ReadLine()
        suma = num1 + num2
        producto = num3 * num4
        Console.Write("La suma de los dos primero valores es:")
        Console.WriteLine(suma)
        Console.Write("El producto del tercer y cuarto valor es:")
        Console.Write(producto)
        Console.ReadKey()
    End Sub

End Module





Module Module1

    Sub Main()
        Dim num1, num2, num3, num4, suma, promedio As Integer
        Console.Write("Ingrese primer valor:")
        num1 = Console.ReadLine()
        Console.Write("Ingrese segundo valor:")
        num2 = Console.ReadLine()
        Console.Write("Ingrese tercer valor:")
        num3 = Console.ReadLine()
        Console.Write("Ingrese cuarto valor:")
        num4 = Console.ReadLine()
        suma = num1 + num2 + num3 + num4
        promedio = suma / 4
        Console.Write("La suma de los cuatro valores es:")
        Console.WriteLine(suma)
        Console.Write("El promedio es:")
        Console.Write(promedio)
        Console.ReadKey()
    End Sub

End Module





Module Module1

    Sub Main()
        Dim cantidad As Integer
        Dim precio, importe As Single
        Console.Write("Ingrese la cantidad de artículos a llevar:")
        cantidad = Console.ReadLine()
        Console.Write("Ingrese el valor unitario del producto:")
        precio = Console.ReadLine()
        importe = precio * cantidad
        Console.Write("El importe total a pagar es:")
        Console.Write(importe)
        Console.ReadKey()
    End Sub

End Module

Retornar