#pseint

En este artículo les voy a enseñar cómo crear un programa en PSeInt para crear tablas de multiplicar. PSeInt es un lenguaje de programación muy útil para aprender los conceptos básicos de la programación. Si nunca antes has programado, este es un buen lugar para comenzar. Pero si ya tienes experiencia, ¡no te preocupes! También puedes aprender a crear programas más avanzados con PSeInt. Lo primero que tenemos que hacer es abrir el programa PSeInt. Una vez que lo tengamos abierto, crearemos un nuevo archivo de programa y comenzaremos a escribir nuestro código. Primero, definiremos dos variables: una para el número que queremos multiplicar y otra para el límite de la tabla de multiplicar. Para ello, escribiremos el siguiente código: Algoritmo "Tabla de multiplicar" Definir numero, limite, resultado Como Entero A continuación, pediremos al usuario que ingrese el número que desea multiplicar y el límite de la tabla de multiplicar. Para hacer esto, usaremos las funciones Escribir y Leer de PSeInt: Escribir("Ingrese el numero a multiplicar: ") Leer(numero) Escribir("Ingrese el limite de la tabla: ") Leer(limite) Ahora, comenzaremos a crear la tabla de multiplicar con un bucle Para. En cada iteración del bucle, multiplicaremos el número por el valor actual del contador y guardaremos el resultado en la variable resultado. Luego, mostraremos el resultado en pantalla con la función Escribir. Para contador Desde 1 Hasta limite Con Paso 1 Hacer resultado = numero * contador Escribir(numero, " x ", contador, " = ", resultado) FinPara Y eso es todo. Ahora podemos ejecutar nuestro programa y ver cómo se crea la tabla de multiplicar. Aquí está el código completo:

El siguiente ejemplo permite:

ingresar mediante una clave especifica establecida “0000”, girar dinero, contar los giros realizados, realizar depósitos, consultar saldo.

Utiliza: Mientras, Segun, Si

No ocupa Subprocesos.

----------------------

Proceso sin_titulo Definir clave como caracter; Definir saldo_actual, giro, deposito, op, contador, lageclave, contadorclav Como Entero; Definir acierto como Logico; clave = "0000"; contadorclav = 0; contador = 0; saldo_actual = 1000000; acierto = falso; lageclave = longitud (clave);

   Mientras (contadorclav < 100 Y acierto = FALSO) Hacer        //ponemos aqui leer porque con las variables        //iniciales entra en el bucle        Escribir "introduce la clave";        Leer clave;        si (clave = "0000") Entonces Limpiar Pantalla; acierto = Verdadero;            Repetir Escribir "SELECCIONE EL TIPO DE OPERACIÓN"; Escribir ""; Escribir "1. Consulta de saldo"; Escribir "2. Girar"; Escribir "3. Realizar deposito"; Escribir "4. Consultar total de giros realizados"; Escribir "5. Salir"; Leer op; Segun op hacer 1: Limpiar Pantalla; Escribir "Su saldo es: $", saldo_actual; Escribir ""; Escribir "Aprete una tecla para continuar"; Esperar Tecla; Limpiar Pantalla; 2: Limpiar Pantalla; Escribir "Ingrese el monto a girar: "; Leer giro; Si(giro > saldo_actual) Entonces Escribir "SALDO INSUFICIENTE"; SiNo Escribir "Ha girado con exito: $", giro; Escribir "Aprete una tecla para continuar"; Esperar Tecla; contador = contador + 1; Limpiar pantalla; FinSi saldo_actual = (saldo_actual - giro); 3: Limpiar Pantalla; Escribir "Saldo actual: $", saldo_actual; Escribir "Ingrese monto a cargar: "; Leer deposito; saldo_actual = saldo_actual + deposito; Escribir "Se han ingresado: $", deposito; Escribir "Su saldo actual es de: $", saldo_actual; Escribir "Aprete una tecla para continuar"; Esperar tecla; Limpiar Pantalla; 4: Escribir "TOTAL DE GIROS REALIZADOS: ",contador ; Escribir "Aprete una tecla para continuar"; Esperar tecla; Limpiar Pantalla; 5: Escribir "GRACIAS POR PREFERIR NUESTROS SERVICIOS"; Esperar 5 segundos; De Otro Modo: Escribir ""; Limpiar Pantalla; FinSegun Hasta Que (op = 5)

       FinSi        contadorclav = contadorclav + 1;    FinMientras