Cuaderno de Programacion

UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD CIENCIAS ECONÓMICAS
CARRERA ESTADÍSTICA
LENGUAJES DE PROGRAMACIÓN
NOMBRE: DAYANA SALAZAR
Algoritmo edad
//Ejercicio 1
//Escribir un programa que pregunte al usuario su edad y muestre por pantalla si es mayor de edad o no.
// dayana salazar
// 27/11/23
definir n1 como entero;
escribir"ingrese su edad porfavor ";
leer n1;
si n1>=18 entonces
escribir " es mayor de edad";
sino
escribir " no es mayor de edad";
FinSi
FinAlgoritmo
…………………………………………………………………………..
Algoritmo almacene_contraseñas
// dayana salazar
// 27/11/23
// ejercicio 2
//Escribir un programa que almacene la cadena de caracteres contraseña en una variable,
//pregunte al usuario por la contraseña e imprima por pantalla si la contraseña introducida
//por el usuario coincide con la guardada en la variable sin tener en cuenta mayúsculas y minúsculas.
// Declarar variables
definir contraseñag como caracter;
definir contraseñau como caracter;
// Almacenar la contraseña en la variable
contraseñag <-"dayana123";
// Solicitar la contraseña al usuario
Escribir"Ingrese la contraseña:";
Leer contraseñau;
// Verificar si la contraseña coincide
Si contraseñau = contraseñag Entonces
Escribir "Contraseña correcta";
Sino
Escribir"Contraseña incorrecta";
FinSi
FinAlgoritmo
………………………………………………………………………………………
Algoritmo division
// dayana salazar
// 27/11/23
//Ejercicio 3
//Escribir un programa que pida al usuario dos números y
//muestre por pantalla su división. Si el divisor es cero
//el programa debe mostrar un error.
definir n1 , n2 , a como real;
escribir "ingrese el primer numero ";
leer n1;
escribir "ingrese el segundo numero ";

leer n2;
// Verificar si el divisor es cero
Si n2= 0 Entonces
Escribir"Error: No se puede dividir entre cero.";
Sino
// Calcular la división y mostrar el resultado
a = n1 / n2;
Escribir "El resultado de la división es: ", a;
FinSi
FinAlgoritmo
……………………………………………….
Algoritmo par_impar
// dayana salazar
// 27/11/23
//Ejercicio 4
//Escribir un programa que pida al usuario un número
//entero y muestre por pantalla si es par o impar.
definir n1 Como Entero;
escribir " ingrese un numero ";
leer n1;
si n1 mod 2 = 0 Entonces
escribir " es par ";
sino
escribir " no es par ";
FinSi
FinAlgoritmo
………………………………………………………………………
Algoritmo tributar
// dayana salazar
// 27/11/23
//Ejercicio 5
//Para tributar un determinado impuesto se debe ser mayor de 16 años y
//tener unos ingresos iguales o superiores a 1000 € mensuales. Escribir
//un programa que pregunte al usuario su edad y sus ingresos mensuales y muestre
//por pantalla si el usuario tiene que tributar o no.
definir n1,ingrem como real;
escribir " ingrese su edad " ;
leer n1;
escribir " ingrese sus ingresos mensuales ";
leer ingrem;
si n1 >=16 y ingrem >=1000 Entonces
escribir " usted tiene que tributar";
SiNo
escribir " usted no tiene que tributar ";
FinSi
FinAlgoritmo
……………………………………………………………….
Algoritmo tramos_impositivo
// dayana salazar
// 27/11/23
//Ejercicio 7
//Los tramos impositivos para la declaración de la renta en un determinado país son los siguientes:
//RentaTipo impositivo
//Menos de 10000€ 5%
//Entre 10000€ y 20000€ 15%
//Entre 20000€ y 35000€ 20%
//Entre 35000€ y 60000€ 30%
//Más de 60000€ 45%
//Escribir un programa que pregunte al usuario su renta anual y muestre por pantalla el tipo impositivo que le
corresponde.
definir n1 como real;
escribir " ingrese su renta anual ";
leer n1;
// renta de tipo impositivo
si n1<= 10000 Entonces
escribir " declara el 5% ";
SiNo
si n1>= 10000 o n1= 20000 Entonces
escribir " declara su renta el 15 % ";
sino
si n1>= 20000 o n1= 35000 Entonces
escribir " declara su renta el 20 %";
si n1>= 35000 o n1= 60000 Entonces
si n1 >= 60000 Entonces
FinSi
FinSi
FinSi
FinSi
FinSi
FinAlgoritmo
……………………………………………………………
Algoritmo EvaluacionEmpleado
// dayana salazar
// 27/11/23
//Ejercicio 8
// Declarar variables
definir puntu, canti como real;
// Solicitar al usuario la puntuación
Escribir"Ingrese la puntuación del empleado: ";
Leer puntu;
// Determinar el nivel de rendimiento y la cantidad de dinero
Si puntu = 0.0 Entonces
Escribir"Nivel: Inaceptable";
Sino Si puntuacion = 0.4 Entonces
Escribir "Nivel: Aceptable" ;
Sino Si puntu >= 0.6 Entonces
Escribir "Nivel: Meritorio";
FinSi
finsi
finsi
// Calcular la cantidad de dinero
canti= 2400 * puntu;
Escribir"Cantidad de dinero a recibir: ", canti, "€";
FinAlgoritmo
…………………………………………………………………………………
Algoritmo CalcularPrecioEntrada
// dayana salazar
// 27/11/23
//Ejercicio 9
//Escribir un programa para una empresa que tiene salas de juegos para todas
//las edades y quiere calcular de forma automática el precio que debe cobrar a
//sus clientes por entrar. El programa debe preguntar al usuario la edad del cliente
//y mostrar el precio de la entrada. Si el cliente es menor de 4 años puede entrar gratis,
//si tiene entre 4 y 18 años debe pagar 5€ y si es mayor de 18 años, 10€.
definir precioe como real ;
definir edad como entero;

// Solicitar al usuario la edad del cliente
Escribir"Ingrese la edad del cliente: ";
Leer edad;
// Calcular el precio de la entrada según la edad
Si edad < 4 Entonces
precioe = 0;
Sino Si edad >= 4 Y edad <= 18 Entonces
precioe = 5;
Sino
precioe= 10;
FinSi
FinSi
// Mostrar el precio de la entrada
Escribir"El precio de la entrada es: ", precioe, "€";
FinAlgoritmo
-------……………………………………………
Algoritmo pizza
// dayana salazar
// 27/11/23
//Ejercicio 10
//La pizzería Bella Napoli ofrece pizzas vegetarianas y no vegetarianas a sus clientes.
//Los ingredientes para cada tipo de pizza aparecen a continuación.
//Ingredientes vegetarianos: Pimiento y tofu.
//Ingredientes no vegetarianos: Peperoni, Jamón y Salmón.
//Escribir un programa que pregunte al usuario si quiere una pizz
//a vegetariana o no, y en función de su respuesta le muestre un menú con los
//ingredientes disponibles para que elija. Solo se puede eligir un ingrediente además
//de la mozzarella y el tomate que están en todas la pizzas. Al final se debe mostrar
//por pantalla si la pizza elegida es vegetariana o no y todos los ingredientes que lleva.
definir tpizza, ingre, ingreele como caracter;
escribir "¿Desea una pizza vegetariana? (S/N): ";
leer tpizza;
ingre = "Mozzarella, Tomate";
Si tpizza = "S" Entonces
Escribir"Ingredientes vegetarianos disponibles:";
Escribir"1. Pimiento";
Escribir"2. Tofu";
Sino Si tpizza = "N" Entonces
Escribir"Ingredientes no vegetarianos disponibles:";
Escribir"1. Peperoni";
Escribir"2. Jamón";
Escribir"3. Salmón";
FinSi
FinSi
Escribir "Seleccione un ingrediente (1, 2, 3):";
Leer ingreele;
//Caso "1"
si ingre = ingre + ", Pimiento" entonces
escribir "";
SiNo
si ingre = ingre + ", tofu"
SiNo
si ingre = ingre + ", Peperoni"
FinSi
FinSi
FinSi
// Mostrar la información de la pizza
Escribir"Su pizza:";
Si tpizza = "S" Entonces

Escribir "Tipo: Vegetariana";
Sino
Escribir "Tipo: No Vegetariana";
FinSi
Escribir "Ingredientes: ", ingre;
FinAlgoritmo
Algoritmo funciones_matematicas
// nombre:dayana salazar
// tema:funciones matematicas azar
// aleatorio el minimo y maximo (rango)
// fecha: 17/11/2023
// lp-02_001
definir n,n2 Como Real;
escribir " ingrese un numero";
leer n;
n2<-redonNo;
escribir " el numero redondeado es : ",n2;
n2<-raizNo;
escribir " la raiz de: ", n , " es: " n2;
//generar aleatorios
n<- azar(5)+1;
escribir n , " es un numero aleatorio hasta 5: ";
n<- Aleatorio(1,12);
escribir n , " es un numero entre 1 y 12";
FinAlgoritmo
Algoritmo numeros
// tema: usuario ingrese tres numeros para obtener raices de una funcion cuadratica
// fecha: 17/11/2023
// lp-02_001
definir a,b,c , total,x como real;
leer a;
leer b;
leer c;
x<- -b+raiz((b)^2-4*(a)*(c))/2*a;
escribir " el resultado es " , x;
FinAlgoritmo
Algoritmo funcion_cuadratica
// fecha: 20/11/2023
// lp-02_001
definir a,b,c,x,x2 como real;
escribir " ingrese un numero para a";
leer a;
escribir " ingrese un numero para b ";
leer b;
escribir " ingrese un numero para c ";
leer c;
x<- (-b)+raiz((b)^2-4*(a)*(c))/2*a;
x2<- (-b)-raiz((b)^2-4*(a)*(c))/2*a;
escribir " el resultado es " , x;
escribir " el resultado es " , x2;
FinAlgoritmo
Algoritmo funcion_cuadratica
// fecha: 20/11/2023
// lp-02_001
definir a,b,c,x,x2 como real;
escribir " ingrese un numero para a";
leer a;
escribir " ingrese un numero para b ";
leer b;
escribir " ingrese un numero para c ";
leer c;
x<- (-b)+raiz((b)^2-4*(a)*(c))/2*a;
x2<- (-b)-raiz((b)^2-4*(a)*(c))/2*a;
escribir " el resultado de x es: " , x;
escribir " el resultado es x2 es: " , x2;
FinAlgoritmo
Algoritmo condiicones
//dayana salzar
// residuo de una division
definir n1,n2,t,t1,resto como real;
escribir " ingrese el numero ";
leer n1;
escribir " ingrese el segundo numero ";
leer n2;
t<- n1/n2;
t<-trunc(t);
t1<- n2*t;
resto<- n1-t1;
escribir resto;
si resto= 0 Entonces
escribir n1, " es divisible para ", n2," porque el residuo es :",resto;
FinSi
FinAlgoritmo
Algoritmo condiciones3
//dayana salzar
//tema:introduccion a condiciones verifca la respuesta si del usuario
// fecha: 20/11/2023
//lp_02_001
definir respuesta Como Caracter;
escribir " quieres ser mi CASI-ALGO";
LEER respuesta;
esperar 2 segundos;
si respuesta = "si" entonces ;
escribir " sonrisa " ;
esperar 2 segundos;
esperar 2 segundos;
escribir " ♥ " ;
FinSi
FinAlgoritmo
Algoritmo condiciones3
//dayana salzar
//tema:introduccion a condiciones verifca la respuesta si del usuario
// fecha: 20/11/2023
//lp_02_001
escribir " quieres ser mi CASI-ALGO";
LEER respuesta;
Borrar Pantalla;
esperar 2 segundos;
si respuesta = "si" entonces ;
esperar 2 segundos;
esperar 2 segundos;
escribir " <3 " ;

escribir " esperando una tecla";
Esperar Tecla;
escribir " ** ** " ;
escribir " * * * " ;
escribir " * * " ;
escribir " * " ;
FinSi
FinAlgoritmo
Algoritmo vocal
definir letra Como Caracter;
escribir " ingrese una letra ";
leer letra;
si letra = "a" o letra = "e" o letra= "i" o letra = "o" o letra = " u" Entonces
escribir letra, " es vocal", ;
SiNo
escribir letra , " no es vocal";
FinSi
FinAlgoritmo
07:25
Algoritmo vocal
// nombre: Dayana salazar
// verifica si un carcater es vocal
//lp_02_001
// fecha : 24/11/2023
definir letra Como Caracter;
escribir " ingrese una letra ";
leer letra;
si letra = "a" o letra = "e" o letra= "i" o letra = "o" o letra = " u" Entonces
escribir letra, " es vocal", ;
SiNo
escribir letra , " no es vocal";
FinSi
FinAlgoritmo
Algoritmo fiesta
// va hacer una fiesta en la noche menores de 18 no pueden entrar y solo pueden entrar mujeres
//si es h o m y que nos idga su año de nacimiento
// m si es mayor de 18 bienvenido
// si no cumple no puede ingresar a la fiesta
//lp_02_001
// fecha : 24/11/2023
definir genero Como Caracter;
definir n1, a Como Real;
escribir " cual es tu genero ";
leer genero;
escribir " cual es tu año de nacimiento ";
leer n1;
a<-(2023-n1);
escribir a;
si genero = "m" y a >= 18 Entonces
escribir " bienvenido ";
sino
escribir " no puede ingresar a la fiesta ";
FinSi
FinAlgoritmo
Algoritmo entradas_gratis

// REgalamos entradas a los chicos que tengan mas de 20 años y su pasatiempo sea futbol le regalamos una
// entrada sino gracias por participar
//lp_02_001
// fecha : 24/11/2023
definir genero,pasa Como Caracter;
definir n1, a Como Real;
escribir " cual es tu genero ";
leer genero;
escribir " cual es tu año de nacimiento ";
leer n1;
escribir " cual es tu pasatiempo favorito " ;
leer pasa;
a<-(2023-n1);
si genero = "h" y a >= 20 y pasa = "futbol" Entonces
escribir " ten te regalamos una entrada felicidades disfruta tu entrada ";
sino
escribir " gracias por participar ";
FinSi
FinAlgoritmo
// Condiciones anidadas
// dayana salazar
//27 NOV 23
//LP02 - 001
Algoritmo beca
Definir prom, asist Como real;
Escribir "Ingrese promedio";
Leer prom;
Escribir "Ingrese asistencia";
Leer asist;
Si prom > 80 Entonces
Si asist > 80 Entonces
Escribir " BECA 100%";
SiNo
Escribir " BECA 20%";
FinSi
SiNo
Si prom > 60 y prom <= 79 Entonces
Escribir " aprobado";
SiNo
Escribir "Reprobado";
FinSi
Fin Si
FinAlgoritmo
// Condiciones anidadas
// Dayana Salazar
//27 NOV 23
//LP02 - 001
Algoritmo fiesta
Definir edad Como Entero;
Definir genero Como Caracter;
Escribir "Ingrese edad";
Leer edad;
Escribir "Ingrese (h/m) si es hombre o mujer";
Leer genero;
Si edad<5 Entonces
Si genero="h" Entonces
Escribir "Bienvenido al grupo ELEFANTES ";
SiNo
Escribir "Bienvenido al grupo princesas ";
FinSi
SiNo
Escribir "Bienvenido a 1 EGB";

Fin Si
FinAlgoritmo
// Dayana salazar
//27 NOV 23
//LP02 - 001
Algoritmo fiesta
Definir anio Como Entero;
Definir genero Como Caracter;
Escribir "Ingrese su año de nacimiento";
Leer anio;
Escribir "Ingrese (h/m) si es hombre o mujer";
Leer genero;
Si 2023-anio>18 Entonces
Si genero="h" Entonces
Escribir "Bienvenido a la fiesta";
SiNo
Escribir "Aqui no hay fiesta";
FinSi
SiNo
Escribir "Aqui no hay fiesta";
Fin Si
FinAlgoritmo
Algoritmo menu
// menu de opciones
// Dayana Salazar
//28 NOV 23
//LP02 - 001
definir op , base, altura, lado, peri, area Como Real;

escribir " M E N U " ;
escribir " 1...............perímetro del cuadrado";
escribir " 2...............área del cuadrado ";
escribir " 3...............perímetro del triangulo";
escribir " 4...............área del triangulo";
escribir Sin Saltar " escoja la opción ";
leer op;
// programar la funcionalidadd el menu
si op>0 y op<5 Entonces
ESCRIBIR " AQUI EL PROCESO ";
Si op=1 o op =2 Entonces
escribir " ingrese el lado ";
leer lado ;
SiNo
escribir " ingrese la base ";
leer base ;
escribir " ingrese altura";
leer altura;
Fin Si
si op=1 Entonces
peri<-lado*4;
escribir " el perímetro del cuadrado es :", peri;
FinSi
si op=2 Entonces
area<-lado*lado;
escribir " el area del cuadrado es :", area;
FinSi
si op=3 Entonces
peri<-2*base+2*altura;
escribir " el perímetro deltriangulo es :", peri;
FinSi
si op=4 Entonces
area<-(base*altura)/2;
escribir " el area del triangulo es :", area;
FinSi
SiNo
escribir " la opcion no existe E R R O R ";
FinSi
FinAlgoritmo
Algoritmo menu
// menu de opciones
// Dayana Salazar
//28 NOV 23
//LP02 - 001
definir op , base, altura, lado, peri, area Como Real;
esperar 1 segundo;
escribir Sin Saltar " M " ;
esperar 1 segundo;
escribir Sin Saltar " E " ;
esperar 1 segundo;
escribir Sin Saltar " N " ;
esperar 1 segundo;
escribir Sin Saltar " U " ;
esperar 1 segundo;
escribir "";
escribir " 1...............perímetro del cuadrado";
escribir " 2...............área del cuadrado ";
escribir " 3...............perímetro del triangulo";
escribir " 4...............área del triangulo";
leer op;
Si op=1 o op =2 Entonces
escribir " ingrese el lado ";
leer lado ;
SiNo
escribir " ingrese la base ";
leer base ;
escribir " ingrese altura";
leer altura;
Fin Si
FinSi
si op=1 Entonces
peri<-lado*4;
escribir " el perímetro del cuadrado es :", peri;
SiNo
si op=2 Entonces
area<-lado*lado;
escribir " el area del cuadrado es :", area;
SiNo
si op=3 Entonces
peri<-2*base+2*altura;
escribir " el perímetro deltriangulo es :", peri;
SiNo
si op=4 Entonces
area<-(base*altura)/2;
escribir " el area del triangulo es :", area;
SiNo
FinSi
FinSi
FinSi
FinSi
FinAlgoritmo
Algoritmo menu
//ingrese dos numeros
//1 sumar
// 2 restar
//3 multiplicra
// dividir
//calcular la potencia
//dayana salazar
//28 NOV 23
//LP02 - 001
definir op , n1,n2, a,b,c,d,e Como Real;
esperar 1 segundo;
esperar 1 segundo;
esperar 1 segundo;
esperar 1 segundo;
esperar 1 segundo;
escribir "";
escribir " 1...............suma";
escribir " 2...............resta ";
escribir " 3...............multplicacion";
escribir " 4...............division";
escribir " 5...............potencia";
leer op;
Si op=1 o op =2 o op =3 o op = 4 o op =5 Entonces

leer n1 ;
escribir " ingrese otro numero";
leer n2 ;
FinSi
FinSi
si op=1 Entonces
a<-n1+n2;
escribir "la suma es :", a;
SiNo
si op=2 Entonces
b<-n1-n2;
escribir " la resta es :", b;
SiNo
si op=3 Entonces
c<-n1*n2;
escribir " la multiplicacion es :", c;
SiNo
si op=4 Entonces
d<-n1/n2;
escribir " la division es :",d;
SiNo
si op=5 Entonces
e<-(n1^n2);
escribir " la potencia es :",e;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinAlgoritmo
Algoritmo menu
//ingrese dos numeros
//1 sumar
// 2 restar
//3 multiplicra
// dividir
//calcular la potencia
//dayana salazar
//28 NOV 23
//LP02 - 001
definir op , n1,n2, a,b,c,d,e Como Real;
esperar 1 milisegundos;
esperar 1 Milisegundos;
esperar 1 Milisegundos;
escribir "";
escribir " 1...............suma";
escribir " 2...............resta ";
escribir " 3...............multplicacion";
escribir " 4...............division";
escribir " 5...............potencia";
leer op;
Si op=1 o op =2 o op =3 o op = 4 o op =5 Entonces
leer n1 ;
escribir " ingrese otro numero";
leer n2 ;
FinSi
FinSi
si op=1 Entonces
a<-n1+n2;
escribir "la suma es :", a;
SiNo
si op=2 Entonces
b<-n1-n2;
escribir " la resta es :", b;
SiNo
si op=3 Entonces
c<-n1*n2;
escribir " la multiplicacion es :", c;
SiNo
si op=4 Entonces
d<-n1/n2;
escribir " la division es :",d;
SiNo
si op=5 Entonces
e<-(n1^n2);
escribir " la potencia es :",e;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinAlgoritmo
Algoritmo saludo
//dayana salazar
//28/11/23
// saludo
// bienvenida
//despedida
definir op Como real;
escribir " M E N U " ;
escribir " 1...............saludo";
escribir " 2...............bienvenida ";
escribir " 3...............despedida";
leer op;
FinSi
si op=1 Entonces
escribir " hola como estas ";
sino
si op=2 Entonces
escribir "bienvenido a tu clase de lp ";
SiNo
si op=3 Entonces
escribir " adios nos vemos mañana en tu clase de lp";
sino
FinSi
FinSi
FinSi
FinAlgoritmo
Algoritmo menu3
// Funciones de cadenas
// 9 de junio del 2023
Definir opc Como Caracter;
Escribir " CONVERSIONES";
Escribir " A..... KM A M";
Escribir " B..... KM A M";

Escribir " C..... CM A M";
Escribir "Ingrese opcion";
Leer opc;
opc<-Minusculas(opc);
Si opc>="a" y opc<="c" Entonces
Si opc="a" Entonces
Escribir "Ingresa por A";
SiNo
Si opc="b" Entonces
Escribir "Ingresa por B";
SiNo
Escribir "Ingresa por C";
Fin Si
Fin Si
SiNo
Escribir "E R R O R de opción";
Fin Si
FinAlgoritmo
Algoritmo Tres_En_Raya
//TRABAJO EN GRUPO
//Integrantes: Karina Cuzco - Yadira Morales - Alondra Toledo - Dayana Salazar
//Fecha: 11/ Diciembre / 2023
//LP-001
//Definimos las Variables
Definir a1, a2, a3, a4, a5, a6, a7, a8, a9 Como caracter;
Definir dato, dato1 Como Entero;
Definir jug1, jug2 Como Caracter;
//Inicializamos las variables
a1<- " ";
a2<- " ";
a3<- " ";
a4<- " ";
a5<- " ";

a6<- " ";
a7<- " ";
a8<- " ";
a9<- " ";
Escribir " Ingrese el Nombre del primer Jugad@r";
Leer jug1;
Escribir " Ingrese el Nombre del segundo JUgad@r";
Leer jug2;
//PRESENTACION DEL TABLERO CON POSICIONES DE JUEGO
Escribir " Escoga una posición en base al grafico detallado ";
Escribir "";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
//PRIMERA JUGADA X
Escribir jug1 , " Ingrese jugada, usted juega con X ";
leer dato;
Si dato = 1 Entonces
a1<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;

Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
Si dato =6 Entonces
a6<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Escribir "JUGADA INCORRECTA";
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//PRIMERA JUGADA O
Escribir jug2 , " Ingrese jugada, usted juega con O ";
leer dato;
a1<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;

Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
Si dato =6 Entonces
a6<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//SEGUNDA JUGADA X
Leer dato;
a1<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";

Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";

Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =6 Entonces
a6<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
Si dato=9 Entonces
a9<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//SEGUNDA JUGADA O
Escribir jug2 , "Ingrese jugada, usted juega con O ";
leer dato;
si dato = 1 Entonces
a1<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
SI dato = 2 Entonces
a2<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =6 Entonces
a6<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;

Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//TERCERA JUGADA X
Leer dato;
a1<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;

Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";

Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =6 Entonces
a6<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
Si dato=8 Entonces
a8<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//TERCERA JUGADA O
leer dato;
a1<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
Si dato =4 Entonces
a4<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =6 Entonces
a6<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//CUARTA JUGADA X
Leer dato;
a1<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;

Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =6 Entonces
a6<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;

Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//CUARTA JUGADA O
leer dato;
a1<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
a3<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;

SiNo
Si dato =6 Entonces
a6<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "O";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
//QUINTA JUGADA X
Leer dato;
a1<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a2<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
a3<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =4 Entonces
a4<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=5 Entonces
a5<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;

Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato =6 Entonces
a6<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=7 Entonces
a7<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=8 Entonces
a8<-"X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;

Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
Si dato=9 Entonces
a9<- "X";
Escribir " ",a1," | "," ",a2," | ",a3," " ;
Escribir " ----------------------";
Escribir " ",a4," | "," ",a5," | ",a6," " ;
Escribir " ----------------------";
Escribir " ",a7," | "," ",a8," | ",a9," " ;
SiNo
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
// MUESTRA QUIEN GANO EL JUEGO X
Si (a1="X" y a2="X" y a3="X") Entonces
Escribir jug1 , " A ganado ";
Sino
SiNo
Si (a7="x" y a8="X" y a9="X") Entonces

Escribir jug1 , " Usted me a ganado ";
SiNo
SiNo
SiNo
SiNo
SiNo
Fin Si
Fin Si
Fin Si
Fin Si
Fin Si
Fin Si
FinSi
FinSi
// MUESTRA QUIEN GANO EL JUEGO O
Si (a1="O" y a2="O" y a3="O") Entonces
Sino
SiNo
SiNo

SiNo
SiNo
SiNo
SiNo
Fin Si
Fin Si
Fin Si
Fin Si
Fin Si
Fin Si
FinSi
FinSi
FinAlgoritmo
11:53
Algoritmo numeros_pares_conteo
// Algoritmo que ingrese cinco numeros y que sume los pares e impares y total de los numeros
//fecha:12/12/2023
//materia:lp_02_001
Definir i,tp,ti Como Entero;
definir num1,num2,num3,num4,num5 como real;
Escribir "ingrese el primer num ";
leer num1;
Escribir "ingrese el segundo num";
leer num2;
Escribir "ingrese el tercer num";

leer num3;
Escribir "ingrese el cuarto num";
leer num4;
Escribir "ingrese el quinto num";
leer num5;
tp<-0;
ti<-0;
Si num1 mod 2 = 0 Entonces
tp<-tp+num1;
Escribir num1 " numero par";
SiNo
ti<-ti+n1;
Fin Si
tp<-tp+num2;
SiNo
ti<-ti+num2;
Fin Si
tp<-tp+num3;
SiNo
ti<-ti+num3;
Fin Si
tp<-tp+num4;
SiNo
ti<-ti+num4;
Fin Si
tp<-tp+num5;
SiNo
ti<-ti+num5;
Fin Si
Escribir "suma de los num pares es ", tp;
Escribir "suma de los num impares es ", ti;
Escribir "El total es ", tp + ti;
FinAlgoritmo
11:53
Algoritmo bucle
// algoritmo de -1 y para
//fecha:12/12/2023
//materia:lp_02_001
definir i , num Como Entero;
para i <- 1 hasta 100 Hacer
escribir" ingrese un num ";
leer num;
escribir num;
si num = -1 entonces
i<-100;
escribir "para el algoritmo";
FinSi
FinPara
FinAlgoritmo
11:54
Algoritmo inico
// quiero un programa del inicio , fin , paso
//fecha:12/12/2023
//materia:lp_02_001
definir ini,fi,pas,i Como Entero;
escribir " ingrese un inicio ";
leer ini;
escribir " ingrese el fin ";
leer fi;
escribir " ingrese el paso ";
leer pas;
Para i<- ini Hasta fi Con Paso pas Hacer
escribir i;
Fin Para
FinAlgoritmo
15:39
Algoritmo adivina
definir num, aleat, i,int Como Entero;
aleat<-azar(15);
int<- 0;
escribir " ingrese el numero que pienso ";
leer num;
si aleat = num entonces
int<- int +1 ;
escribir "ganaste en el intento ", int;
i<-101;
int<- int +1 ;
sino
si aleat> num Entonces
escribir " ingrese un numero mayor";
int<- int +1 ;
SiNo
si aleat < num entonces
escribir "ingrese un numero menor ";
int<- int +1 ;
FinSi
FinSi
FinSi
FinPara
FinAlgoritmo
15:45
Algoritmo multipli
// dayana salazar
// 12/12/23
//lp_02_001
definir n1,n2, i , total Como Entero;
leer n1;
leer n2;
total <-0;
para i <- 1 hasta n2 hacer
total<-total+n1;
FinPara
escribir n1,"*" ,n2," = " , total ;
FinAlgoritmo
15:47
Algoritmo potencia
// dayana salazar
// 15/12/23
//lp_02_001
definir n1,n2, i , total Como Entero;
leer n1;
leer n2;
total <-1;
total<-total*n1;
FinPara
escribir n1,"^" ,n2," = " , total ;
FinAlgoritmo
Algoritmo menu
// dayana salazar
// 15/12/23
//lp_02_001
Definir i,tp,ti , op Como Entero;
definir num1,num2,num3,num4,num5 como real;
definir n1,n2 , total Como Entero;
Escribir " M E N U ";
Escribir " 1..... 5 números y contar pares y total de numeros ";
Escribir " 2..... multiplicacion sin el signo *" ;
Escribir " 3..... potencia sin el signo de ^ ";
escribir " eliga una opcion ";
leer op;
Segun op Hacer
1:
Escribir "ingrese el primer num ";
leer num1;
Escribir "ingrese el segundo num";
leer num2;
Escribir "ingrese el tercer num";
leer num3;
Escribir "ingrese el cuarto num";
leer num4;
Escribir "ingrese el quinto num";

leer num5;
tp<-0;
ti<-0;
tp<-tp+num1;
SiNo
ti<-ti+n1;
Fin Si
tp<-tp+num2;
SiNo
ti<-ti+num2;
Fin Si
tp<-tp+num3;
SiNo
ti<-ti+num3;
Fin Si
tp<-tp+num4;
SiNo
ti<-ti+num4;
Fin Si
tp<-tp+num5;
SiNo
ti<-ti+num5;
Fin Si
Escribir "suma de los num pares es ", tp;
Escribir "suma de los num impares es ", ti;

Escribir "El total es ", tp + ti;
2:
leer n1;
leer n2;
total <-0;
total<-total+n1;
FinPara
escribir n1,"*" ,n2," = " , total ;
3:
leer n1;
leer n2;
total <-1;
total<-total*n1;
FinPara
escribir n1,"^" ,n2," = " , total ;
De Otro Modo:
Escribir "error ";
Fin Segun
FinAlgoritmo
18 de diciembre de 2023
08:39
Algoritmo menu
//Dayana Salazar
//LP-02_002
//15/12/2023
Definir num, i, aux, par1, imp,op Como Entero;
definir a, b como entero;
leer num;
Escribir " M E N U ";
Escribir " 1..... Contador de numeros pares en impares ";
Escribir " 2..... sumatoria de los dijitos" ;
Escribir " 3.....numero divisble para cuatro ";
par1<-0;
imp<-0;
a<-0;
escribir " eliga una opcion ";
leer op;
Segun op Hacer
1:
Para i<-1 Hasta 100 Hacer
Si num >0 Y num <10 Entonces
Escribir num;
//Finalizar el Proceso
i<-101;
SiNo
aux<- num MOD 10;
Escribir Sin Saltar aux , " ";
num<-trunc(num/10);
Fin Si
Si num MOD 2=0 Entonces
par1<-par1+1;
SiNo
imp<-imp+1;
Fin Si
FinPara
Escribir " La cantidad de numeros pares ", par1;
escribir "";
Escribir " la cantidad de numero impares " , imp ;
escribir "";
2:
// sumatoria de los numeros
Escribir num;
i<-101;
SiNo
aux<- num MOD 10;
num<-trunc(num/10);
Fin Si
par1<-par1+1;
SiNo
imp<-imp+1;
Fin Si
FinPara
escribir " la sumatoria de los difitos es ", par1+ imp;
escribir "";
3:
Escribir num;
i<-101;
SiNo
aux<- num MOD 10;
num<-trunc(num/10);
Fin Si
par1<-par1+1;
SiNo
imp<-imp+1;
Fin Si
SI NUM mod 4 = 0 Entonces
a<- num+1;
escribir " divisible";
sino
escribir " no divisibles ";
FinSi
FinPara
escribir " los numeros divisibles para 4 son: " , num, " ", aux , ;
4:
De Otro Modo:
escribir " la opcion que eligio no existe ";
Fin Segun
FinAlgoritmo
18:42
Algoritmo menu_cadenas
// dayana salazar
// lp_02_001
//18/12/23
Definir tam ,i,k, op ,a como entero;
definir aux, frase Como Caracter;
escribir " ingrese una frase";

leer frase;
escribir " M E N U ";
escribir " 1...................mostrar elemento a elemento de la cedena";
escribir " 2...................contar vocales ";
escribir " 3...................contar las no vocales";
Escribir " 4...................mostrar la cadena en mayusculas y una en minusculas";
escribir " 5...................mostrar la cadena invertida";
escribir " elige una opcion " ;
leer op;
a<-0;
i<-1;
tam<- Longitud(frase);
para i <-1 hasta tam Hacer
Segun op Hacer
1:
aux<- Subcadena(frase,i,i);
Escribir aux;
2:
si aux ="a" o aux ="e" o aux ="i" o aux ="o" o aux ="u" entonces
a<-a+1;
escribir a,aux;
FinSi
3:
si aux<>"a" y aux<>"e" y aux <>"i" y aux<>"o" y aux<>"u" entonces
a<-a+1;
escribir a,aux;
FinSi
4:
si i mod 2 = 1 Entonces
aux<-Mayusculas(aux);
escribir sin saltar aux;
SiNo
aux<- Minusculas(aux);
FinSi
5:
para i <-tam hasta 1 Hacer
Escribir aux;
FinPara
De Otro Modo:
escribir " error";
Fin Segun
FinPara
FinAlgoritmo
19 de diciembre de 2023
12:15
Algoritmo menu_cadenas
// dayana salazar
// lp_02_001
//18/12/23
// definir variables
definir r como entero;
Definir tam ,i, op ,a como entero;
definir aux, frase ,letra,frase2 Como Caracter;
para r<- 1 hasta 100 hacer
escribir " ingrese su frase favorita ";
leer frase;
escribir " ingrese el caracter "
leer letra;
// escribir el menu
escribir " 1...................mostrar elemento a elemento de la cedena";
escribir " 2...................contar vocales ";
escribir " 3...................contar las no vocales";
Escribir " 4...................mostrar la cadena en mayusculas y una en minusculas";
escribir " 5................... cadena invertida";
escribir " 6 ...................carcater remplazar las vocales por el caracter que le pide";
escribir " elige una opcion " ;
leer op;
a<-0;
b<-"";
// empezar el proceso
para i <-1 hasta tam Hacer
Segun op Hacer
1:
Escribir aux;
2:
a<-a+1;
escribir a," " ,aux;
FinSi
3:
si aux<>"a" y aux<>"e" y aux <>"i" y aux<>"o" y aux<>"u" entonces
a<-a+1;
escribir a," " ,aux;
FinSi
4:
aux<-Mayusculas(aux);
SiNo
aux<- Minusculas(aux);
FinSi
5:
para i <-tam hasta 1 Hacer
Escribir aux;
FinPara
6:
frase2<-Concatenar(frase2,letra);
sino
frase2<- Concatenar(frase2,aux);
FinSi
escribir " la nueva frase:" , frase2;
De Otro Modo:
escribir " error";
Fin Segun
FinPara
escribir " desea volver al menu ?";
leer respuesta ;
respuesta<- minusculas(respuesta);
si respuesta = "no" Entonces
r<-101;
SiNo
Borrar Pantalla
FinSi
FinPara
FinAlgoritmo
12:19
Algoritmo sin_titulo
// contar cuantas palabras tiene una frase
// dayana salazar
definir i , tam como entero
definir aux, frase, letra, frase2 como caracter;
escribir " ingrese la frase "
leer frase ;
escribir " ingrese le caracter " ;
leer letra;
para i <- 1 Hasta tam Hacer
frase2<-Concatenar(frase2,letra);
sino
FinSi
FinPara
FinAlgoritmo
12:27
Algoritmo palabras
// contar cuantas palabras tiene una frase
// dayana salazar
definir i , tam , a como entero
definir aux, frase, letra, frase2 como caracter;
leer frase ;
a<-1;
si aux=" " entonces
frase2<-Concatenar(" " , frase2);
a<-a+1;
FinSi
FinPara
escribir " tiene " , a, " palabras ";
FinAlgoritmo
12:41
Algoritmo cambio_a_caracteres
// ingreso la frase, el caracter que quiero buscar, y por el que quiero cambiar
// dayana salazar
definir i , tam como entero
definir aux, frase, letra, frase2,car como caracter;
leer frase ;
escribir " ingrese la letra que quiere cambiar " ;
leer letra;
escribir " ingrese el caracter ";
leer car;
si aux =letra entonces
frase2<-Concatenar(frase2,car);
sino
FinSi
FinPara
FinAlgoritmo
5 de enero
07:41
Algoritmo ciclosanidados
//fecha: 05/01/24
//lp_02_001
// tema: implementacion de ciclos anidados
definir i,j , k como entero;
escribir i, " " ;
Para j<-1 Hasta 4 Con Paso 1 Hacer
escribir sin saltar " " ,j , " " ;
Para k<-1 Hasta 2 Con Paso 1 Hacer
escribir sin saltar " " ,k , " " ;
Fin Para
escribir "";
Fin Para
Fin Para
escribir "";
FinAlgoritmo
07:45
Algoritmo ciclosanidados2
//fecha: 05/01/24
//lp_02_001
definir i,j , k como entero;
Para j<-1 Hasta 4 Hacer
escribir sin saltar i, " ";
Fin Para
escribir "";
Fin Para
FinAlgoritmo
07:48
//fecha: 05/01/24
//lp_02_001
definir i,j , k,n como entero;
escribir " ingrese el tamaño del lado " ;
leer n;
Para i<-1 Hasta n Hacer
Para j<-1 Hasta n Hacer
escribir sin saltar "* ", " ";
Fin Para
escribir "";
Fin Para
FinAlgoritmo
07:58
//fecha: 05/01/24
//lp_02_001
leer n;
si j mod 2 = 1 Entonces
escribir sin saltar " * " , " ";
sino
escribir sin saltar " . " , " ";
FinSi
Fin Para
escribir "";
Fin Para
FinAlgoritmo
08:13
//fecha: 05/01/24
//lp_02_001
// tema: marco del cuadrado
leer n;
si i = 1 o i = n o j = 1 o j = n Entonces
escribir sin saltar "*" , " " ;
sino
escribir sin saltar " ", " " ;
FinSi
Fin Para
escribir "";
Fin Para
FinAlgoritmo
08:42
tare Algoritmo ciclosanidados2
//fecha: 05/01/24
//lp_02_001
// tema: marco del cuadrado
leer n;
Para i <- n Hasta 1 Hacer
Para j<- i Hasta 1 Hacer
escribir sin saltar "*" , " " ;
Fin Para
escribir "";
Fin Para
FinAlgoritmo
7 de enero
16:55
Algoritmo fechas
//fecha: 08/01/24
//lp_02_001
// tema: cree un programa de una flecha
Definir i,j, lado,op Como Entero;
Escribir "Ingrese el tamaño de la flecha ";
Leer lado;
escribir " M E N Ú " ;
Escribir "1..............flecha hacia arriba";
Escribir "2..............flecha hacia abajo";
Escribir "3..............flecha hacia la derecha";
Escribir "4..............flecha hacia izquierda";
escribir "eleja una opcion";
leer op;
Segun op Hacer
1:
Para i<-1 Hasta lado Hacer
Para j<-lado Hasta i Hacer
Escribir sin saltar " ", "";
Fin Para
Para j<-1 Hasta i Hacer
Escribir sin saltar "*", " ";
Fin Para
Escribir "";
Fin Para
Escribir " * *";
Escribir " * *";
2:
escribir " * *";
escribir " * *";
Para i<-lado Hasta 1 Hacer
Para j<-i Hasta lado Hacer
Fin Para
Para j<-1 Hasta i Hacer
Escribir sin saltar "*", " ";
Fin Para
Escribir "";
Fin Para
3:
4:
De Otro Modo:
escribir " error";
Fin Segun
FinAlgoritmo
8 de enero
11:41
Algoritmo mientras2
//fecha: 08/01/24
//lp_02_001
// tema: bucles con mientras
definir ii como entero;
escribir " CICLO MIENTRAS";
// ciclos con Mientras
// inicializar la varible ii
ii<-200;
// definir la condicion de pararda ii<= 10
Mientras ii>=1 Hacer
escribir ii, " "sin saltar ;
ii<-ii-5;
Fin Mientras
escribir "";
escribir "";
FinAlgoritmo
11:41
Algoritmo mientras1
//fecha: 08/01/24
//lp_02_001
definir i,ii como entero;
escribir sin saltar i, " " ;
Fin Para
escribir "";
// inicializar la varible ii
ii<-0;
// definir la condicion de pararda ii<= 10
Mientras ii<=10 Hacer
escribir ii, " "sin saltar ;
ii<-ii+1;
Fin Mientras
escribir "";
escribir "";
FinAlgoritmo
11:53
Algoritmo mientras2
//fecha: 08/01/24
//lp_02_001
definir n como entero;
n<-0;
Mientras n <> 99 Hacer
leer n;
Fin Mientras
escribir "";
FinAlgoritmo
12:12
Algoritmo mientras2
//fecha: 08/01/24
//lp_02_001
// definir las variables
definir n como caracter;

// inicializacion de las variables
n<-"si";
Mientras n ="si" Hacer
escribir " desea continuar";
leer n;
n<-MinusculasNo;
Fin Mientras
escribir "";
FinAlgoritmo
12:54
corregir
12:54
Algoritmo ejecicio
//fecha: 08/01/24
//lp_02_001
// definir las variables
definir n,d,i,divi,nu,den , total como entero;
escribir "ingrese el numerador ";
leer n;
escribir "ingrese el denominador ";
leer d;
divi<-1;
Mientras divi>1 Hacer
si n mod divi = 0 y d mod divi =0 Entonces
nu<-n/divi;
den<-d /divi;
FinSi
divi<-divi-1;
Fin Mientras
escribir" el denominador es" n, " /" , d "= ", divi ;
FinAlgoritmo
23:51
Algoritmo flecha
//fecha: 01/24
//lp_02_001
// tema: cree un programa de una flecha
Definir i,j, lado,op Como Entero;
Escribir "Ingrese el tamaño de la flecha ";
Leer lado;
i<-1;
Mientras 1>= lado Hacer
Mientras lado>=i Hacer
Fin Mientras
escribir " ";
Mientras 1>=i Hacer
Escribir sin saltar "* ", "";
Fin Mientras
Fin Mientras
Escribir " * *";
Escribir " * *";
FinAlgoritmo
9 de enero
12:08
Algoritmo numero1
// cuando el usuarioescriba-1 le vamos a decir gracias
definir n , i como entero;
i<-1;
n<-0;
Mientras i >= n Hacer
escribir "ingrese un numero ";

leer n;
si n = -1 Entonces
escribir " gracias ";
FinSi
i<-i+1;
Fin Mientras
FinAlgoritmo
12:29
Algoritmo cifras_mientras
// un programa que me divida un numero en cifras
//fecha: 09/01/24
//lp_02_001
definir n1 ,i,uni,dec,cent , total como entero;
escribir "ingrese un numero";
leer n1;
i<-1;
cent<-1;
uni<-1;
dec<-1;
total<-1;
Mientras i=n1 Hacer
cent<- (n1-(n1 mod 100))/100;
total<- n1 mod 100;
dec<- (total-(total mod 10))/10;
uni<- total mod 10;
Fin Mientras
escribir"la centena es: ", cent;
escribir"la decena es: " , dec;
escribir"la unidad es:" , uni;
FinAlgoritmo
12:29
Algoritmo inverza
//ingreseuna cadena decaracteres y usando mientras me salga una cadena de caracteres inverza
//fecha: 09/01/24
//lp_02_001
definir frase ,i como caracter ;
definir a como entero ;
escribir " ingrese unq frase " ;
leer frase ;
i<-0;
a<-Longitud(frase);
Mientras i >= frase Hacer
secuencia_de_acciones
Fin Mientras
FinAlgoritmo
12 de enero
07:46
Algoritmo minetras2
definir i como entero;
i<-1;
Mientras i<=10 Hacer
i<-i+1;
Fin Mientras
escribir "";
//bucle repetir
i<-1;
Repetir
i<-i+1;
Mientras Que i<=10;
FinAlgoritmo
07:46
Algoritmo impares
// dayana salazar
// uso del repetir
//12/01/24
//lp_02_001
i<-1;
Repetir
escribir i;
FinSi
i<-i+1;
Mientras Que i=50
escribir " fin del proceso ";
FinAlgoritmo
07:46
Algoritmo bucle_repetir
// dayana salazar
// un programa multiplos de 9 y inicio con 2 hasta 50
//12/01/24
//lp_02_001
i<-2;
Repetir
escribir i," multiplo de 9";
FinSi
i<-i+1;
Mientras Que i<=50
escribir " fin del proceso ";
FinAlgoritmo
07:46
Algoritmo m2
// dayana salazar
// un programa multiplos de 3y18 entre 1 al 100
//12/01/24
//lp_02_001
definir i Como Entero;
i<-1;
Repetir
si i mod 3 =0 y i mod 18=0 Entonces
escribir i;
FinSi
i<-i+1;
Hasta Que i=100
escribir "";
FinAlgoritmo
Algoritmo m5
// dayana salazar
// usurio escriba fin se acaba el proceso
//12/01/24
//lp_02_001
definir i como caracter;
i<-"";
Repetir
escribir "escribir una frase";
leer i;
escribir i;
Hasta Que i ="fin"
FinAlgoritmo
08:21
Algoritmo ejercicio
// dayana salazar
// usando repetir le pida al usuario ingree un numero hasta qeu el usurio escriba 0 se acanba el proceso4
//12/01/24
//lp_02_001
definir i,tp,ti como entero;
i<-1;
tp<-0;
ti<-0;
Repetir
escribir "ingrese un numero";
leer i;
si i mod 2 = 0 entonces
escribir i "es par ";
tp<-tp+1;
sino
escribir i," es impar ";
ti<-ti+1;
FinSi
Hasta Que i=0
escribir " ";
escribir " total de pares es:",tp;
escribir " total de impares es:", ti;
FinAlgoritmo
08:33
Algoritmo dados
// dayana salazar
// usuario que ingrese del 1 al 6 sumamos los dos numero adivina el numero si adivina ganaste
//12/01/24
//lp_02_001mo
definir i ,c,c1, n1,sigue como entero;
sigue<-0;
i<-1;
c<- aleatorio(1,6);
c1<- aleatorio(1,6);
n1<- c+c1;
Repetir
leer i;
si i = n1 Entonces
escribir " ganaste ";
sino
escribir "sigue intentando ";
FinSi
escribir " desea volver a intentar 1=si, 0=no ";
leer sigue;
Hasta Que sigue=0
escribir "";
FinAlgoritmo
08:43
Algoritmo ejercicio
// dayana salazar
// u programa que convierta kilometros a metros el programa se ejecuta mientras el suario quiera seguir
//12/01/24
//lp_02_001mo
definir i,kl,m,mt , sigue como entero ;
i<-1;
Repetir
escribir " ingrese un numero en kilometros ";
leer kl;
mt<-kl*1000;
escribir mt;
escribir " desea continuar si=1 / no=0";

leer sigue;
Hasta Que sigue=0
escribir " adios ";
FinAlgoritmo
10:46
Algoritmo contador
// dayana salazar
//lp_02_002
escribir sin saltar i, " ";
FinPara
escribir "";
escribir "";
i<-1;
Mientras i<=10 Hacer
i<-i+1;
Fin Mientras
escribir "";
FinAlgoritmo
14 de enero
19:24
Algoritmo tabla_del_9
// lp_02_002
//DAYANA SALAZAR
//15/01/23
//CREAR EL PROGRAMA MEDINATE EL DIAGRAMA DE FLUJO
DEFINIR i,n,op ,a COMO ENTERO;
escribir "1....................... tablas de mul con mientras ";
escribir "2....................... tablas de mul con repetir ";
// elije la opcion
escribir " eleje una opcion ";
leer op;
escribir " que tabla quieres aprender";
leer n;
// proceso
i<-1;
Segun op Hacer
1:
mientras i<11 Hacer
escribir n," x 1 =" ,n*i;
i<-i+1;
FinMientras
2:
Repetir
escribir n," x 1 =" ,n*i;
i<-i+1;
Hasta Que i>n
de otro modo:
escribir "error";
FinSegun
FinAlgoritmo
11:56
// lp_02_001
//DAYANA SALAZAR
//15/01/23
//implementacion de funciones
// lo que devulve ,nombre,como recibe
Funcion caratulahuevo
escribir " DEBER NRO 20 ";
escribir " LEMGUAJES DE PROGRAMACION ";
escribir " MI NOMBRE:";
escribir " 15 DE ENERO DEL 2024 ";
Fin Funcion
Algoritmo principal
//solicitud de ejecucion
caratulahuevo;
caratulahuevo;
caratulahuevo;
caratulahuevo;
caratulahuevo;
FinAlgoritmo
11:56
// lp_02_001
//DAYANA SALAZAR
//15/01/23
Funcion caratula2huevo
escribir "******************************************";
escribir "* DEBER NRO 20 *";
escribir "* LEMGUAJES DE PROGRAMACION *";
escribir "* MI NOMBRE: *";
escribir "* 15 DE ENERO DEL 2024 *";

escribir "******************************************";
Fin Funcion
Algoritmo principal
//solicitud de ejecucion
caratula2huevo;
FinAlgoritmo}
11:56
// lp_02_001
//DAYANA SALAZAR
//15/01/23
Funcion dadohuevo
escribir " _______";
escribir " /\ o o o\";
escribir "/o \ o o o\ _______";
escribir "< >------> o /|";
escribir "\ o/ o /_____/ o|";
escribir " \/______/ |oo|";
escribir " | o |o/ ";
escribir " |_______|/";
Fin Funcion
Algoritmo principal
dadohuevo;
FinAlgoritmo
12:16
//fecha: 05/01/24
//lp_02_001
// tema: leer dos numeros decimales y dar la suma de la parte decimal
Funcion ejerhuevo
definir n , n2 ,a,b , total Como real;
escribir " ingrese un numero decimal ";
leer n ;
escribir " ingrese otro numero decimal ";
leer n2 ;
a<-n-truncNo;
b<-n2-trunc(n2);
total<- a+b;
escribir " la suma es :",total;
Fin Funcion
Algoritmo princiopal
ejer();
FinAlgoritmo
12:42
Funcion romanoshuevo
definir n,a ,i como entero ;
leer n;
para i <-1 Hasta 20 hacer
si n >= 10 Entonces
mientras n >= 10 Hacer
escribir Sin Saltar "X" ;
n<-n-10;
FinMientras
FinSi
si n >= 9 Entonces
escribir Sin Saltar"IX" ;
n<-n-9;
FinSi
si n >= 5 Entonces
mientras n >= 5 Hacer
escribir Sin Saltar "V" ;
n<-n-5;
FinMientras
FinSi
si n >= 4 Entonces
escribir Sin Saltar "IV" ;
n<-n-4;
FinSi
Mientras n >= 1 Hacer
Escribir sin saltar "I";
n<-n-1;
FinMientras
FinPara
Fin Funcion
Algoritmo principal
// del 1 al 20 y devolver en numero romanos
romanoshuevo;
FinAlgoritmo
12:42
//fecha: 05/01/24
//lp_02_001
// tema: leer dos numeros decimales y dar la suma de la parte decimal
Funcion ejerhuevo
definir n , n2 ,a,b , total Como real;
escribir " ingrese un numero decimal ";
leer n ;
escribir " ingrese otro numero decimal ";
leer n2 ;
a<-n-truncNo;
b<-n2-trunc(n2);
total<- a+b;
escribir " la suma es :",total;
Fin Funcion
Algoritmo princiopal
ejer();
finAlgoritmo
//dayana salazar
//18/01/24
Funcion opera(num,num2)
definir a,b como entero;
a<-num-trunc(num);
b<-num2-trunc(num2);
escribir " el numero entero es :",b;
escribir " el numero entero es :",a;
FinFuncion
Algoritmo principal
Definir num Como Real;
definir num2 como entero;
//reciba dos númerosy muestra suma,resta,multiplicar y division
Escribir "Ingrese un número";
Leer num;
Escribir "Ingrese un número";
Leer num2;
opera(num,num2);
FinAlgoritmo
19 de enero
07:47
Funcion juego(dado)
dado<-1;
Segun dado Hacer
1:
Escribir " _______";
Escribir " /\ o \";
Escribir " /o \ \";
Escribir "< o >------> ";
Escribir " \o / o o/";
Escribir " \/______/ ";
2:
Escribir " /\ o \";
Escribir " /o \ o \";
Escribir "< o >------> ";
Escribir " \o / o o o/";
Escribir " \/______/ ";
3:
Escribir " /\ o \";
Escribir " /o \ o o \";
Escribir "< o >------> ";
Escribir " \/______/ ";
4:
Escribir " /\ o o \";
Escribir "< o >------> ";
Escribir " \/______/ ";

5:
Escribir " /\ o o o\";
Escribir "< o >------> ";
Escribir " \/______/ ";
6:
Escribir " /o \o o o \";
Escribir "< o >------> ";
Escribir " \/___ ___/ ";
De Otro Modo:
Escribir "xd";
Escribir Sin Saltar "*";
Esperar 1 Milisegundos;
FinSegun
Fin Funcion
Algoritmo principal
definir dado como entero;
escribir " ingrese un numero del 1 al 6 " ;
leer dado;
juego(dado);
// una funcio que reciba un numero del uno al 6 y imprime la cara del lado
FinAlgoritmo
08:02
Funcion juego(dado)
Segun dado Hacer
1:
Escribir " /\ o \";
Escribir " /o \ \";
Escribir "< o >------> ";
Escribir " \/______/ ";
2:
Escribir " /\ o \";
Escribir " /o \ o \";
Escribir "< o >------> ";
Escribir " \/______/ ";
3:
Escribir " /\ o \";
Escribir "< o >------> ";
Escribir " \/______/ ";
4:
Escribir " /\ o o \";
Escribir "< o >------> ";
Escribir " \/______/ ";
5:
Escribir "< o >------> ";
Escribir " \/______/ ";
6:
Escribir " /o \o o o \";
Escribir "< o >------> ";
Escribir " \/___ ___/ ";
De Otro Modo:
Escribir "xd";
Escribir Sin Saltar "*";
Esperar 1 Milisegundos;
FinSegun
Fin Funcion
Algoritmo principal
definir dado ,b como entero;
escribir " ingrese un numero del 1 al 6 " ;
leer dado;
b<-Aleatorio(1,6);
si b = dado Entonces
escribir " GANASTE ";
SiNo
ESCRIBIR " perdiste ";
FinSi
// una funcio que reciba un numero del uno al 6 y imprime la cara del lado
juego(b);
FinAlgoritmo
08:20
// funciones que reciben y devuelven argumentos
// dayana salazar
//19/07/24
//lp_02_00
// funcion para buscar el numero mayor
// recibe dos numeros
// devuelve el mayor de los dos en la variable mayor
//
Funcion mayor1 <- buscarm ( n1,n2 )
definir mayor1 como entero;
si n1 > n2 Entonces
// devuelvo la respuesta n1 en la variable mayor 1
mayor1<- n1;
sino
mayor1<- n2;
//devuelvo la respuesta n1 en la variable mayor 1
FinSi
Fin Funcion
Algoritmo principal
definir b,b2,j como entero;
escribir "ingrese primer numero ";
leer b;
escribir "ingrese segundo numero ";
leer b2;
// primera sintaxis para llamar a la funcion busccar j
j <- buscarm ( b,b2 );
escribir " el numero mayor entre ", b, " y " , b2 " es: " j;
FinAlgoritmo
08:25
// dayana salazar
//19/07/24
//lp_02_00
// funcion para buscar el numero mayor

// recibe dos numeros
// devuelve el mayor de los dos en la variable mayor
//
Funcion mayor1 <- buscarm ( n1,n2 )
definir mayor1 como entero;
si n1 > n2 Entonces
// devuelvo la respuesta n1 en la variable mayor 1
mayor1<- n1;
sino
mayor1<- n2;
//devuelvo la respuesta n1 en la variable mayor 1
FinSi
Fin Funcion
Algoritmo principal
definir b,b2,j como entero;
escribir "ingrese primer numero ";
leer b;
escribir "ingrese segundo numero ";
leer b2;
// primera sintaxis para llamar a la funcion busccar j
// recibe la respuesta en una variable
j <- buscarm ( b,b2 );
escribir " el numero mayor entre ", b, " y " , b2 " es: " j;
// otra sintaxis para llamar la funcion
// muestra directamente la respuesta en pantalla
escribir " el numero mayor entre ", b, " y " , b2 " es: ", buscarm( b,b2 );
FinAlgoritmo
08:43
// dayana salazar
//19/07/24
//lp_02_00
Funcion fac <- num ( n1 )
definir fac,i como entero;
fac<- 1;
Para i<-1 Hasta n1 Hacer
fac<-fac*i;
Fin Para
Fin Funcion
Algoritmo principal
definir b,j como entero;
escribir "ingrese un numero ";
leer b;
j<- num(b);
escribir " el numero factorial de " , b , " es " ,j;
FinAlgoritmo
05:58
//cra un menu con funciones matematicas
// dayana salazar
Funcion calculo <- funciones ( op )
definir calculo ,ca,ti,per,cre,t,i,m,r ,a Como Real;
Segun op Hacer
1:
escribir " ingrese el capital ";
leer ca;
escribir " ingrese la tasa de interes en porcentaje";
leer ti ;
escribir " ingrese el numero de periodos ";
leer per;
ti<-ti/100;
calculo<-ca*(1+ti)^per;
2:
escribir " ingrese credito ";
leer cre;
escribir " ingrese los dias";
leer t ;
escribir " ingrese el interes anual simple ";
leer i;
m<-cre*(1*i*t);
3:
escribir " ingrese el capital ";
leer ca;
escribir " ingrese la tasa ";
leer r ;
escribir " ingrese el primer semestre";
leer ti;
r<-r/100;
a<-ca*(1+r)^ti;
4:
5:
De Otro Modo:
escribir " error ";
Fin Segun
Fin Funcion
Algoritmo principal
definir n,op ,m Como real;
ESCRIBIR "1............................monto final";
ESCRIBIR "2............................interes simple";
ESCRIBIR "3............................interes compuesto";
ESCRIBIR "4............................";
ESCRIBIR "5............................";
escribir " elija una opcion ";
leer op;
m<- funciones(op );
escribir m;
FinAlgoritmo
11:49
//contruya una funcion que calcule el precio total de sacar A fotocopias y B impresiones , sabiando que los ´precios son
// 50 y 100 pesos para A Y B respectivamnete si el cliente es un estudiante y de 75 y 150 Para
// A Y B si el cliente es profesor .
//la funcion debe tener dos argumentos cuantitativos ( Ay B ) y el argumento logico estudinate que por defecto tenga valor
de true
//dayana salazar
//lp_02_001
//23_01_24
Funcion precio <-funci( a,b,cliente )
definir precio, fo,im como real;
si cliente = "e" Entonces
fo<- 50;
im<- 100;
precio<- ((fo*a)+(im*b));
sino
fo<- 75;
im<- 150;
precio<- ((fo*a)+(im*b));
FinSi
Fin Funcion
Algoritmo principal
definir a,b ,c como real;
definir cliente como caracter;
escribir " ingrese el nu de fotocopias";
leer a;
escribir " ingrese el nu de impre";
leer b;
escribir " ingrese e si es estudiante y p si es profesor ";
leer cliente;
Escribir "El valor es $: ",funci(a,b,cliente);
FinAlgoritmo
12:27
//funcion parasumardos numerosrecibe datos
// dentro de la misma funcion
// dayana salazar
Funcion suma1( a,b )
escribir a,"+",b, "=" a+b;
Fin Funcion
//funciones que devuleven funciones
Funcion total <- suma2(a,b )
definir total como entero;
total<- a+b;
Fin Funcion
Algoritmo principal
definir t como entero;
suma1(4,8);
t<-suma2(4,8);
t<- t*2;
escribir t;
FinAlgoritmo
26 de enero
08:53
// funcion verifica tmaño 9 de cadena
Funcion estado <- verifica ( cade1 )
definir estado como logico;
definir tam como entero;
tam <- Longitud(cade1);
si tam=9 entonces
estado <- Verdadero;
SiNo
estado <- Falso;
FinSi
Fin Funcion
//funcion para obtener el D.A.V de la cedula de
//idenidad
//recibe una cedena de 9 digitos
//devuelve el DAV
Funcion dav <- DigitoAV(cedula)
Definir dav, digito,i,spar,simpar,stotal ,resul como entero;
definir decenas Como Real;
Definir aux como caracter;
spar<-0;
simpar<-0;
// recorrer la cadena (cedula)

Para i<- 1 Hasta Longitud(cedula) Hacer
// extarer 1 a 1 los elementos de la cadena
aux<-SubCadena(cedula,1,1);
// convertir cada caracter en numero
digito<-ConvertirANumero(aux);
//verificar i si es par o impar
// multiplicar por 2
resul<- digito*2;
// verificar si resultado es >9
si resul>9 Entonces
// verdad: restar 9
resul<- resul-9;
sino
resul<- digito;
FinSi
// aculumal a simpar
simpar<- simpar+resul;
SiNo
// acumulador para pares
// sumamos los digitos de posiciones pares
spar<- spar+digito;
FinSi
Fin Para
// suma de pares e impares
stotal<- simpar+spar;
// buscra la decena superior
decenas<- (stotal /10)+1;
decenas <- trunc(decenas);
// devuelve el resultado
dav<- decenas-stotal;
Fin Funcion
Algoritmo principal
// leer los nueve digitos verificar que son nueve sino avisar ingreso de datos incorrectos
definir cedula Como Caracter;
definir est Como logico;
cedula <- " ";
est<-falso;
mientras (est= falso )
escribir " ingrese su cedula " ;
leer cedula;
est<- verifica(cedula);
si est= falso Entonces
escribir " Debe ingresar nueve digitos ";
FinSi
esperar 1 segundo ;
Borrar Pantalla;
FinMientras
escribir " El ultimo digito auto verificador es ",DigitoAV(cedula);
FinAlgoritmo
30 de enero
05:50
Funcion total<-calcula(op)
Definir num, total ,mayor1, menor1 Como entero;
Definir i Como Entero;
total<-0;
Segun op Hacer
1:
// Dimension del vector
Dimension num[5];
//Poner datos al vector
num[i]<-Aleatorio(10,60);
Fin Para
//Proceso: Calcular promedio
total<-total+num[i];
Fin Para
Escribir Sin Saltar num[i]," ";
Fin Para
escribir " la suma es: ",total;
2:
Dimension num[5];
Fin Para
mayor1<-0;
escribir num[i];
si num[i]> mayor1 entonces
mayor1<-num[i];
FinSi
Fin Para
escribir " el numeor mayor es: ",mayor1;
3:
Dimension num[5];
Fin Para
menor1<-0;

escribir num[i];
si num[i] < menor1 entonces
menor1<-num[i];
FinSi
Fin Para
escribir " el numero menor es: ",menor1;
De Otro Modo:
escribir " error";
Fin Segun
Fin Funcion
05:51
Funcion total<-calcula(op)
Definir num, total ,mayor1, menor1 Como entero;
Definir i Como Entero;
total<-0;
Segun op Hacer
1:
// Dimension del vector
Dimension num[5];
Fin Para
total<-total+num[i];
Fin Para
Escribir Sin Saltar num[i]," ";
Fin Para
escribir " la suma es: ",total;
2:
Dimension num[5];
Fin Para
mayor1<-0;
escribir num[i];
si num[i]> mayor1 entonces
mayor1<-num[i];
FinSi
Fin Para
escribir " el numeor mayor es: ",mayor1;
3:
Dimension num[5];
Fin Para
menor1<-0;
escribir num[i];
si num[i] < menor1 entonces
menor1<-num[i];
FinSi
Fin Para
escribir " el numero menor es: ",menor1;
De Otro Modo:
escribir " error";
Fin Segun
Fin Funcion
Algoritmo principal
// nombre: dayana salazar
//lp_02_001
// segun
definir op,a como entero;
escribir" M E N U ";
Escribir "1...................... suma de vectores";
escribir "2.......................numero mayor" ;
escribir "3.......................numero menor";
escribir " elija un opcion ";
leer op;
a<-calcula(op);
FinAlgoritmo
2 de febrero
07:44
Algoritmo matriz
// dayana Salazar
// 02_001_lp
//2/02/23
// definir los datos que tiene la matriz
definir M,j ,i como entero ;
// definir numero de filas y de columnas de la matriz
Dimension M[3,3];
M[1,1]<-11;
M[1,2]<-24;
M[1,3]<-33;
M[2,1]<-14;
M[2,2]<-25;
M[2,3]<-33;
M[3,1]<-17;
M[3,2]<-28;
M[3,3]<-37;
escribir Sin Saltar M[i,j] " " ;
Fin Para
// colocar en escribir para que nos salga como matriz
escribir "" ;
Fin Para
FinAlgoritmo
07:53
Algoritmo matriz
// dayana Salazar
// 02_001_lp
//2/02/23
definir M,j ,i como entero ;
Dimension M[3,3];
escribir " ingrese los datos de la fila";
leer M[1,1];
escribir " ingrese los datos de la columna" ;
leer M[1,2];
leer M[1,3];
leer M[2,1];
leer M[2,2];
leer M[2,3];
leer M[3,1];
leer M[3,2];
leer M[3,3];
Fin Para
escribir "" ;
Fin Para
FinAlgoritmo
07:59
Algoritmo matriz
// dayana Salazar
// 02_001_lp
//2/02/23
definir M,j ,i,total como entero ;
// lectura de matriz
Dimension M[3,3];
escribir " ingrese elemento [",i," " ,j " ]: ";
leer M[i,j];
Fin Para
escribir "" ;
Fin Para
// imprecion de la matriz
Fin Para
escribir "" ;
Fin Para
total<- 0;
total<- total+ M[i,j] ;
Fin Para
escribir "" ;
Fin Para
escribir " La sumatoria de los elementos de M es:" ,total;
FinAlgoritmo
08:00
Algoritmo matriz
// dayana Salazar
// 02_001_lp
//2/02/23

Dimension M[3,3];
M[i,j]<- Aleatorio(1,20);
Fin Para
escribir "" ;
Fin Para
Fin Para
escribir "" ;
Fin Para
total<- 0;
Fin Para
escribir "" ;
Fin Para
FinAlgoritmo
08:40
// AÑADE T BLANCOS A LA CADENA
Funcion cadC <- cambio ( cadI,t )

definir cadC Como Caracter;
definir i, tam como entero ;
tam<- Longitud(cadI);
cadC<-cadI;
Para i<-tam Hasta t Hacer
cadC<-Concatenar(cadC, " " );
Fin Para
Fin Funcion
//Funcion mayor
Funcion c1 <- my ( vec2, t )
Definir c1,i Como Real;
c1<-0;
Para i<-1 Hasta t Hacer
Si vec2[i]>c1 Entonces
c1<-vec2[i];
FinSi
FinPara
FinFuncion
//Funcion mayor posicion
Funcion c4 <- my1 ( vec2, t, vec1 )
Definir i,p,c3 Como Real;
Definir c4 Como Caracter;
c3<-0;
Si vec2[i]>c3 Entonces
c3<-vec2[i];
p<-i;
FinSi
FinPara
c4<-vec1[p];
FinFuncion
//Funcion menor
Funcion c2 <- mn ( vec2, t )
Definir c2,i Como Real;
c2<-20;
Si vec2[i] c2<-vec2[i];
FinSi
FinPara
Fin Funcion
//Funcion Menor posicion
Funcion c5 <- mnp ( vec2, t, vec1 )
Definir i,p, j Como Real;
Definir c5 Como Caracter;
j<-20;
Si vec2[i] j<-vec2[i];
p<-i;
FinSi
FinPara
c5<-vec1[p];
Fin Funcion
//Funcion promedio
Funcion pr <- prom( vec2,t)
Definir pr, suma,i Como Real;
suma<-0;
para i<-1 Hasta t Hacer
suma<-suma+vec2[i];
FinPara
pr<-suma/5;
Si pr>17 Entonces
Escribir Sin Saltar 'EXELENTE';
Sino
si pr>12 y pr<=17 Entonces
Escribir Sin Saltar 'REGULAR ';
Sino
si pr <=12 y pr>0 Entonces
Escribir Sin Saltar 'MALO ' ;
Finsi
FinSi
FinSi
Fin Funcion
Algoritmo principal
// Dayana Salazar
//Fecha:2/02/24
Definir vec1 Como Caracter;
Definir vec2,t,i, pr Como Real;
Dimension vec1[5];
Dimension vec2[5];
t<-5;
vec1[1]<-'Dayana';
vec1[2]<-'Sophia';
vec1[3]<-'Alexander';
vec1[4]<-'Ariel';
vec1[5]<-'Karen';
Para i<-1 hasta 5 Hacer
vec2[i]<-Aleatorio(100,2000)/100;
FinPara
escribir cambio((vec1[i]),10) , cambio(ConvertirATexto(vec2[i]),10), " " ;
escribir "" ;
Fin Para
// Para i<-1 hasta 5 Hacer
// Escribir Sin Saltar vec1[i], ' ';
// Escribir vec2[i], ' ';
// FinPara
Escribir '';
Escribir 'El promedio del curso es ' prom(vec2,t);
Escribir 'La mayor nota es ' , my(vec2,t) ' y su nombre es: ',my1(vec2, t, vec1);
Escribir 'La menor nota es ',mn(vec2,t) ' y su nombre es: ' mnp(vec2, t, vec1);
FinAlgoritmo
08:46
// AÑADE T BLANCOS A LA CADENA
Funcion cadC <- cambio ( cadI,t )
definir cadC Como Caracter;
definir i, tam como entero ;
tam<- Longitud(cadI);
cadC<-cadI;
Para i<-tam Hasta t Hacer
cadC<-Concatenar(cadC, " " );
Fin Para
Fin Funcion
Algoritmo principal
// dayana Salazar
// 02_001_lp
//2/02/23
Dimension M[3,3];

M[i,j]<- Aleatorio(1,120);
Fin Para
escribir "" ;
Fin Para
escribir Sin Saltar cambio(ConvertirATexto(M[i,j]),4) , " " ;
Fin Para
escribir "" ;
Fin Para
total<- 0;
Fin Para
escribir "" ;
Fin Para
FinAlgoritmo

Cuaderno de Programacion

Cargado por

Copyright:

Formatos disponibles

Cuaderno de Programacion

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Cuaderno de Programacion

Cargado por

Copyright:

Formatos disponibles

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD CIENCIAS ECONÓMICAS

NOMBRE: DAYANA SALAZAR

definir n1 como entero;

escribir"ingrese su edad porfavor ";

escribir " es mayor de edad";

escribir " no es mayor de edad";

//Escribir un programa que almacene la cadena de caracteres contraseña en una variable,

//pregunte al usuario por la contraseña e imprima por pantalla si la contraseña introducida

definir contraseñag como caracter;

definir contraseñau como caracter;

// Almacenar la contraseña en la variable

// Solicitar la contraseña al usuario

// Verificar si la contraseña coincide

Si contraseñau = contraseñag Entonces

Escribir "Contraseña correcta";

//Escribir un programa que pida al usuario dos números y

//muestre por pantalla su división. Si el divisor es cero

//el programa debe mostrar un error.

definir n1 , n2 , a como real;

escribir "ingrese el primer numero ";

escribir "ingrese el segundo numero ";

// Verificar si el divisor es cero

Escribir"Error: No se puede dividir entre cero.";

// Calcular la división y mostrar el resultado

Escribir "El resultado de la división es: ", a;

//Escribir un programa que pida al usuario un número

//entero y muestre por pantalla si es par o impar.

definir n1 Como Entero;

escribir " ingrese un numero ";

escribir " es par ";

escribir " no es par ";

//Para tributar un determinado impuesto se debe ser mayor de 16 años y

//tener unos ingresos iguales o superiores a 1000 € mensuales. Escribir

//por pantalla si el usuario tiene que tributar o no.

definir n1,ingrem como real;

escribir " ingrese su edad " ;

escribir " ingrese sus ingresos mensuales ";

si n1 >=16 y ingrem >=1000 Entonces

escribir " usted tiene que tributar";

escribir " usted no tiene que tributar ";

//Entre 10000€ y 20000€ 15%

//Entre 20000€ y 35000€ 20%

//Entre 35000€ y 60000€ 30%

//Más de 60000€ 45%

escribir " ingrese su renta anual ";

// renta de tipo impositivo

si n1<= 10000 Entonces

escribir " declara el 5% ";

si n1>= 10000 o n1= 20000 Entonces

escribir " declara su renta el 15 % ";

si n1>= 20000 o n1= 35000 Entonces

escribir " declara su renta el 20 %";

si n1>= 35000 o n1= 60000 Entonces

escribir " declara su renta el 30 %";

si n1 >= 60000 Entonces

escribir " declara su renta el 45 %";

// Solicitar al usuario la puntuación

Escribir"Ingrese la puntuación del empleado: ";

// Determinar el nivel de rendimiento y la cantidad de dinero