Ejemplos usando Hacer Mientras

Se pide elaborar un algoritmo que permita calcular  la nota de parcial 1, parcial 2, parcial , examen final, trabajo final y calificación final.

Proceso notas
Definir parcial,p1,p2,p3,examenf,trabf,calif_f Como Real;
Definir x Como Entero;
x=0;
p3=0;
Mientras x=0 Hacer
Escribir "ingrese la nota del parcial 1 ";
Leer p1;
Si p1>=0 y p1<=10 Entonces

x=1;
Sino
Escribir "la nota del parcial 1 es incorrecta";
FinSi
FinMientras

x=0;

Mientras x=0 Hacer
Escribir "ingrese la nota del parcial 2 ";
Leer p2;
Si p2>=0 y p2<=10 Entonces

x=1;
Sino
Escribir "la nota del parcial 2 es incorrecta";
FinSi
FinMientras

x=0;

Mientras x=0 Hacer
Escribir "ingrese la nota del parcial 3 ";
Leer p3;
Si p3>=0 y p3<=10 Entonces

parcial=((p1+p2+p3)/3)*0.55;
Escribir "la nota del parcial es ",parcial;
x=1;

Sino
Escribir "la nota del parcial es incorrecta 3 ";
FinSi
FinMientras

x=0;

Mientras x=0 Hacer
Escribir "ingrese la nota del examen final";
Leer examenf;
Si examenf>=0 y examenf<=10 Entonces
examenf=(examenf*0.3);
Escribir "examen es ",examenf;
x=1;
Sino
Escribir "la nota del examen final es incorrecto";
FinSi
FinMientras
x=0;
Mientras x=0 Hacer
Escribir "ingrese la nota del trabajo final";
Leer trabf;
Si trabf>=0 y trabf<=10 Entonces
trabf=(trabf*0.15);
escribir "trabajof",trabf;
x=1;
Sino
Escribir "la nota del trabajo final es incorrecta";
FinSi
FinMientras
calif_f=trabf+examenf+parcial;
Escribir "su calificacion final es ",calif_f;
FinProceso

Proceso llamda

Definir costof,minu Como Real;

Definir x como entero;

x=0;

Mientras x=0 Hacer

Escribir "ingrese la cantidad de minutos de la llamada";

Leer minu;

Si minu>0 Entonces

minu=minu*0.45;

x=1;

Sino

Escribir "el numero de llamas es incorrecto";

FinSi

FinMientras

costof=minu;

Escribir "el costo de la llamada es $",costof;

FinProceso

Proceso numero_negativo

Definir num,conv_positivo Como Real;

Definir x como entero;

x=0;

Mientras x=0 Hacer

Escribir "ingrese el numero negativo";

Leer num;

Si num<0 Entonces

num=(num-num)-num;

;

x=1;

Sino

Escribir "el numero es incorrecto";

Fin Si

Fin Mientras

conv_positivo=num;

Escribir "el numero convetido a positivo es  ",conv_positivo;

FinProceso

Realizar un algoritmo que permita calcular la nota de computo, promedio total y suma.

Proceso promedio_nota

Definir notacomp, promediot, suman Como Real;

definir x Como Entero;

x=1; //inializador para el contador de estudiante se pone en 1 para saber que comenzara desde el primero

suman=0; // inializo el acumulador donde se iran sumando las notas de cada uno de los estudiantes

Mientras x<=4 Hacer //est ciclo cuenta la antidad de veces a repetir

Escribir "ingrese su promedio de computo";  // entada de datos

Leer notacomp;

Si notacomp>=0 y notacomp<=10 Entonces  // evaluo si las notas son correctas 

suman=suman+notacomp; // acomula la sumatoria de notas de cada estudiante 

x=x+1; // aumento del contador por estudiante

Sino

Escribir "esa nota no es correcta"; //notificacion de nota no correcta

FinSi

FinMientras

promediot=suman/4; // calculo de promedio 

Escribir "el promedio del computo 1 es de ",promediot;  // salida

FinProceso