Algoritmo Sumar
Definir a, b, c Como Entero
Escribir 'Introduzca el primer numero'
Leer a
Escribir 'Introduzca el segundo numero'
Leer b
c <- a+b
Escribir 'La suma es', c
FinAlgoritmo
Algoritmo Suma_10_numeros
// pide diez numeros por teclado y realiza la suma de los diez.
x <- 1
suma <- 0
Mientras x<10 Hacer
Escribir 'Introduce el numero', x
Leer n
suma <- suma+n
x <- x+1
FinMientras
Escribir 'La suma de los 10 numeros es:', suma
FinAlgoritmo
Algoritmo Suma_Muchos_Numeros_2
// Suma los numeros que el usuario desea
suma <- 0
Repetir
Escribir 'Dime un numero'
Leer num
suma <- suma+num
Hasta Que num=0
Escribir 'La suma es:', suma
FinAlgoritmo
Algoritmo Suma_5_Calificaciones
// suma y calcula el promedio de 5 calificaciones
x <- 1
Mientras x<5 Hacer
Escribir 'Introduce la calificacion:', x
Leer cal
suma <- suma+cal
prom <- suma/5
x <- x+1
FinMientras
Escribir 'La suma de las 5 calificaciones es:', suma
Escribir 'El promedio de las 5 calificaciones es:', prom
FinAlgoritmo
Algoritmo
Suma_5_Calificaciones_Repetir_Hasta
Escribir 'Cuantas Calificaciones va a sumar:'
Leer n
acum <- 0
Para i<-1 Hasta n Hacer
Escribir 'Ingrese la calificacion', i
Leer cal
acum <- acum+cal
FinPara
prom <- acum/n
Escribir 'El promedio de las calificaciones es:', prom
FinAlgoritmo
Algoritmo Mayor_De_Edad
// verificar si una persona es o no mayor de edad
Definir Edad Como Entero
Escribir 'Porporcione su edad:'
Leer Edad
Si Edad>=18 Entonces
Escribir 'usted es mayor de edad'
SiNo
Escribir 'usted es menor de edad'
FinSi
FinAlgoritm
Algoritmo Suma_Muchos_Numeros
// suma los numeros que el usuario desea
Escribir 'Dime un numero'
Leer num
Suma <- 0
Mientras num=0 Hacer
Suma <- Suma+num
Escribir 'Hasta ahora, la suma es', Suma
Escribir 'Dime otro numero'
Leer num
FinMientras
Escribir 'Terminado'
FinAlgoritmo
Algoritmo
Suma_10_Numeros_Repetir_Hasta
// Suma 10 numeros
contador <- 0
suma <- 0
Repetir
Escribir 'Dame un numero'
Leer n
contador <- contador+1
suma <- suma+n
Hasta Que contador=10
Escribir 'La suma de los diez numero es:', suma
FinAlgoritmo
Algoritmo Imprime_pares
// Imprime Y suma los numeros pares entre 50 y 100
acum <- 0
Para i<-50 Hasta 100 Con Paso i+2 Hacer
acum <- acum+i
Escribir 'Los numeros pares entre 50 y 100 son:', i
FinPara
Escribir 'La suma de los numeros es:', acum
FinAlgoritmo
Algoritmo dia_Semana
// Escribe el dia de la semana segun el numero proporcionado
Definir dia como entero
Escribir 'Escriba el dia de la semana: '
Leer dia
Segun dia hacer
1:
Escribir 'El dia es lunes'
2:
Escribir 'El dia es Martes'
3:
Escribir 'El dia es Miercoles'
4:
Escribir 'El dia es Jueves'
5:
Escribir 'El dia es Viernes'
6:
Escribir 'El dia es Sabado'
7:
Escribir 'El dia es Domingo'
de otro modo:
Escribir 'El dia no existe'
FinSegun FinAlgoritmo
Algoritmo Suma_5_calificaciones
// suma 5 calificaciones y calcula promedio
contador <- 1
suma <- 0
Repetir
Escribir 'Dame la calificacion', contador
Leer cal
suma <- suma+cal
contador <- contador+1
Hasta Que contador>5
prom <- suma/5
Escribir 'El promedio es:', prom
FinAlgoritmo
Algoritmo Mayor_De_Edad
// verificar si una persona es o
no mayor de edad
Definir Edad Como Entero
Escribir 'Porporcione su edad:'
Leer Edad
Si Edad>=18 Entonces
Escribir 'usted es mayor de edad'
FinSi
FinAlgoritmo
INSTITUTO TECNOLOGICO DE SALINA CRUZ
ALUMNO:
NORIEGA ALBINO JORGE JADIEL
BELTRAN MARTINEZ CARLOS LEONARDO
DOCENTE:
ROSALES RUIZ MARIA DE LOS ANGELES
MODULO:
PROGRAMACION
SEMETRE: 1
GRUPO: 1F1
CARRERA: ING. QUIMICA
Algoritmo SUELDO_NETO
definir imp, cant, sneto, sueldo como entero
ESCRIBIR " INGRESE EL IMPORTE POR HORA "
LEER IMP
ESCRIBIR "INGRESE EL NUMERO DE HORAS TRABAJADAS"
LEER CANT
SNETO <-IMP*CANT
SUELDO<- SNETO+SNETO*(16/100)
Escribir " el sueldo neto es:", sneto
Escribir "el sueldo neto es :", sueldo
FinAlgoritmo
Algoritmo al_cuadrado
Definir x, R Como Entero
Escribir ' ingrese numero a elevar'
Leer x
R <- x+x
Escribir 'el resultado es:', R
FinAlgoritmo
Algoritmo al_cuadrado
Definir X, R Como Entero
Escribir ' ingrese numero a elevar'
Leer X
R <- X^2
Escribir 'el numero es:', R
FinAlgoritmo
Algoritmo mostrar
Definir entrada Como Entero
Escribir 'dame un numero'
Leer entrada
Escribir ' el numero es:', entrada
FinAlgoritmo