Arreglos

Universidad politécnica de Nicaragua

Arreglos

Elaborado por:
Oscar Enrique Briones Moran
Juan Carlos Calero Calero

1-Se tiene tres arreglos unidimensionales que guardan los precios unitarios lascantidades (PU)
Las cantidades compradas (CC) y la descripción respectivamente de N productos distintos. Se
pide
- crear un arreglo con el total gastado en comprar por productos (TF=PU*UCC)
-calcular el total general de todas las compras.
-mostrar la descripción y el total del producto que obtuvo mayor gasto.

Algoritmo producto
const
maximo<-100
var
PU::array[1... maximo] of entero;CC::array[1... maximo] of entero;
productos::array[1... maximo] of cadena de carecteres;
TF::array[1... maximo] of real;
total:real;
suma<-0;
i:entero;
inicio
for i=1 to maximo do
inicio
escribir("preciosunitario de los productos");
leer(PU[i]);
escribir("cantidad comprada de los productos");
leer(CC[i]);
escribir("Descripcion de los productos");
leer(productos[i]);
TF<-PU*CC;
total<-total+suma+TF[i];fin

for i=1 to maximo do
inicio
escribir("costo del producto es:",TF[i]);
escribir("Descripcion:");
escribir(productos[i]);
escribir("El total de las compras es:",total);
fin
Si total > totalENTONCES
escribir("El mayor de los gastos:"total);
fin

2-se tiene la producción de los siete día de la semana de 20 plantas .elabore un programa que
lea estos datos, imprima el número de las plantas queobtuvo la mayor producción semanal y el
número de planta con mayor producción en un día especifico (dato que ingresa el usuario) y con
cuanta producción.

Algoritmo plantas
varproducciond::array[1... 20] of entero;
produccions::array[1... 20] of entero;
dia,semana:entero;
i:entero;
inicio
for i=1 to 20 do
inicio
escribir("ingres el dia actual");
leer(dia);
escribir("la produccion es");leer(producciond[i]);
escribir("ingrese el numero de la semana");
leer(semana);
escribir("la produccion es");
leer(produccions[i]);
fin

if (dia < semana) and (producciond[i] < produccions[i] ) then
{...