xxxxxxxxxx
Algoritmo para_arreglo_unidimensional
// Tamaño máximo del arreglo
Dimension a(100);
// Definiendo el tipo de datos de las variables a utilizar
Definir a,n,i,s,mayor,pos Como Entero;
// Tamaño del arreglo a trabajar
Repetir
Escribir "Ingrese el valor de n: " Sin Saltar;
Leer n;
Hasta Que n>=0 Y n<100;
// Ingreso de los elementos al arreglo
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Escribir "A[",i,"]= " Sin Saltar;
Leer a[i];
FinPara
// Mostrar los elementos ingresados en pantalla
Escribir "ANTES: ";
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Escribir "A[",i,"]= ", a[i];
FinPara
s <- 0;
Para i<-0 Hasta n-1 Con Paso 1 Hacer
s <- s + a[i];
FinPara
mayor <- -10000;
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Si mayor<a[i] Entonces
mayor <- a[i];
pos <- i;
FinSi
FinPara
a[pos] <- s;
Escribir "DESPUES: ";
// Mostrar los elementos ingresados en pantalla
Para i<-0 Hasta n-1 Con Paso 1 Hacer
Escribir "A[",i,"]= ", a[i];
FinPara
FinAlgoritmo
xxxxxxxxxx
Proceso CalculoNotaFinal
Definir nombre Como Caracter;
Definir cantidad,finalizar, opcion,i Como Entero;
Definir nota1,nota2,nota3 Como Real;
Definir ponderacion1,ponderacion2,ponderacion3,sumaPonderacion, sumaTotalPonderaciones Como Real;
finalizar<-0;
Escribir "**********Bienvenido**********";
Repetir
Escribir "***Menú***";
Escribir "1. Calcular Nota Final";
Escribir "2. Finalizar Calculo";
Leer opcion;
Segun opcion Hacer
1:
Limpiar Pantalla;
Escribir "Ingrese la cantidad de alumnos que desea calcular su nota";
Leer cantidad;
Para i<-1 Hasta cantidad Con Paso 1 Hacer
Escribir "Ingrese el nombre del alumno: ",i;
Leer nombre;
Escribir "Ingrese la nota 1 del alumno: ",i;
Leer nota1;
Escribir "Ingrese la nota 2 del alumno: ",i;
Leer nota2;
ponderacion1 = nota1 * 0.3;
ponderacion2 = nota2 * 0.3;
sumaPonderacion = ponderacion1+ponderacion2;
nota3 = 4.0 - sumaPonderacion;
ponderacion3 = nota3;
nota3 = nota3 / 0.4;
sumaTotalPonderaciones = ponderacion1+ponderacion2+ponderacion3;
Escribir "El alumno: ",i,".- ",nombre," requiere un ",nota3," para aprobar el ramo";
FinPara
2:
Limpiar Pantalla;
finalizar = 1;
De Otro Modo:
Escribir "Opción ingresada es invalida";
FinSegun
Hasta Que finalizar <> 0
FinProceso
xxxxxxxxxx
Algoritmo para_calcular_el_promedio_de_4_notas_ingresadas_por_teclado
Definir nota1, nota2, nota3, nota4, promedio Como Real;
Escribir "Ingrese la notra 1:" Sin Saltar;
Leer nota1;
Escribir "Ingrese la notra 2:" Sin Saltar;
Leer nota2;
Escribir "Ingrese la notra 3:" Sin Saltar;
Leer nota3;
Escribir "Ingrese la notra 4:" Sin Saltar;
Leer nota4;
promedio <- (nota1 + nota2 + nota3 + nota4)/4;
Escribir "El promedio es ", promedio;
FinAlgoritmo
xxxxxxxxxx
Algoritmo areaTriangulorectangulo
Definir base, altura, area Como Real
Escribir 'Escribe la base del triángulo'
leer base
Escribir 'Escribe la altura del triángulo'
leer altura
area = (base * altura)/2
Escribir 'El area del triangulo es: ',area
FinAlgoritmo
xxxxxxxxxx
Algoritmo negativo_y_positivo
Escribir "Ingrese un numero: "
Leer Num1
Si Num1>0 Entonces
Imprimir "Es un numero positivo"
SiNo
Imprimir "Es un numero negativo"
Fin Si
FinAlgoritmo
xxxxxxxxxx
Algoritmo Evaluacion1
Para i=-1 hasta 10 con paso 2 hacer
Escribir "El valor de i**" ,i
Fin Para
FinAlgoritmo
xxxxxxxxxx
Proceso SumaDeimparesEntre100Y500
suma <- 100;
Para i<-100 Hasta 500 Con Paso 1 Hacer
Escribir "PROCESO ", i;
Si i MOD 200 = 100 Entonces
suma <- suma+i;
FinSi
Escribir "Suma de numeros impares menores a 500";
FinPara
Escribir "Valor de suma: ", suma;
FinProceso