códigos:
2.- Mostrar
el promedio de una cantidad n de practicas.
SubAlgoritmo prom <- practicas ( nota, cantidad )
suma <- 0
Para i<-1 Hasta cantidad Hacer
suma <- suma + nota[i]
FinPara
prom<- suma/cantidad
FinSubAlgoritmo
Algoritmo Ejercicio2
Dimension notas[6]
Escribir "Ingrese la cantidad de practicas:"
Leer n
Para i<-1 Hasta n Hacer
Escribir "Ingrese la nota de la practica ",i,":"
Leer notas[i]
FinPara
Escribir "Su promedio es: ",practicas(notas,n)
Fin Algoritmo
3.- Preguntar a un
usuario si tiene numero telefónico e imprimir si es teléfono fijo o teléfono
móvil.
SubAlgoritmo
tel_movil()
Escribir "Ingrese
su numero de telefono movil"
Leer tel
Si tel < 9999999
Entonces
Escribir "No es un
telefono movil"
Escribir "Tienen
que ser 9 digitos"
FinSi
FinSubAlgoritmo
SubAlgoritmo tel_fijo()
Escribir "Ingrese
su numero de telefono fijo"
Leer tel
Si tel > 9999999
Entonces
Escribir "No es un
teléfono fijo"
Escribir "Tienen
que ser 7 dígitos"
FinSi
FinSubAlgoritmo
Algoritmo Ejercicio3
Escribir "Tiene
numero telefónico"
Leer res
Si res ="no"
Entonces
Escribir "Usted no
tiene numero telefónico"
SiNo
Si res = "si"
Entonces
Escribir "Que tipo
de teléfono posee"
Leer telef
Si telef=
"teléfono fijo" Entonces
tel_fijo()
SiNO
Si telef="teléfono
móvil" Entonces
tel_movil()
FinSI
FinSi
SiNo
Escribir "El
numero es móvil"
FinSi
FinSi
FinAlgoritmo
4.- Mostrar la cantidad de
dispositivos a comprar, el nombre del dispositivo, su precio y el costo total
de la compra.
SubProceso costo_compra(dis,precios,na)
Escribir "Costo total de las compras
:"
ct<-0
Para i=1 Hasta na
Hacer
Escribir dis[i]," -> " sin
saltar
Escribir precios[i]
ct=ct+precios[i]
FinPara
Escribir "El costo total de las compras es
" ct
Fin
SubProceso
SubProceso costo_dis(dis,precios,na)
Para i=1 Hasta
na Hacer
Escribir "Ingrese el precio para el ", dis[i],":"
Leer precios[i]
FinPara
Fin
SubProceso
SubProceso dispositivos(dis,na)
Para i=1 Hasta
na Hacer
Escribir "Introduce el nombre del ",i,"° dispositivo:"
Leer dis[i]
FinPara
Fin
SubProceso
SubProceso principal()
Escribir "Ingrese la cantidad de
dispositivos a comprar"
Leer na
Dimension dis[na]
dispositivos(dis,na)
Dimension precios[na]
costo_dis(dis,precios,na)
Dimension scal[na]
costo_compra(dis,precios,na)
Fin
SubProceso
Algoritmo Ejercicio4
principal
FinAlgoritmo
5.- Empleando sub procesos crear el
menú de opciones de Pseint.
SubAlgoritmo menu()
Escribir "1.- Archivo";
Escribir "2.- Editar";
Escribir "3.- Configurar";
Escribir "4.- Ejecutar";
Escribir "5.- Ayuda";
Escribir "6.- Salir ";
FinSubAlgoritmo
SubAlgoritmo eleccion()
Escribir "_______________________________________________";
Escribir "Seleccione una opcion :";
Leer op;
Segun op Hacer
1: Escribir " - ABRIR NUEVO ARCHIVO";
Escribir " - ABRIR UN ARCHIVO YA CREADO";
Escribir " - GUARDAR UN ARCHIVO";
Escribir " - GUARDAR UN NUEVO ARCHIVO";
esperar Tecla;2:Escribir " - DESHASER UN ARCHIVO";
Escribir " - REHACER UN ARCHIVO";
Escribir " - CORTAR UN ARCHIVO";
Escribir " - COPIAR UN ARCHIVO";
Escribir " - PEGAR UN ARCHIVO";
3: Escribir " - ASISTENCIAS";
Escribir " - PRESENTACION";
4: Escribir " - EJECUTAR";
Escribir " - EJECUTAR PASO A PASO";
Escribir " - EJECUCION EXPLICADA";
5: Escribir " - INDICE";
Escribir " - AYUDA RAPIDA";
Escribir " - EJEMPLOS";
esperar Tecla;De otro modo
Escribir "Cerrar Programa"
Finsegun
FinSubAlgoritmo
Algoritmo Ejercicio5
Escribir "_______________________________________________";
Escribir "Has iniciado sesion en Pseint";
Escribir "_______________________________________________";
Escribir " ";
menueleccionFinAlgoritmo
6.- Ingresar 10 números en un
arreglo, y mostrarlos.
Funcion mostrarArreglonumeros(datos)
Definir posicion como EnteroPara posicion <-1 Hasta 10 Con Paso 1 Hacer
Escribir " * " datos[posicion]," * "
FinPara
FinFuncion Algoritmo Ejercicio6
Definir n,num,posicion como EnteroDimension num[10]
Para posicion <-1 Hasta 10 Con Paso 1 Hacer
Escribir "Ingrese el numero " posicion "° "
Leer num[posicion]
FinPara
Escribir "Los numeros ingresados son :"
mostrarArreglonumeros(num)FinAlgoritmo
7.- Escribir el números de palabras
a ingresar y mostrar el numero de caracteres de cada palabra.
SubProceso mostrarCantidad ( cantidad, elementos, n )
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "El numero de caracters para la palabra : ",elementos[i]," es de ",cantidad[i]
FinPara
FinSubProceso
Algoritmo Ejercicio7
Definir longitud_nombres como entero
Definir palabra como cadena
Definir cant como entero
Escribir "Ingrese la cantidad de palabras"
Leer cant
Dimension cant_caracteres[cant]
Dimension palabra[cant]
Para i<-1 Hasta cant Con Paso 1 Hacer
Escribir "Ingrese la " i "° palabra en la posicion ",i
Leer palabra[i]
cant_caracteres[i]<-Longitud(palabra[i])FinPara
mostrarCantidad(cant_caracteres, palabra, cant)FinAlgoritmo
8.- Ingresar los días de la semana
hasta ingresar el día domingo e identificar como día no laborable.
SubAlgoritmo dias()
Definir dia como Cadena
Repetir
Escribir "Ingrese el día"
Leer dia
Si dia<>"domingo" Entonces
Escribir " Dia laborable "
FinSi
Hasta Que dia="domingo"
Si dia="domingo" Entonces
Escribir " * Dia no laborable * "
FinSi
FinSubAlgoritmo
Algoritmo Ejercicio8
Escribir "Dias de la semana"
Escribir " ************ "
dias()FinAlgoritmo
9.- Mostrar los perímetros de 5
figuras geométricas.
SubProceso menu()
Escribir "1.- CUADRADO";
Escribir "2.- RECTANGULO";
Escribir "3.- TRIANGULO";
Escribir "4.- PENTAGON0";
Escribir "5.- SALIR";
Escribir "";
Escribir "Figura: ";
FinSubProceso SubProceso calcular(op)
Definir l1,l2 como Real;
Leer fig
Si fig == 1 Entonces
Escribir "Ingrese el valor de un lado:";
Leer l1;
pt<-l1*4;Escribir "El perimetro del cuadrado es : ",pt;
SiNo
Si fig ==2 Entonces
Escribir "Ingrese el valor de la base:";
Leer l1;
Escribir "Ingrese el valor de la altura :";
Leer l2;
pt<-(l1*2) + (l2*2);Escribir "El perimetro del rectangulo es : ",pt;
SiNo
Si fig ==3 Entonces
Escribir "Ingrese el valor del lado:";
leer l1;
pt<-l1*3;Escribir "El perimetro del triangulo es : ",pt;
SiNo
Si fig ==4 Entonces
Escribir "Ingrese el valor del lado:";
leer l1;
pt<-l1*5;Escribir "El perimetro del pentagono es : ",pt;
FinSi
FinSi
FinSi
FinSi
FinSubProceso
Algoritmo Ejercicio9
Escribir " PERIMETROS DE FIGURAS"
menu();calcular(pt);FinAlgoritmo 10.- Mostrar las tablas de
multiplicar de un numero ingresado por teclado.
SubProceso tablas<-operacion(espacio)
Para i<-0 Hasta 12 Con Paso 1 Hacer
espacio<-espacio+" "FinPara
tablas<-Subcadena(espacio,0,12);
FinSubProceso
Algoritmo Ejercicio10
Escribir "Ingrese la cantidad de tablas a mostrar"
Leer num
Escribir " "
Mientras (i<13) Hacer
var<-"";
Para n<-1 Hasta num Con Paso 1 Hacer
var<-var+ " " + operacion(ConvertirATexto(n)+" x "+ConvertirATexto(i)+" = "+ConvertirATexto(n*i))+ " | ";
Fin Para
Escribir var;
i<-i+1;Fin Mientras
FinAlgoritmo 12.- Identificar por sus lados
ingresados si es un triangulo mediante la formula de comprobación y que tipo de
triangulo es según las dimensiones de sus lados.
SubAlgoritmo tiposT()
Escribir "Los triángulos por la dimension de sus lados pueden ser:"
Escribir "Triángulo Equilátero : Todos sus lados son iguales"
Escribir "Triángulo Isósceles : Tiene dos lados iguales "
Escribir "Triángulo Escaleno : Todos sus lados son diferentes"
Escribir " ...................."
FinSubAlgoritmo
SubAlgoritmo tris (a,b,c)
Leer a
Leer b
Leer c
Si (c-a) < b & b < (c+a) Entonces
Escribir " La figura es un triangulo"
SiNo
Escribir " La figura no es un triangulo"
FinSi
FinSubAlgoritmo
SubAlgoritmo cla
Definir a,b,c Como Entero
Escribir "Ingrese el tamaño de los lados"
Leer a
Leer b
Leer c
Si a=b & a <> c & b <> c Entonces
Escribir " El triangulo es Isosceles"
SiNo
Si a = b & a = c & b = c Entonces
Escribir " El triangulo es Equilatero"
SiNo
Escribir " El triangulo es Escaleno"
FinSi
FinSi
FinSubAlgoritmo Algoritmo Ejercicio12
tiposT()Escribir "La formula para comprobar si la figura es un triangulo es : "
Escribir "a + b > c "
Escribir "a + c > b "
Escribir "b + c > a "
Escribir "Ingrese los lados"
tris(a,b,c)Escribir "Clasificación por sus lados"
cla()FinAlgoritmo 16.- Ejecutar la operaciones básicas
empleando sub procesos.
SubProceso operaciones()
Escribir "1.- SUMA";
Escribir "2.- RESTA";
Escribir "3.- MULTIPLICACIÓN";
Escribir "4.- DIVISIÓN";
Escribir "5.- SALIR";
Escribir " ";
Escribir "Seleccione el numero de la Operacion: ";
FinSubProceso
SubProceso operacion(c)
Definir n1,n2 como Real;Escribir "Lectura de los valores numericos"
Escribir "Ingrese el 1° numero :";
Leer n1;
Escribir "Ingrese el 2° numero :";
Leer n2;
Segun c Hacer
1: resultado<-n1+n2;2: resultado<-n1-n2;3: resultado<-n1*n2;4: resultado<-n1/n2;De Otro Modo:
FinSegun
Escribir "El resultado de la Operacion es : ",resultado;
Esperar Tecla;
FinSubProceso
Algoritmo Ejercicio16
Definir alt Como Entero;alt<-0;Repetir
Limpiar Pantalla;
operaciones();Leer alt;
Segun alt Hacer
1: operacion(alt);2: operacion(alt);3: operacion(alt);4: operacion(alt);De Otro Modo:
Escribir " Cerrar";
FinSegun
Hasta Que (alt<1 || alt>4);
FinAlgoritmo
5:Funcion numpositivo <- leerpositivo ( ) Definir numpositivo como entero; Repetir Escribir "ingrese un positivo"; Leer numpositivo; Hasta Que numpositivo > 0 Fin Funcion Algoritmo sin_titulo Definir x,yy,z Como Entero; Escribir "ingrese el valor de x" x <- leerpositivo ( ); Escribir "ingrese el valor de yy" yy <- leerpositivo ( ); Escribir "ingrese el valor de z" z <- leerpositivo ( ); Escribir "x=",x; Escribir "yy=",yy; Escribir "z=",z; FinAlgoritmo6.Funcion saludar ( ) Escribir "hola a todos"; Fin Funcion Algoritmo sin_titulo saludar saludar saludar FinAlgoritmo7.Funcion resultado <- operacion(a, b) Definir resultado Como Real; resultado <- a * b; FinFuncion Algoritmo sin_titulo Definir res Como Real; res <- operacion(5, 4); Escribir "La operacion es: ", res; FinAlgoritmo
No hay comentarios:
Publicar un comentario