Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Tarea Algoritmos

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 8

Algoritmo DatosDeAlumno

Definir num_control, calificacion, promedio_general,i Como Entero;


Definir nombre Como Caracter;
Dimension num_control[5];
Dimension calificacion[5];
Dimension promedio_general[5];
Dimension nombre[5];

para i<-1 Hasta 5 Hacer


Escribir "";
Escribir "Escribe el nombre del alumno ",i,": ";
Leer nombre[i];

Escribir "Escribe el numero de control del alumno ",i,": ";


Leer num_control[i];

Escribir "Escribe la calificacion del alumno ",i,": ";


Leer calificacion[i];

Escribir "Escribe el promedio general del alumno ",i,": ";


Leer promedio_general[i];
Escribir "";
Escribir "";
FinPara

Para i<-1 Hasta 5 Hacer


Escribir "El nombre del alumno ",i," es: ", nombre[i];

Escribir "El numero de control del alumno ",i," es:


",num_control[i];

Escribir "La calificacion del alumno ",i," es:


",calificacion[i];

Escribir "El promedio general del alumno ",i," es:


",promedio_general[i];
Escribir "";
Escribir "";
FinPara

FinAlgoritmo
Algoritmo IdentificarTriangulo

Definir a, b, c Como Entero;

Escribir "Escribe el lado 1 del triangulo: ";


Leer a;

Escribir "Escribe el lado 2 del triangulo: ";


Leer b;

Escribir "Escribe el lado 3 del triangulo: ";


Leer c;

Si (a==b) y (a==c) Entonces


Escribir "El triangulo es Equilatero";
SiNo
si (a==b) o (a==c) o (b==c) Entonces
Escribir "El triangulo es Isosceles";
SiNo
Escribir "El triangulo es un Escaleno"
FinSi
FinSi

FinAlgoritmo
Algoritmo TablasDeMultiplicar

Definir i, tabla, res Como Entero;

Escribir "Escribe la tabla que deseas: ";


Leer tabla;

Para i<-1 Hasta 10 Hacer


res <- tabla * i;
Escribir tabla," * ",i," = ",res;
FinPara

FinAlgoritmo
Algoritmo SumaRestaMultiplicacionDivision

Definir suma, resta, multiplicacion, n1, n2 Como Entero;


Definir division Como Real;
Escribir "Escribe el primer numero: ";
Leer n1;

Escribir "Escribe el segundo numero: ";


Leer n2;

suma<-n1+n2;
resta<-n1-n2;
multiplicacion<-n1*n2;
division<-n1/n2;

Escribir "La suma de ",n1," y ",n2," es: ",suma;

Escribir "La resta de ",n1," y ",n2," es: ",resta;

Escribir "La multiplicacion de ",n1," y ",n2," es:


",multiplicacion;

Escribir "La division de ",n1," y ",n2," es: ",division;


FinAlgoritmo
Algoritmo SueldoEmpleado

Definir hrs_trabajadas, pago_hra, sueldo Como Entero;

Escribir"Escribe el pago por hora: ";


Leer pago_hra;
// pago_hra<-400;

Escribir"Escribe el numero de horas trabajadas: ";


Leer hrs_trabajadas;

sueldo<-pago_hra*hrs_trabajadas;

Escribir "El sueldo ganado es: $",sueldo;

FinAlgoritmo
Algoritmo Val_Absoluto

Definir n, x Como Entero;

Escribir "Escribe el numero: ";


Leer n;

x = abs(n);

Escribir "Valor obsoluto del numero ",n," es: ",x;

FinAlgoritmo
Algoritmo Capacitacion_Voto

Definir edad Como Entero;

Escribir "Escribe tu edad: ";


Leer edad;

Si (edad>=18) Entonces
Escribir "Usted esta capacitado para votar.";
SiNo
Escribir "Lo siento. No cumple con la mayoria de edad.";
FinSi

FinAlgoritmo
Algoritmo Aprobado_Reprobado

Definir i Como Entero;


Definir calif Como Real;
Dimension calif[5]

Para i=1 Hasta 5 Hacer


Repetir
Escribir Sin Saltar"Escribe la calificacion ",i," : ";
Leer calif[i];
si (calif[i]>7) y (calif[i]<10) Entonces
Escribir "Aprovado. ¡FELICIDADES!";
Escribir "";
SiNo
Si (calif[i]<0) o (calif[i]>10) Entonces
Escribir "Fuera de rango";
Escribir "";
SiNo
Escribir "Reprobado.";
Escribir "";
FinSi
FinSi
Hasta Que calif[i]<=10 y calif[i]>=0
FinPara

FinAlgoritmo

También podría gustarte