FUNDAMENTOS DE PROGRAMACIÓN

.

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:

1. la suma de los pares no inferiores que 740.
2. El producto de los números que estén en el rango (12, 690].
3. El promedio de los menores a 75 ó mayores iguales 20 y menores que 86.
4. 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

1. 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

1. Lea unos datos con: Código, nombre, precio unitario y cantidad;

1. calcule el promedio de las cantidades valorizadas con iva.
2. 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

...