Vectores o Arreglo

1)=============================================================
Proceso indica_la_posicion_de_los_nombres
    dimension nombres(5)
    para i=1 hasta 5 hacer
        Escribir "digite un nombre en la posicion ", (i);
        leer nombre
       
    FinPara
   
FinProceso

2)=============================================================

Proceso Suma_de_vectores_muestre_el_resultado_mayor
    Escribir "escriba la cantidad de numeros a sumar"
    leer n
    v1=0
    para i=1 hasta n con paso 1 Hacer
        Escribir "ingrese el numero en la posicion ",i;
        leer num
        v1=v1+num;
    FinPara
    Escribir "el resultado de la suma es: " v1;
    escribir " "
    escribir "----- A continuacion se calculara la suma del Vector numero dos-------  "
    v2=0
    para i=1 hasta n con paso 1 Hacer
        Escribir "ingrese el numero en la posicion ",i;
        leer num2
        v2=v2+num2;
    FinPara
    Escribir "el resultado de la suma es: " v2;
    Escribir ""
    Escribir ""
    si v1<v2 entonces
        Escribir "la suma del:  v2 es mayor con un resultado de: " v2;
    Sino
        Escribir "la suma del:  v1  es mayor  con un resultado de " v1;
    FinSi
   
   
FinProceso




3)=============================================================

 Proceso Ordenar_numeros
    Definir i,j,t,num como enteros;
    Dimension num(5);
    Escribir "Programa para ordenar numeros enteros de manera ascedente";
    Escribir " ";
    Escribir ".-----Por favor Ingrese 5 Numeros enteros----.";
    Escribir " ";

    Para i<-1 Hasta 5 Con Paso 1 Hacer
        Escribir sin saltar "El numero en la posicion ", i, " es ";
        leer num(i);
    FinPara
    Para i<-1 Hasta 5 Con Paso 1 Hacer
        Para j<-i Hasta 5 Con Paso 1 Hacer
            Si num(i) > num(j) Entonces
                t=num(i);
                num(i)=num(j);
                num(j)=t;
            FinSi
        FinPara
    FinPara
    Escribir " ";
    Escribir " Sus numeros ordenados de forma Ascendente son ";
    Para i<-1 Hasta 5 Con Paso 1 Hacer
        Escribir "  ", num(i);
    FinPara
    Escribir "Gracias por utilizar y preferir nuestro programa, vuelva pronto";
FinProceso
4)=============================================================
 Proceso  CALCULAR_PROMEDIO_N_NOTAS
  
    Dimension calificacion(5)
    i=1
    s=0
    p=0
    repetir
    Escribir "introdusca la calificacion en la posicion , " i;
    leer calificacion(i);
    i=i+1
    hasta que i>4
    para i=1 hasta 4 hacer
        s=s+calificacion(i)
      
    FinPara
    p=s/5
    Escribir "su promedio es de: " p;

  
FinProceso





1 comentario: