Hacer el Algoritmo para sumar 3 números leídos por teclado, dividirlos entre 2 e imprimir el resultado.
Algoritmo: sumar_3
Inicio
Var
Enteros: a, b, c, s a
Real: d
b
Inicio
Leer a c
Leer b
Leer c s= a+b+c
s= a+b+c
d= s/2
d= s/2
imprimir d d
Fin
Fin
Hacer un Algoritmo que permita leer 2 números diferentes y nos diga cual es el mayor de los 2 números.
Algoritmo: cual_es_mayor
Inicio
Var
Entero: a, b a
Inicio
b
Leer a
Leer b F “el mayor
a>b es ”,b
Si a>b entonces
Escribir “el mayor es ”, a V
1
Sino “el mayor es ”,a
Escribir “el mayor es ”, b
Fin_si 1
1
Fin
Fin
Realizar el Algoritmo para que nos calcule el Area de un triángulo conocido su base y su altura.
Algoritmo: área_triangulo
Inicio
Var
Real: b, h. a “ingresar la base”
Inicio
b
Escribir “ingresar la base”
Leer b “ingresar la altura”
Escribir “ingresar la altura”
Leer h h
a= (b*h)/2
a= (b*h)/2
escribir “el área del triangulo es: ”, a
Fin “el área del triangulo es: ”, a
Fin
Algoritmo para sumar X cantidad de números Introducidos manualmente.
Algoritmo: sumar_x
Var
Inicio
Entero: total, x, suma, n
Inicio “Ingresa el total
de números”
Escribir “ingresar el total de números”
Leer total
total
x= 1
suma= 0 X= 1
mientras x <= total hacer
escribir “ingresar numero” F
leer n X<= total Fin
x= x+1 V
“Ingresa el
Fin_minetras
numero”
Fin
x= x+ 1
Hacer un Algoritmo que permita escribir los 50 primeros pares.
Algoritmo: pares
Inicio
Var
Enteros: a a= 0
Inicio
a= 0 F
a<= 100 Fin
mientras a <= 100 hacer V
escribir a
fin_si a
a= a+2
a= a+2
fin_mientras
fin
Hacer un Algoritmo que permita escribir los 50 primeros Impares.
Algoritmo: impares
Var
Inicio
Enteros: b
Inicio b= 0
b= 0
mientras a <= 100 hacer
b<= 100 Fin
si b mod 2=1 entonces
escribir b
fin_si
b mod 2 = 0
b= b+1
fin_mientras
b
fin
b= b+1