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)

Hello friends technoupdatviral, on this occasion the admin wants to share an article entitled 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) , we have made good, quality and useful articles for you to read and take information in. hopefully the post content is about INFORMÁTICA, PROGRAMACIÓN, which we write you can understand. Alright, happy reading.

Problemas propuestos

Module Module1

 

    Sub Main()

        Dim lado As Integer

        Dim Perimetro As Integer

        Console.Write("Ingrese el valor del lado del cuadrado:")

        lado = Console.ReadLine()

        Perimetro = lado * 4

        Console.Write("El Perimetro del cuadrado es:")

        Console.Write(Perimetro)

        Console.ReadKey()

 

    End Sub

 

End Module

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. 

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

 

 

 

 

 

 

 

 

 

3. Realizar un programa que lea cuatro valores numéricos e informar su suma y promedio. 

Public Class ejercicio3AV

    Private SubBtnproducto_Click(sender As Object, e As EventArgs) HandlesBtnproducto.Click

        Dim entero1, entero2, opers As Integer

        Dim entera, enterb As Integer

 

        entero1 = Val(Txtvalorc.Text)

        entero2 = Val(TxtvalorD.Text)

        entera = Val(TxtvalorA.Text)

        enterb = Val(TxtvalorB.Text)

 

        opers = entero1 + entero2 + entera + enterb

        ltbsum.Items.Add(Str(opers))

        Ltbmult.Items.Add(Str(opers / 4))

        opers = entera + enterb

 

    End Sub

 

    Private Subbtnlimpiar_Click(sender As Object, e As EventArgs) Handlesbtnlimpiar.Click

        TxtvalorA.Text = ""

        TxtvalorB.Text = ""

        Txtvalorc.Text = ""

        TxtvalorD.Text = ""

        Ltbmult.Items.Clear()

        ltbsum.Items.Clear()

    End Sub

 

    Private SubBtnsalir_Click(sender As Object, e As EventArgs) HandlesBtnsalir.Click

        Me.Close()

    End Sub

End Class

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.

Module Module1

 

    Sub Main()

        Dim articulo, cantidad As Integer

 

        Console.Write("Ingrese articulo:")

        articulo = Console.ReadLine()

 

        Console.Write("Ingrese cantidad :")

        cantidad = Console.ReadLine()

 

        Console.WriteLine(" Abono Comprador: " & articulo * cantidad)

 

        Console.ReadKey()

    End Sub

 

End Module

That's the article: 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)

Thank you for visiting my blog, hopefully it can be useful for all of you. Don't forget to share this article with your friends so they also know the interesting info, see you in other article posts.

You are now reading the article 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) with link address https://technoupdatviral.blogspot.com/2021/06/realizar-la-carga-del-lado-de-un.html