FUNDAMENTOS DE PROGRAMACIÓN
Enviado por DAVID ESTRADA MACHADO • 11 de Mayo de 2022 • Tutorial • 1.183 Palabras (5 Páginas) • 68 Visitas
.
Capture 45 números para obtener el producto de los múltiplos de 43 mayores 650 los múltiplos de 17. Imprima los resultados.
inicio num=0, produ=1, k=1, coci=0, resi=0; Mientras (k<=45) haga lea num coci=(num/43); resi=num-(43*coci); si (resi=0) entonces si (num>650) entonces produ=produ*num;
finsi sino coci=(num/17); resi=num-(17*coci); si (resi=0) entonces produ=produ*num;
finsi finsi
k=k+1; finmientras imprimir produ; termine Capture varios datos con: Nombre, sexo, peso, edad y estado civil. Obtenga la mujer casada con mayor peso. El peso promedio de todos. Imprima cada dato y la mujer obtenida.
Nombre, sexo=(H/M), peso, edad, estadociv= (C/S), prom, Pmayor
inicio
Nombre= " ", sexo="", peso=0, edad=0, estadociv= "", acum=0, contaper=0, Pmayor=0; lea nombre;
Mientras nombre <> "*" haga leer peso, sexo, edad estadciv sí (sexo= "M”) and (estaciv= C) and (peso>0) entonces contaper=contaper+1 sí peso > Pmayor Entonces
Pmayor = peso FinSi
aum=acum+peso
FinSi lea nombre; FinMientras imprimir nombre, Pmayor; prom= acum/cotaper; imprimir “el peso promedio de todos es: “, prom; termine
Genere unos números, para obtener:
- la suma de los pares no inferiores que 740.
- El producto de los números que estén en el rango (12, 690].
- El promedio de los menores a 75 ó mayores iguales 20 y menores que 86.
- el porcentaje de los impares.
Inicio definir temp1,temp2,temp3 como real definir acum como entero escribir num=0,temp1=150,temp2=1,temp3=20,porcentimp=0,producto=0,promedio=0, sumpar=0,p=0,coc=0,res=0,acum=1,acumk=0,k=0,kimpar=0 mientras p < 9999 hacer num=78*temp1/(temp3+4)*(-1)^temp2 si num>740 entonces coc=num/2 res=num-(2*coc) si res =0 entonces
sumapar=sumapar+num
sino kimpar=kimpar+1
FinSi FinSi si num> 12 y num <=690 entonces acum=acum*num
FinSi
si num < 75 entonces k=k+1 acumk=acumk+num
FinSi p=p+1 temp1=temp1+15 temp2=temp2+1 temp3=temp3-2 FinMientras porcentimp=(kimpar/p)*100 promedio=acumk/k producto=acum imprimir porcentimp,promedio,producto,sumpar;
FinAlgoritmo
4. Capture varios datos con: código, nombre, edad, sexo y estatura. Seleccione las mujeres solteras con estatura no mayor que 1.79. Imprima la edad promedio de los hombres casados.
nombre=” *”, edad=0, sexo= (H/M), estatura=0, estaciv=(C/S), k =0
Suma=0;
Inicio nombre=” *”, edad=0, sexo= “”, estatura=0, estaciv=””, k =0
Suma=0;
Mientras nombre <>” *” hacer
Leer sexo, edad, estadociv, estatura;
Si (sexo=”M”) and (estatura <= 1.79) and (estadociv=” S”) entonces
Imprimir nombre, estatura
Fin si
Si (sexo=”H”) and (estadociv=”C”) entonces
Leer nombre, sexo, edad, estadociv, estatura;
K=k+1
Suma= suma + edad
Fin si
Fin mientras
Promedio=suma/k
Imprimir promedio
Termine
- Genere unos números; cuente los que terminan en un digito leído; sume los mayores que 340 y menores que 960.
inicio s,t,a escribir "digite un numero del 1 al 9"; leer num para i<-num hasta 1000 con paso 10 hacer s=s+1; para t<-341 hasta 959 hacer a=a+t; finpara finpara escribir "el numero "num"esta"s" veces"; escribir a; termine
- Lea unos datos con: Código, nombre, precio unitario y cantidad;
- calcule el promedio de las cantidades valorizadas con iva.
- Imprima los datos del artículo que tiene el mayor precio unitario.
Cantidad valorizada = pre_unidad * cantidad. Los datos están ordenados por código y hay varios datos del mismo artículo.
Inicio codi=0, nombre = ‘ ‘, p_uni = 0, canti = 0 canvalo = 0, faciva = 0.19, canvali= 0, codiante = 0 sum =0, kont=0, promed =0, nmay =’ ‘, mayp = 0
Lea cod
Mientras (codi <> 0) hacer codiante = codi
Mientras (codi <> 0) and ( codi = codiante) Haga Lea nombre, p_uni, canti canvalo = p_uni * canti canvali = canvalo * (1 + faciva) sum = sum+ canvali kont = kont + 1 Si (p_uni > mayp) Entonces mayp = p_uni nmay = nombre
...