Definitiva Estudiantes

El siguiente programa solicita N estudiantes y pide que sea ingresada una serie de notas, luego determina el promedio de N estudiantes.

Proceso promedio

c<-1

sum<-0;

cont<-0;

escribir "Cuantos estudiantes ?";

leer n;

Repetir

Escribir "Estudiante ",c;

Escribir " ";

escribir "Evaluacion1 :";

leer e1;

Escribir "Evaluacion2 :";

leer e2;

Escribir "Evaluacion3 :";

leer e3;

Escribir "Evaluacion4 :";

leer e4;

Escribir "Evaluacion5 :";

leer e5;

Escribir "Parcial :";

leer parcial;

eval<- e1+e2+e3+e4+e5*50/100;

parc<- parcial*50/100;

sum<- parc+eval;

cont<- cont+1;

c<-c+1

hasta que cont=n 

prom<-sum/n;

Escribir "El promedio es :",prom;

FinProceso

Pares e Impares

El siguiente programa solicita N números y pide que sea ingresada esa cantidad, luego determina cuantos son pares y cuantos impares.

Proceso ParesImpares
cp<- 0;
ci<-0;
Escribir "Cuantos numeros";
leer n;
i<-n
repetir  
  Escribir "Digite numero";
  leer m;
 si (m mod 2) <= 0 Entonces
cp<- cp+1
    Sino
ci<- ci+1
i<- i+1
FinSi

hasta que i>n
Escribir "Los numeros pares son :",cp;
escribir "Los numeros impares son :",ci;

FinProceso

Operadores Matematicos

Este programa permite seleccionar un Operador para realizar una operación matemática simple,el programa finaliza cuando el usuario digita 5.

Proceso operadores
repetir
Escribir "Que desea hacer ?";
   Escribir  "1 SUMAR";
   Escribir  "2 RESTAR ";
   Escribir  "3 DIVIDIR ";
   Escribir  "4 MULTIPLICAR ";
   Escribir  "5 SALIR ";
   Leer rta;
escribir "Ingrese numero a";
leer numa;
escribir "Ingrese numero b";
leer numb;
si rta=1 entonces
sumar<- numa+numb;
 Escribir "Resultado: ",sumar;
finsi
si rta=2 entonces
restar<- numa-numb;
 Escribir "Resultado: ",restar;
finsi
si rta=3 entonces
div<- numa/numb;
 Escribir "Resultado: ",div;
finsi
si rta=4 entonces
mult<- numa*numb;
 Escribir "Resultado: ",mult;
finsi
hasta que rta=5
FinProceso