Activity for Alan Alonso
-
Alan Alonso posted a comment on discussion Ayuda con los algoritmos
Proceso Pizzeria Definir tipo, ingredientes, p como entero Definir precio, sub, iva, total como real Definir cliente como cadena EscribirSinSaltar "Ingrese el nombre del cliente: "; Leer cliente; Escribir "Ingresar el tipo de tamaño de piza: "; Escribir "1: Grande"; Escribir "2: Familiar"; Escribir "3: Jumbo"; EscribirSinSaltar "Rpta: "; Leer tipo; segun tipo hacer caso 1: precio<-100; caso 2: precio<-125; caso 3: precio<-150; finsegun EscribirSinSaltar "Ingrese la cantidad de ingredientes: "; Leer...
-
Proceso Anonimo2023 Definir i, j como entero Definir ingreso, promedio, suma como real Definir nombre, mes como cadena Dimension ingreso[5,12]; Dimension suma[5]; Dimension promedio[5]; Dimension nombre[5]; Para i<- 0 hasta 4 hacer suma[i]<-0; Finpara Para i<-0 hasta 4 hacer EscribirSinSaltar "Ingrese el nombre del almacen ",(i+1),": "; Leer nombre[i]; Finpara Para i <- 0 hasta 4 hacer Para j <- 0 hasta 11 hacer Segun j hacer caso 0: mes<-"Enero"; caso 1: mes<-"Febrero"; caso 2: mes<-"Marzo"; caso...
-
Proceso compra Definir i, n, suma, igv, total como real suma <-0; Para i<- 1 hasta 3 hacer Repetir EscribirSinSaltar "Ingrese el precio del producto ",i,": "; Leer n; Hasta que n > 0 suma<-suma+n; Finpara igv <- suma * 0.18; total <- suma + igv; Escribir "El gasto total de maria es ",Trunc( total * 100) / 100; Finproceso
-
Proceso Anonimo2023 Definir n1, n2, total como entero Definir Pman, Pmel como real EscribirSinSaltar "Ingrese la cantidad de manzanas: "; Leer n1; EscribirSinSaltar "Ingrese la cantidad de melones: "; Leer n2; total<-n1+n2; Pman<- (n1/total)*100; Pmel <-(n2/total)*100; Escribir "Porcentaje de manzanas: ",Trunc(Pman*100)/100," %"; Escribir "Porcentaje de melones: ",Trunc(Pmel*100)/100," %"; Finproceso
-
Proceso Paquetes Definir n, costo como real Definir zona como entero EscribirSinSaltar "Ingrese el peso del paquete: "; Leer n; Escribir "Ingrese el número de zona hacia donde lo quiere llevar: "; Escribir "1. America norte"; Escribir "2. America central"; Escribir "3. America sur"; Escribir "4. Europa"; Escribir "5. Asia"; Repetir EscribirSinSaltar "Rpta: "; Leer zona; Hasta que zona >0 y zona < 6 Segun zona hacer Caso 1: costo <- 11 * n; Caso 2: costo <- 10 * n; Caso 3: costo <- 12 * n; Caso 4:...
-
Proceso nota👨🎓 Definir i, n, suma, cont como entero Definir prom como real suma<-0; cont<-0; Dimension n[100]; Para i <- 0 hasta 99 hacer Repetir Escribir "Ingrese la nota del ",i+1,"° alumno: "; Leer n[i]; Hasta que n[i] > 0 y n[i] < 21 suma <- suma + n[i]; Finpara prom <- suma/100; Para i<- 0 hasta 99 hacer Si n[i] > prom entonces cont <- cont +1; Finsi Finpara Escribir "El promedio de los 100 alumnos es ",prom; Escribir "Cantidad de alumnos con nota mayor al promedio: ",cont; Finproceso
-
Proceso paginas📃😡 Definir pag como entero Definir pago como real EscribirSinSaltar "Ingrese el número de paginas: "; Leer pag; Si pag > 0 y pag < 5 entonces pago <- pag * 500; Sino Si pag > 4 y pag < 11 entonces pago <- pag * 800; Sino Si pag > 10 y pag < 21 entonces pago <- pag * 1500; Sino pago <- pag * 2000; Finsi Finsi Finsi Escribir "El pago total: $",pago; Finproceso
-
👍
-
Proceso Anonimo2023 Definir i, n, mayor como entero mayor <- 0; Para i <- 1 hasta 7 hacer EscribirSinSaltar "Ingrese número: "; Leer n; Si n > mayor entonces mayor <- n; Finsi Finpara Escribir "El mayor número es ",mayor; Finproceso
-
usamos un contador Proceso Anonimo2023 Definir n como cadena Definir a como entero a<-0; repetir Escribir "Pregunta"; Leer n; si n<>"acertada" entonces a<-a+1; finsi hasta que n = "acertada" Escribir a; Finproceso
-
👍
-
Proceso Zapateria Definir precio, dscto, recargo, total como real Definir n como entero Definir tipo como cadena EscribirSinSaltar "Ingrese la cantidad de pares de zapatos que va a comprar: "; Leer n; precio <- 70 * n; Escribir "Monto: ",precio; Repetir EscribirSinSaltar "¿Pagará con tarjeta o efectivo? Rpta: "; Leer tipo; Hasta que tipo = "Tarjeta" o tipo = "tarjeta" o tipo = "Efectivo" o tipo = "efectivo" Si tipo = "Efectivo" o tipo = "efectivo" entonces Si n >= 25 y n < 30 entonces dscto <- precio...
-
👍
-
Algoritmo Socios_inversion Definir A, B, C, P Como Real Definir Total_Investment, Reinvest, Donate, Balance Como Real Definir A_Porcentaje, B_Porcentaje, C_Porcentaje Como Real Definir A_Reinvest, B_Reinvest, C_Reinvest como Real Definir A_Total_Investment, B_Total_Investment, C_Total_Investment Como Real Definir A_Profit, B_Profit, C_Profit Como Real Escribir "Ingrese la inversión de socio 1 (A): "; Leer A; Escribir "Ingrese la inversión de socio 2 (B): "; Leer B; Escribir "Ingrese la inversión...
-
Proceso Anonimo2023 Definir n1,n2 como entero EscribirSinSaltar "Ingrese el primer número: "; Leer n1; EscribirSinSaltar "Ingrese el segundo número: "; Leer n2; Si n1 = n2 entonces Escribir "Los 2 números son iguales"; Sino si n1 > n2 entonces Escribir "El número ",n1," es mayor"; sino Escribir "El número ",n2," es mayor"; finsi Finsi Finproceso
-
Proceso Anonimo2023 Definir n, suma como entero Definir prom, r como real suma <- 0; Repetir EscribirSinSaltar "Ingrese un número de 2 cifras: "; Leer n; Hasta que n > 9 y n < 100 Mientras n > 0 hacer suma <- suma + (n mod 10); n <- n div 10; Finmientras Si suma >= 1 y suma <= 8 entonces prom <- suma / 2 ; Escribir "El promedio de la suma de sus digitos es ",prom; sino si suma >= 9 y suma <= 18 entonces r <- Trunc(100.0 * RC(suma))/100.0; Escribir "La raiz cuadrada de ",suma," es ", r; finsi Finsi...
-
Proceso Mayor_nota Definir i, nota, mayor como entero mayor <- 0; Dimension nota[10]; Para i <- 0 hasta 9 hacer EscribirSinSaltar "Ingrese la nota del ",(i+1),"° alumno: "; Leer nota[i]; Si nota[i] > mayor entonces mayor <- nota[i]; Finsi Finpara Escribir "La mayor nota es: ",mayor; Finproceso
-
Proceso Anonimo2023 Definir a,b,c,n,i como entero i<-0; Repetir EscribirSinSaltar "Ingrese un número de 3 cifras: "; Leer n; Hasta que n > 99 y n < 1000 Mientras n > 0 hacer Si i==0 entonces c <- n mod 10; Finsi Si i==1 entonces b <- n mod 10; Finsi Si i==2 entonces a <- n mod 10; Finsi n <- n div 10; i <- i+1; Finmientras Escribir "El número al reves es: ",a,c,b; Finproceso
-
Proceso multiplo Definir i, cant, num como entero Dimension num[10]; cant <- 0; Para i <- 0 hasta 9 hacer EscribirSinSaltar "Ingrese el ",(i+1),"° número: "; Leer num[i]; Si num[i] mod 5 == 0 entonces cant <- cant + 1; Finsi Finpara Escribir cant," números son multiplos de cinco y son los siguientes: "; Para i <- 0 hasta 9 hacer Si num[i] mod 5 == 0 entonces Escribir num[i]; Finsi Finpara Finproceso
-
Proceso curso Definir n1, n2, n3, n4, final como real Definir codigo como cadena EscribirSinSaltar "Ingrese el código: "; Leer codigo; EscribirSinSaltar "Ingrese la primera nota: "; Leer n1; EscribirSinSaltar "Ingrese la segunda nota: "; Leer n2; EscribirSinSaltar "Ingrese la tercera nota: "; Leer n3; EscribirSinSaltar "Ingrese la cuarta nota: "; Leer n4; final<- (n1 * 0.25)+(n2 * 0.20)+(n3 * 0.25)+(n4 * 0.30); Escribir "Nota final: ",Trunc(final * 100.0)/100.0; Finproceso
-
Proceso ejercicio Definir n, m como entero EscribirSinSaltar "Ingrese el 1° número: "; Leer m; EscribirSinSaltar "Ingrese el 2° número: "; Leer n; Escribir "ORDENADO ASCENDENTEMENTE"; Si m > n entonces Escribir n; Escribir m; sino Escribir m; Escribir n; Finsi FinProceso
-
Proceso Banco Definir nombre, apellido como cadena Definir dia, mes, anio, cantidad, tiempo, edad como entero Definir ganancia, boni, total como real EscribirSinSaltar "Ingrese su nombre: "; Leer nombre; EscribirSinSaltar "Ingrese su apellido: "; Leer apellido; Escribir "Ingrese su fecha de nacimiento ( dia/ mes (número) / año ) respectivamente : "; Repetir Leer dia; Hasta que dia > 0 y dia < 32 Repetir Leer mes; Hasta que mes > 0 y mes < 13 Repetir Leer anio; Hasta que anio > 1922 y anio < 2006...
-
Proceso Conversion Definir n, conver como real Definir rpta como entero Escribir "Bienvenido a la casa de cambios"; Escribir "¿A qué desearia convertir la cantidad de dinero que va a ingresar?"; Escribir "1.- Soles"; Escribir "2.- Dolares"; repetir EscribirSinSaltar "Rpta: "; Leer rpta; hasta que rpta>0 y rpta<3 repetir EscribirSinSaltar "Ingrese la cantidad de dinero que va a ingresar: "; Leer n; hasta que n>0 segun rpta hacer caso 1: conver <- n * 3.60; Escribir "La conversión: S/.",Trunc(conver...
-
Proceso Bono_para_trabajador Definir edad, bono como entero Definir sueldo como real EscribirSinSaltar "Ingrese la edad: "; Leer edad; EscribirSinSaltar "Ingrese el sueldo: "; Leer sueldo; Si edad > 62 y sueldo > 395 entonces si edad >= 63 y edad <= 67 entonces bono <- 10; sino si edad >= 68 y edad <= 72 entonces bono <- 15; sino bono <- 20; finsi finsi Escribir "Edad: ",edad," años"," -> sueldo: $",sueldo," -> bono: $",bono; sino Escribir edad," -> sueldo: $",sueldo,". No tiene un bono asignado";...
-
Proceso Paises Definir Nombre, nombre como cadena Definir Cantidad, cantidad, i, j como entero i<-0; j<-0; Dimension Nombre[6]; Dimension Cantidad[6]; Para i <- 1 hasta 5 hacer EscribirSinSaltar "Ingrese nombre del país: "; Leer Nombre[i]; EscribirSinSaltar "Ingrese la poblacion total del pais ",Nombre[i],": "; Leer Cantidad[i]; Finpara Para i <- 2 hasta 5 hacer Para j <- 1 hasta 5-i+1 hacer Si Nombre[j] > Nombre[j+1] entonces nombre <- Nombre[j]; Nombre[j] <- Nombre[j+1]; Nombre[j+1] <- nombre;...
-
Proceso Granja Definir Nombre, nombre como cadena Definir Peso, peso, Comida, comida, Forrage, forrage, Compuesto, compuesto como real Definir i, j como entero i<-0; j<-0; Dimension Nombre[30]; Dimension Peso[30]; Dimension Comida[30]; Dimension Forrage[30]; Dimension Compuesto[30]; Para i<-1 Hasta 30 Hacer EscribirSinSaltar "Ingrese el nombre del ", i, "° caballo: "; Leer Nombre[i]; EscribirSinSaltar "Ingrese el peso de ",Nombre[i],": "; repetir Leer Peso[i]; hasta que Peso[i] >= 450 y Peso[i] <=...
-
Proceso Universidad Definir d, m, n como cadena Definir a, aprob, desap como entero Definir pordesap como real aprob <- 0; desap <- 0; Repetir repetir Escribir "¿Cuántas horas trabajas?"; Leer a; hasta a > 0 repetir Escribir "¿Vives a 2 horas de la universidad? Escriba Si o No"; Leer m; hasta que m = "Si" o m = "si" o m = "No" o m = "no" repetir Escribir "¿Normalmente llegas tarde a clase? Escriba Si o No"; Leer n; hasta que n="Si" o n="si" o n="No" o n="no" Si a >= 8 y ( m = "Si" o m = "si" ) y...
-
Proceso pares_impares Definir i,n,m,par,impar como entero par<-0; impar<-0; EscribirSinSaltar "Ingrese la cantidad de números que va ingresar: "; Leer n; Escribir "********"; Para i<-1 hasta n hacer EscribirSinSaltar "Ingrese ",i,"° número: "; Leer m; si m mod 2=0 entonces Escribir "El número ",m," es par"; par<-par+m; sino Escribir "El número ",m," es impar"; impar<-impar+m; finsi Escribir "**********"; Finpara Escribir "La suma de números pares: ",par; Escribir "La suma de números impares: ",impar;...
-
Proceso contar Definir n,i,cantm,cantM,cantentre,mayor,menor,nega,posi,suma como entero Definir prom como real i<-0; cantm<-0; cantM<-0; cantentre<-0; mayor<-0; menor<-1000000; nega<-0; posi<-0; Para i<-1 hasta 150 hacer EscribirSinSaltar "Ingrese ",i,"° número: "; Leer n; si n<(-5) entonces cantm<-cantm+1; finsi si n>30 entonces cantM<-cantM+1; finsi si n>= -25 y n<=35 entonces cantentre<-cantentre+1; finsi si n>mayor entonces mayor<-n; finsi si n<menor entonces menor<-n; finsi suma<-suma+n; si...
-
falso
-
Proceso Mostrar Definir nombre, modelo como cadena EscribirSinSaltar "Ingrese nombre del automovil: "; Leer nombre; EscribirSinSaltar "Ingrese el modelo del automóvil: "; Leer modelo; Escribir "El modelo es ",modelo," y el nombre del automovil es ",nombre; Finproceso
-
Proceso Anonimo2023 Definir superficie,distrito,pago como entero Definir alcabala,sub,IGV,total como real EscribirSinSaltar "Ingrese la superficie del terreno en m²: "; repetir Leer superficie; hasta que superficie>79 y superficie<151 Escribir "Digite el número segun el distrito que corresponda"; Escribir "1: Surco"; Escribir "2: San Borja"; Escribir "3: San Isidro"; EscribirSinSaltar "Respuesta: "; repetir Leer distrito; hasta que distrito>0 y distrito<4 Segun distrito hacer caso 1: si superficie>79...
-
Proceso Ordenar_palabras Definir i,j como entero Definir nombres,nombre como cadena i<-0; j<-0; Dimension nombres[11]; Para i<-1 Hasta 10 Con Paso 1 Hacer EscribirSinSaltar "Ingrese el nombre ", i, ": "; Leer nombres[i]; FinPara Para i<-2 Hasta 10 Con Paso 1 Hacer Para j<-1 Hasta 10-i+1 Con Paso 1 Hacer Si nombres[j] > nombres[j+1] Entonces nombre <- nombres[j]; nombres[j] <- nombres[j+1]; nombres[j+1] <- nombre; FinSi FinPara FinPara Escribir ""; Escribir "Nombres ordenados:"; Escribir ""; Para...
-
Proceso Examen Definir i,nota,mayor como entero Definir nombre,materia,nom,mate como cadena mayor<-0; Para i<- 1 hasta 60 hacer EscribirSinSaltar "Ingrese el nombre del ",i," alumno: "; Leer nombre; repetir EscribirSinSaltar "Ingrese la materia (INF: informatica, ADM: administración o ING: ingles) del alumno ",nombre,": "; Leer materia; hasta que materia="INF" o materia="inf" o materia="ADM" o materia="adm" o materia="ING" o materia="ing" repetir EscribirSinSaltar "Ingrese la nota correspondiente:...
-
Proceso Alberca Definir altura,largo,ancho,precio,total como real Escribir "Ingrese la altura de la alberca: "; Leer altura; Escribir "Ingrese el ancho de la alberca: "; Leer ancho; Escribir "Ingrese el largo de la alberca: "; Leer largo; Escribir "Ingrese el precio x m³: "; Leer precio; total<-precio *(ancho * largo * altura); Escribir "El pago por ",(ancho * largo * altura)," m³ de agua es ",total; Finproceso
-
Proceso Distancia_entre_puntos Definir x1,y1,x2,y2,d como real Escribir "Ingrese las coordenas para el primer punto: "; Escribir "Ingrese la abcisa: "; Leer x1; Escribir "Ingrese la ordenada: "; Leer y1; Escribir "Ingrese las coordenas para el segundo punto"; Escribir "Ingrese la abcisa: "; Leer x2; Escribir "Ingrese la ordenada: "; Leer y2; d<-RC((x2-x1)^2+(y2-y1)^2); Escribir "La distancia entre los puntos es ",Trunc(d*100.0)/100.0; Finproceso
-
Proceso aaap Definir nom como cadena Definir dias como entero Definir pago,subtotal,total como real EscribirSinSaltar "Ingrese su nombre: "; Leer nom; EscribirSinSaltar "Ingrese el número de días trabajados: "; repetir Leer dias; hasta dias >0 y dias<31 EscribirSinSaltar "Ingrese el pago por dia: "; Leer pago; subtotal<-dias*pago; si subtotal<1755.807 entonces total<-subtotal+102.854; sino total<-subtotal; finsi Escribir "Pago a recibir : ",total; Finproceso
1
