1.- ES UN EJEMPLOS PARA SACAR LAS ÁREAS DE ALGUNAS FIGURAS BÁSICAS :
Algoritmo OPERACIONES_BASICAS
Algoritmo OPERACIONES_BASICAS
Definir R,N Como Entero
Leer N
Menu(N)
FinAlgoritmo
SubProceso area_del_rectangulo(N)
A=0
Escribir 'digite un numero'
Leer B
Escribir 'diguite otro numero'
Leer H
A<-B*H
Escribir'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso area_del_cuadrado(N)
A=0
Escribir 'ingrese la medida del lado'
leer L
A<-L*L
Escribir 'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso area_del_circulo(N)
A=0
Escribir ' Diguite un numero'
leer r
ra<-r*r
A<-ra*3.1416
Escribir 'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso area_del_trapecio(N)
A=0
Escribir'Diguite un numero'
leer B
Escribir'Digite otro numero'
leer b
Escribir'Digite otro numero'
leer h
A=(B+b)/2*h
Escribir 'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso Menu(N)
Escribir 'Menú operaciones Basicas'
Repetir
Limpiar Pantalla
Escribir 'Menú operaciones Basicas'
Escribir '________________________'
Escribir '1.area_del_rectangulo'
Escribir '2.area_del_cuadrado'
Escribir '3.area_del_circulo'
Escribir '4.area_del_trapecio'
Escribir '5.fin'
Escribir 'Elija una opcción'
leer opc
Segun opc Hacer
1:area_del_rectangulo(N)
2:area_del_cuadrado(N)
3:area_del_circulo(N)
4:area_del_trapecio(N)
De Otro Modo:
Escribir 'Fin'
FinSegun
Escribir "Presione enter para continuar"
Esperar Tecla
Hasta Que opc=5
FinSubProceso
2.-ES PARA REALIZAR ALGUNAS OPERACIONES BÁSICAS:
SubProceso factorial(N)
R<-R*I
Para I<-1 Hasta N Con Paso 1 Hacer
R<-N*I
Fin Para
Escribir'el factoreal es:',R
Esperar Tecla
FinSubProceso
SubProceso raiz_cuadrada(N)
R<-raiz(N)
Escribir 'la raiz es:',R
Esperar Tecla
FinSubProceso
SubProceso Multiplos_menores_ascendentes(N)
R<-N
Para I<-1 Hasta 50 Con Paso 1 Hacer
R<-N*I
Escribir 'Los mltiplos en forma ascententes son:',R
Esperar Tecla
Fin Para
FinSubProceso
SubProceso Multiplos_menores_descendentes(N)
R<-N
Para I<-1 Hasta 50 Con Paso 1 Hacer
R=N*I
Escribir 'Los mltiplos en forma ascententes son:',R
Esperar Tecla
Fin Para
Esperar Tecla
FinSubProceso
SubProceso numeros_divicibles(N)
Si (num%3) = 0 Entonces
Escribir "El numero SI es divisible por tres",R
Sino
Escribir "El numero NO es divisible por tres",R
FinSi
FinSubProceso
SubProceso transformar_a_texto(N)
R<-N
N<-TEXTO
Escribir 'el numero transformado a palabras es:',TEXTO
Esperar Tecla
FinSubProceso
SubProceso Menu(N)
Escribir 'Menú operaciones Basicas'
Repetir
Limpiar Pantalla
Escribir 'Menú operaciones Basicas'
Escribir '________________________'
Escribir '1.factorial'
Escribir '2.raiz_cuadrada'
Escribir '3.multiplos_menores_ascendentes'
Escribir '4.multiplos_menores_descendentes'
Escribir '5.numeros_divisibles'
Escribir '6.transformar_a_texto'
Escribir '7.fin'
Escribir 'Elija una opcción'
leer opc
Segun opc Hacer
1:factorial(N)
2:raiz_cuadrada(N)
3:multiplos_menores_ascendentes(N)
4:multiplos_menores_descendentes(N)
5:numeros_divicibles(N)
6:transformar_a_texto(N)
Escribir 'Fin'
FinSegun
Escribir "Presione enter para continuar"
Esperar Tecla
Hasta Que opc=7
FinSubProceso
Algoritmo OPERACIONES_BASICAS
Definir R,N Como Entero
Leer N
Menu(N)
FinAlgoritmo
R<-R*I
Para I<-1 Hasta N Con Paso 1 Hacer
R<-N*I
Fin Para
Escribir'el factoreal es:',R
Esperar Tecla
FinSubProceso
SubProceso raiz_cuadrada(N)
R<-raiz(N)
Escribir 'la raiz es:',R
Esperar Tecla
FinSubProceso
SubProceso Multiplos_menores_ascendentes(N)
R<-N
Para I<-1 Hasta 50 Con Paso 1 Hacer
R<-N*I
Escribir 'Los mltiplos en forma ascententes son:',R
Esperar Tecla
Fin Para
FinSubProceso
SubProceso Multiplos_menores_descendentes(N)
R<-N
Para I<-1 Hasta 50 Con Paso 1 Hacer
R=N*I
Escribir 'Los mltiplos en forma ascententes son:',R
Esperar Tecla
Fin Para
Esperar Tecla
FinSubProceso
SubProceso numeros_divicibles(N)
Si (num%3) = 0 Entonces
Escribir "El numero SI es divisible por tres",R
Sino
Escribir "El numero NO es divisible por tres",R
FinSi
FinSubProceso
SubProceso transformar_a_texto(N)
R<-N
N<-TEXTO
Escribir 'el numero transformado a palabras es:',TEXTO
Esperar Tecla
FinSubProceso
SubProceso Menu(N)
Escribir 'Menú operaciones Basicas'
Repetir
Limpiar Pantalla
Escribir 'Menú operaciones Basicas'
Escribir '________________________'
Escribir '1.factorial'
Escribir '2.raiz_cuadrada'
Escribir '3.multiplos_menores_ascendentes'
Escribir '4.multiplos_menores_descendentes'
Escribir '5.numeros_divisibles'
Escribir '6.transformar_a_texto'
Escribir '7.fin'
Escribir 'Elija una opcción'
leer opc
Segun opc Hacer
1:factorial(N)
2:raiz_cuadrada(N)
3:multiplos_menores_ascendentes(N)
4:multiplos_menores_descendentes(N)
5:numeros_divicibles(N)
6:transformar_a_texto(N)
Escribir 'Fin'
FinSegun
Escribir "Presione enter para continuar"
Esperar Tecla
Hasta Que opc=7
FinSubProceso
Algoritmo OPERACIONES_BASICAS
Definir R,N Como Entero
Leer N
Menu(N)
FinAlgoritmo
3.-ES PARA SABER SI ES MAYOR DE EDAD
Funcion Promedio(ed,N)
ed<-0
auxed<-0
Escribir 'ingresa la cantidad de personas'
leer n
Para I<-1 Hasta N Con Paso 1 Hacer
Escribir 'ingresa tu edad'
Leer ed
auxed <- auxed+ed
Fin Para
prom<-(auxed)/n
escribir 'el promedio de edad es:',prom
Esperar Tecla
FinFuncion
Funcion Edad_mayor(ed,N)
Escribir 'ESTE PROCESO ES PARA SABER SI ES MAYOR DE EDAD'
Escribir 'ingrese el año de nacimiento'
Leer A
Escribir 'diguite el año actual'
Leer a
ed<-A-a
Si ed>16 Entonces
EscribiR 'ES MAYOR DE EDAD'
Sino
Escribir 'ES MENOR DE EDAD'
Fin Si
Esperar Tecla
FinFuncion
Funcion Edad_menor(ed,N)
Escribir 'ESTE PROCESO ES PARA SABER SI ES MENOR DE EDAD'
Escribir 'ingrese el año de nacimiento'
Leer A
Escribir 'diguite el año actual'
Leer a
ed<-A-a
Si ed<-16 Entonces
EscribiR 'ES MENOR DE EDAD'
Sino
Escribir 'ES MAYOR DE EDAD'
Fin Si
Esperar Tecla
FinFuncion
SubProceso Menu(ed)
Definir opc Como Entero
Repetir
Limpiar Pantalla
Escribir 'opciones que puede seleccionar'
Escribir '1.edad promedio'
Escribir '2.edad mas alta'
Escribir '3.edad mas baja'
Escribir '4.fin'
Escribir 'elija una opcion'
Leer opc
Segun opc hacer
1:Promedio(ed,N)
2:Edad_mayor(ed,N)
3:Edad_menor(ed,N)
De Otro Modo:
Escribir 'error'
FinSegun
Hasta Que opc = 4
Esperar Tecla
FinSubProceso
Algoritmo OPERACIONES_BASICAS
Definir ed,N Como Entero
Para I<-1 Hasta N Con Paso 1 Hacer
Escribir 'INGRESE LA CANTIDAD DE PERSONAS'
Leer N
Escribir 'INGRESA TU EDAD'
leer ed
Fin Para
Menu(N)
FinAlgoritmo
Ejercisios con la descripcion mientras
4._Programa para calcular el promedio general del grupo en una asignatura
Algoritmo Promedio_notas
Definir as,nom como entero
Definir c Como Entero
Definir q1,q2,prom,sp,pg como real
c=0
prom=0
sp=0
leer as
Leer nom
Mientras nom < > entonces
Leer q1
Leer q2
c=c+1
prom=(q1+q2)
sp=sp+prom
Leer nom
Fin Mientras
pg=sp/c
Escribir "el proceso general de "s" estudiantes as es":pg
FinAlgoritmo
5._Programa con los datos del ejercisoio anterior el cual genera con las normas de los estudiantes que aprobaron y reprobaron
Algoritmo Promedio_notas
Definir as,nom como cadena
Definir c Como Entero
Definir q1,q2,prom,sp,pg como real
c=0
sp=0
Escribir "Ingrese la asignatura"
leer as
Escribir "Ingrese un nombre"
Leer nom
Mientras nom <> " " hacer
Escribir "Ingrese la primera nota"
Leer q1
Escribir "Ingrese la segunda nota"
Leer q2
c=c+1
prom=(q1+q2)/2
sp=sp+prom
Fin Mientras
pg=sp/c
Escribir "el promedio general de ",c"estudiantes ",as,es,"pg
FinAlgoritmo
6._Calcular el salario de un grupo de trabajadores dada la cantidad de horas y la tarifa por cada una se solicita desplegar el salario que resive cad empleado
Algoritmo Salario
Definir h,t,a,c como cadena
Escribir "ingrese el numero de mepleados"
Leer c
Para a<-1+c Hasta c Con Paso 1 Hacer
vh=1,5
Escribir "ingrese un nombre"
Leer nom
Escribir "ingrese el numero de horas trabajadas"
Leer ht
vm=ht,xvh,x4
Escribir "su salario mensual es",vm
Fin Para
FinAlgoritmo
7._Escribir un programa para ingresar un dia de la semana y desplegar el mensaje dia laboral o dia de descanso
Algoritmo dias_de_la_semana
Definir d,s como cadena
Escribir "ingrese un dia de la cemana"
Leer d
s=mayuscula(d)
Si s="luneso" o s="martes" o s="miercoles" os="jueves" os="viernes" Entonces
Escribir "es un dia laborable"
Sino
Si s="sabado" o s="domingo" Entonces
Escribir "es un dia de descanso"
Sino
Escribir "no es un dia de la semana"
Fin Si
Fin Si
FinAlgoritmo
ed<-0
auxed<-0
Escribir 'ingresa la cantidad de personas'
leer n
Para I<-1 Hasta N Con Paso 1 Hacer
Escribir 'ingresa tu edad'
Leer ed
auxed <- auxed+ed
Fin Para
prom<-(auxed)/n
escribir 'el promedio de edad es:',prom
Esperar Tecla
FinFuncion
Funcion Edad_mayor(ed,N)
Escribir 'ESTE PROCESO ES PARA SABER SI ES MAYOR DE EDAD'
Escribir 'ingrese el año de nacimiento'
Leer A
Escribir 'diguite el año actual'
Leer a
ed<-A-a
Si ed>16 Entonces
EscribiR 'ES MAYOR DE EDAD'
Sino
Escribir 'ES MENOR DE EDAD'
Fin Si
Esperar Tecla
FinFuncion
Funcion Edad_menor(ed,N)
Escribir 'ESTE PROCESO ES PARA SABER SI ES MENOR DE EDAD'
Escribir 'ingrese el año de nacimiento'
Leer A
Escribir 'diguite el año actual'
Leer a
ed<-A-a
Si ed<-16 Entonces
EscribiR 'ES MENOR DE EDAD'
Sino
Escribir 'ES MAYOR DE EDAD'
Fin Si
Esperar Tecla
FinFuncion
SubProceso Menu(ed)
Definir opc Como Entero
Repetir
Limpiar Pantalla
Escribir 'opciones que puede seleccionar'
Escribir '1.edad promedio'
Escribir '2.edad mas alta'
Escribir '3.edad mas baja'
Escribir '4.fin'
Escribir 'elija una opcion'
Leer opc
Segun opc hacer
1:Promedio(ed,N)
2:Edad_mayor(ed,N)
3:Edad_menor(ed,N)
De Otro Modo:
Escribir 'error'
FinSegun
Hasta Que opc = 4
Esperar Tecla
FinSubProceso
Algoritmo OPERACIONES_BASICAS
Definir ed,N Como Entero
Para I<-1 Hasta N Con Paso 1 Hacer
Escribir 'INGRESE LA CANTIDAD DE PERSONAS'
Leer N
Escribir 'INGRESA TU EDAD'
leer ed
Fin Para
Menu(N)
FinAlgoritmo
4._Programa para calcular el promedio general del grupo en una asignatura
Algoritmo Promedio_notas
Definir as,nom como entero
Definir c Como Entero
Definir q1,q2,prom,sp,pg como real
c=0
prom=0
sp=0
leer as
Leer nom
Mientras nom < > entonces
Leer q1
Leer q2
c=c+1
prom=(q1+q2)
sp=sp+prom
Leer nom
Fin Mientras
pg=sp/c
Escribir "el proceso general de "s" estudiantes as es":pg
FinAlgoritmo
5._Programa con los datos del ejercisoio anterior el cual genera con las normas de los estudiantes que aprobaron y reprobaron
Algoritmo Promedio_notas
Definir as,nom como cadena
Definir c Como Entero
Definir q1,q2,prom,sp,pg como real
c=0
sp=0
Escribir "Ingrese la asignatura"
leer as
Escribir "Ingrese un nombre"
Leer nom
Mientras nom <> " " hacer
Escribir "Ingrese la primera nota"
Leer q1
Escribir "Ingrese la segunda nota"
Leer q2
c=c+1
prom=(q1+q2)/2
sp=sp+prom
Fin Mientras
pg=sp/c
Escribir "el promedio general de ",c"estudiantes ",as,es,"pg
FinAlgoritmo
6._Calcular el salario de un grupo de trabajadores dada la cantidad de horas y la tarifa por cada una se solicita desplegar el salario que resive cad empleado
Algoritmo Salario
Definir h,t,a,c como cadena
Escribir "ingrese el numero de mepleados"
Leer c
Para a<-1+c Hasta c Con Paso 1 Hacer
vh=1,5
Escribir "ingrese un nombre"
Leer nom
Escribir "ingrese el numero de horas trabajadas"
Leer ht
vm=ht,xvh,x4
Escribir "su salario mensual es",vm
Fin Para
FinAlgoritmo
7._Escribir un programa para ingresar un dia de la semana y desplegar el mensaje dia laboral o dia de descanso
Algoritmo dias_de_la_semana
Definir d,s como cadena
Escribir "ingrese un dia de la cemana"
Leer d
s=mayuscula(d)
Si s="luneso" o s="martes" o s="miercoles" os="jueves" os="viernes" Entonces
Escribir "es un dia laborable"
Sino
Si s="sabado" o s="domingo" Entonces
Escribir "es un dia de descanso"
Sino
Escribir "no es un dia de la semana"
Fin Si
Fin Si
FinAlgoritmo
