Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 8 vistas

    LAB04 2021B Dobles - Multiples

    Cargado por

    z5byctfxdp

    Copyright:

    © All Rights Reserved
    Descargue como DOC, PDF, TXT o lea en línea desde Scribd

    LAB04 2021B Dobles - Multiples

    Cargado por

    z5byctfxdp
    8 vistas3 páginas

    Título original

    LAB04-2021B-Dobles_Multiples

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOC, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Copyright:

    © All Rights Reserved
    Descargue como DOC, PDF, TXT o lea en línea desde Scribd
    Descargar como doc, pdf o txt
    8 vistas3 páginas

    LAB04 2021B Dobles - Multiples

    Cargado por

    z5byctfxdp

    Copyright:

    © All Rights Reserved
    Descargue como DOC, PDF, TXT o lea en línea desde Scribd
    Descargar como doc, pdf o txt
    de 3

    UNIVERSIDAD NACIONAL DEL CALLAO

    FACULTAD DE INGENIERÍA QUÍMICA 2021B

    CURSO: INFORMÁTICA APLICADA PARA INGENIERÍA


    LABORATORIO 4

    1 Hacer un programa en V. B., diagrama de flujo y seudocódigo que determina si un


    número entero es par o impar
    Pseudocódigo
    Variables n : Entero
    Inicio
    Escribir (“ingrese un número entero “)
    Leer ( N )
    Si N mod 2 = 0 Entonces
    Escribir (“el número” , N,” es par” )
    Si no
    Escribir (“el número” , N , “es impar’ )
    Fin Si
    Fin
    SOLUCIÓN

    Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    Dim NRO As Integer
    Dim R As String
    NRO = TextBox1.Text
    If NRO Mod 2 = 0 Then
    R = "EL NUMERO ES PAR"
    Else
    R = " EL NUMERO ES IMPAR"
    End If
    TextBox2.Text = R
    End Sub

    End Class

    4
    UNIVERSIDAD NACIONAL DEL CALLAO
    FACULTAD DE INGENIERÍA QUÍMICA 2021B

    2 Hacer un programa que determina si un número entero es divisible por otro número
    entero.

    Pseudocódigo
    Variables a, b: Entero
    Inicio
    Escribir (“ingrese dos números enteros”)
    Leer ( a, b)
    Si a mod b = 0 Entonces
    Escribir (a, “es divisible entre “ , b )
    Si no
    Escribir (a, “no es divisible entre “, b)
    Fin si
    Fin

    3. Realice un programa que lea un número y visualice en pantalla si él número es nulo


    negativo o positivo.

    Pseudocodigo
    Variables N = real;
    Inicio
    Escribir( “ Ingrese un numero entero: “ )
    Leer(n)
    Si ( n = 0 ) Entonces
    Escribir (“el número es nulo” )
    Si no Si ( n > 0 ) Entonces
    Escribir (“el número es positivo “ )
    Si no
    Escribir ( “el número es negativo” )
    Fin si
    Fin

    4. Desarrolle un programa que determine el mayor de 3 números.


    Pseudocodigo
    Variables a, b, c, max : Entero
    Inicio
    Escribir (“ingrese 3 números”)
    Leer(a,b,c)
    Max = a
    Si b > max Entonces
    Max = b
    Fin si
    Si c > max Entonces
    Max = c
    Fin si
    Escribir( ‘el número mayor es : ’, max );
    Fin

    4
    UNIVERSIDAD NACIONAL DEL CALLAO
    FACULTAD DE INGENIERÍA QUÍMICA 2021B

    5. Escribir un diagrama de flujo y Pseudocodigo para calcular el área de un triángulo


    cualquiera en función de sus tres lados
    Pseudocodigo
    Variables a, b, c, p, área : real
    Inicio
    Leer a, b, c
    Si ( a < B+C ) AND ( b < A+C ) AND ( c < B+A ) Entonces
    P= (a + b + c ) / 2
    Area = ( P * ( P – a ) * ( P – b ) * ( P - c) ) ^ ( 1 / 2 )
    Si no
    Area= “ Error”
    Fin si
    Escribir (“El area es: “, Area)
    Fin

    6. Escribir un diagrama de flujo y Pseudocodigo para calcular las raíces de una


    ecuación de la forma aX2 + bX + c = 0, donde A, B, C son leídos.
    Pseudocodigo
    Variables A, B, C, X1, X2, DISC: REAL
    Inicio
    Escribir (“Digite los coeficientes A, B, C diferentes de 0”);
    Leer A, B, C
    Si ( a >0 ) AND ( b > 0 ) AND ( c > 0 ) Entonces
    DISC = b * b – 4 * a *c
    Si DISC > = 0 Entonces
    X1 = ( - b + (DISC)^ (1/2) ) / ( 2 * a )
    X2 = ( - b - (DISC) ^ (1/2) ) / ( 2 * a )
    Escribir( “Variable X1”, X1, Variable X2” ,X2 )
    Si no
    Escirbir( “ NO TIENE RAÍCES REALES”’ )
    Fin si
    Si no
    Escribir ( “ NO ES DE LA FORMA a X2 + b X + c = 0” )
    Fin si
    Fin

    7. Escribir un diagrama de flujo y un pseudocodigo que realice el cálculo del factorial


    de un número entero ingresado por consola (Teclado-Video).

    Algoritmo.
    Factorial = 1
    {Repetición hasta que él numero sea igual a 1 }
    Factorial : = Factorial * Numero;
    Numero : = Numero – 1;
    {Imprimir Factorial}

    También podría gustarte