Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 53 vistas

    Tarea de Subprocesos

    Cargado por

    Arturo Medina
    El documento presenta tres algoritmos en pseudocódigo. El primero calcula el total a pagar por instrumentos de laboratorio aplicando descuentos. El segundo calcula el costo de un boleto de cine considerando precios de salas y descuentos por edad. El tercero resuelve una ecuación de segundo grado obteniendo sus raíces.

    Copyright:

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

    Tarea de Subprocesos

    Cargado por

    Arturo Medina
    53 vistas6 páginas
    El documento presenta tres algoritmos en pseudocódigo. El primero calcula el total a pagar por instrumentos de laboratorio aplicando descuentos. El segundo calcula el costo de un boleto de cine considerando precios de salas y descuentos por edad. El tercero resuelve una ecuación de segundo grado obteniendo sus raíces.

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    El documento presenta tres algoritmos en pseudocódigo. El primero calcula el total a pagar por instrumentos de laboratorio aplicando descuentos. El segundo calcula el costo de un boleto de cine considerando precios de salas y descuentos por edad. El tercero resuelve una ecuación de segundo grado obteniendo sus raíces.

    Copyright:

    © All Rights Reserved
    Descargue como PDF, TXT o lea en línea desde Scribd
    Descargar como pdf o txt
    53 vistas6 páginas

    Tarea de Subprocesos

    Cargado por

    Arturo Medina
    El documento presenta tres algoritmos en pseudocódigo. El primero calcula el total a pagar por instrumentos de laboratorio aplicando descuentos. El segundo calcula el costo de un boleto de cine considerando precios de salas y descuentos por edad. El tercero resuelve una ecuación de segundo grado obteniendo sus raíces.

    Copyright:

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

    Medina Mora Said Arturo Grupo XB No.

    Lista 24

    Tarea.- Realizar los algoritmos en pseudocódigos y utilizar subprocesos

    1.-Elaborar un algoritmo en pseudocódigo que calcule el total a pagar por la compra de cualquiera
    de los 3 instrumentos de laboratorio, cada instrumento tiene un descuento: opcion1 probetas 10%
    de descuento, opción2 vasos 15% y opción3 mechero 20%. Pedir cuantos desea comprar de ese
    tipo y el precio del instrumento de laboratorio a comprar. Imprimir la cantidad total a pagar.

    Entrada Proceso Salida


    Ins SubProceso costo<- cuenta
    Nins calculepago(ins,nins,precio)
    precio Definir desc Como Real
    ins<-Minusculas(ins)
    segun (ins) hacer
    "probeta":
    desc<-precio*nins*0.10;
    "vaso": desc<-
    precio*nins*0.15;
    "mechero":
    desc<-precio*nins*0.20;
    FinSegun
    costo<-precio*nins-
    desc;
    FinSubProceso
    SubProceso costo<-calculepago(ins,nins,precio)

    Definir desc Como Real

    ins<-Minusculas(ins)

    segun (ins) hacer

    "probeta": desc<-precio*nins*0.10;

    "vaso": desc<-precio*nins*0.15;

    "mechero": desc<-precio*nins*0.20;

    FinSegun

    costo<-precio*nins-desc;

    FinSubProceso

    Proceso instrumentos_laboratorio

    Definir precio,nins Como Entero


    Medina Mora Said Arturo Grupo XB No. Lista 24

    Definir ins como cadena

    definir cuenta Como Real

    Escribir "Introduzca el instrumento que desea comprar:"

    Leer ins;

    Escribir "introduzca el precio del instrumento $"

    Leer precio

    Escribir "introduzca la cantidad de instrumentos a comprar"

    Leer nins;

    cuenta<-calculepago(ins,nins,precio)

    Escribir "Su cuenta final es de $",cuenta

    FinProceso

    2.-Elaborar en pseudocódigo de acuerdo con lo siguiente: que calcule la cantidad de dinero que
    paga una persona en una taquilla de un cine por la compra de un boleto de cine. La sala A su
    precio del boleto es de $50, para la sala B $65 y la sala C $100; de acuerdo con la edad hay
    descuentos para niños menores a 5 años no pagan boleto, mayores a 5 años y menores a 12 pagan
    50% del boleto, mayores o igual a 12 años pagan boleto completo. Imprimir el total a pagar por un
    boleto del cine.

    Entrada Proceso Salida


    Edad SubProceso costo<- Cf(costo final)
    Sala pagoboleto(edad,sala)
    Definir desc,pb Como
    Real
    sala<-Minusculas(sala)
    segun (sala) hacer
    "a":pb<-50;
    "b":pb<-65;
    "c":pb<-100
    FinSegun
    si (edad<5) Entonces
    desc<-pb*1.0;
    FinSi
    si (5<edad y edad<12)
    Entonces
    desc<-pb*0.5;
    Medina Mora Said Arturo Grupo XB No. Lista 24

    FinSi
    si (edad>=12)
    Entonces
    desc<-0;
    FinSi
    costo<-pb-desc;
    FinSubProceso
    SubProceso costo<-pagoboleto(edad,sala)

    Definir desc,pb Como Real

    sala<-Minusculas(sala)

    segun (sala) hacer

    "a":pb<-50;

    "b":pb<-65;

    "c":pb<-100

    FinSegun

    si (edad<5) Entonces

    desc<-pb*1.0;

    FinSi

    si (5<edad y edad<12) Entonces

    desc<-pb*0.5;

    FinSi

    si (edad>=12) Entonces

    desc<-0;

    FinSi

    costo<-pb-desc;

    FinSubProceso

    Proceso compra_de_boleto

    Definir edad,cf Como real

    Definir sala Como Caracter


    Medina Mora Said Arturo Grupo XB No. Lista 24

    Escribir "Escriba la sala que desea entrar"

    Leer sala;

    Escribir "Introduzca su edad para ver si tiene descuento"

    Leer edad;

    cf<-pagoboleto(edad,sala)

    Escribir "Su costo final seria de $",cf

    FinProceso

    3.-Elabora un algoritmo en pseudocódigo que calcule una ecuación de segundo grado. De acuerdo
    con la formula:

    Entrada Proceso Salida


    (variables ) SubProceso raiz1<- Raices:
    A recuasion1(a,b,c) X1
    B si (a<>0) entonces X2
    C x1<- (-
    b+rc((b^2)-(4*a*c)))/2*a
    SiNo
    Escribir "la
    variable debe ser diferente de
    0"
    FinSi
    raiz1<-x1;
    FinSubProceso
    SubProceso raiz2<-
    recuasion2(a,b,c)
    si (a<>0) entonces
    x2<- (-b-
    rc((b^2)-(4*a*c)))/2*a
    SiNo
    Escribir "la
    variable debe ser diferente de
    0"
    Medina Mora Said Arturo Grupo XB No. Lista 24

    FinSi
    raiz2<-x2;
    FinSubProceso
    SubProceso raiz1<-recuasion1(a,b,c)

    si (a<>0) entonces

    x1<- (-b+rc((b^2)-(4*a*c)))/2*a

    SiNo

    Escribir "la variable debe ser diferente de 0"

    FinSi

    raiz1<-x1;

    FinSubProceso

    SubProceso raiz2<-recuasion2(a,b,c)

    si (a<>0) entonces

    x2<- (-b-rc((b^2)-(4*a*c)))/2*a

    SiNo

    Escribir "la variable debe ser diferente de 0"

    FinSi

    raiz2<-x2;

    FinSubProceso

    Proceso Resolver_ecuacion_2do_grado

    Definir a,b,c Como entero

    Escribir "Defina los valores de su variables a,b,c"

    Leer a,b,c;

    raizx1<-recuasion1(a,b,c);

    raizx2<-recuasion2(a,b,c);

    Escribir "sus raices de la ecuacion son:"

    Escribir "X1 = ",raizx1


    Medina Mora Said Arturo Grupo XB No. Lista 24

    Escribir "X2 = ",raizx2

    FinProceso

    También podría gustarte