Ejemplos de Programación Básica: Lógica, Geometría y Contadores en Código Simple

Introducción a Procedimientos de Programación Básica

Este documento presenta una serie de procedimientos programáticos sencillos, diseñados para ilustrar conceptos fundamentales como la geometría, el cálculo de edad, la lógica condicional y el manejo de contadores. Cada sección define una función específica con sus respectivas instrucciones.

Procedimiento: Dibujar un Hexágono

Este procedimiento dibuja un hexágono utilizando comandos de movimiento y giro.

Para Hexágono > Repite 6 [GI 60 AV 30 Espera 50] > Fin

Procedimiento: Dibujar una Casa

Este procedimiento construye una figura similar a una casa con una serie de movimientos y giros.

Para Casa > BT > Repite 4 [Avanza 60 GD 90 Espera 50] > SL > AV 60 > BL > Repite 2 [GD 30 Avanza 60 Espera 50 GD 90] > Fin

Procedimiento: Calcular la Edad

Este procedimiento interactúa con el usuario para calcular su edad basándose en el año actual y su año de nacimiento.

Para Edad > BT > Es [Dime en qué año estamos:] > Haz "Años LeePalabra > Es [Dime en qué año naciste:] > Haz "Nacimiento LeePalabra > Es [Dime cómo te llamas:] > Haz "Nombre LeePalabra > Haz "Edad :Años - :Nacimiento > Es [Tú tienes] :Edad [años] > Fin

Procedimiento: Verificar Mayoría de Edad

Este procedimiento solicita la edad al usuario y determina si es mayor o menor de edad.

Para Mayor > BT > Es [¿Qué edad tienes?] > Haz "Edad LeePalabra > Si O :Edad = 18 :Edad > 18 [Es [Eres mayor de edad]] [Es [Eres menor de edad]] > Fin

Procedimiento: Control de Acceso a Fiesta

Este procedimiento simula un control de acceso a una fiesta basado en un rango de edad específico.

Para Fiesta > BT > Es [Esta fiesta es solo para chicos/as de 15 o 16 años.] > Es [¿Qué edad tienes tú?] > Haz "Edad LeePalabra > Si O :Edad = 15 :Edad > 15 [Es [Puedes pasar a la fiesta]] [Es [No puedes pasar]] > Si O :Edad = 16 :Edad < 16 [Es [Puedes pasar a la fiesta]] [Es [No puedes pasar]] > Fin

Funciones de Conteo Numérico

Esta sección detalla los procedimientos para realizar conteos numéricos, tanto ascendentes como descendentes, a partir de un número inicial.

Procedimiento Principal: Contador Numérico

Este es el punto de entrada para el sistema de conteo, permitiendo al usuario elegir la dirección del conteo.

Para ContadorPrincipal > Es [¿Te acuerdas de las numeraciones?] > Es [Yo las hago más rápido.] > Es [Escribe "arriba" o "abajo":] > Espera 50 > Haz "Sentido LeePalabra > Si :Sentido = "arriba" [Ascendente] > Si :Sentido = "abajo" [Descendente] > Fin

Procedimiento: Conteo Descendente

Este procedimiento realiza un conteo regresivo de diez números a partir de un valor dado por el usuario.

Para Descendente > Es [¿Por qué número empiezo?] > Haz "Primo LeePalabra > Espera 100 > Haz "Uno :Primo - 1 > Haz "Dos :Primo - 2 > Haz "Tres :Primo - 3 > Haz "Cuatro :Primo - 4 > Haz "Cinco :Primo - 5 > Haz "Seis :Primo - 6 > Haz "Siete :Primo - 7 > Haz "Ocho :Primo - 8 > Haz "Nueve :Primo - 9 > Haz "Diez :Primo - 10 > Es :Uno > Espera 50 > Es :Dos > Espera 50 > Es :Tres > Espera 50 > Es :Cuatro > Espera 50 > Es :Cinco > Espera 50 > Es :Seis > Espera 50 > Es :Siete > Espera 50 > Es :Ocho > Espera 50 > Es :Nueve > Espera 50 > Es :Diez > Fin

Procedimiento: Conteo Ascendente

Este procedimiento realiza un conteo progresivo de diez números a partir de un valor dado por el usuario.

Para Ascendente > Es [Dime desde qué número quieres contar hacia arriba:] > Haz "Primo LeePalabra > Espera 100 > Haz "Uno :Primo + 1 > Haz "Dos :Primo + 2 > Haz "Tres :Primo + 3 > Haz "Cuatro :Primo + 4 > Haz "Cinco :Primo + 5 > Haz "Seis :Primo + 6 > Haz "Siete :Primo + 7 > Haz "Ocho :Primo + 8 > Haz "Nueve :Primo + 9 > Haz "Diez :Primo + 10 > Es :Uno > Espera 50 > Es :Dos > Espera 50 > Es :Tres > Espera 50 > Es :Cuatro > Espera 50 > Es :Cinco > Espera 50 > Es :Seis > Espera 50 > Es :Siete > Espera 50 > Es :Ocho > Espera 50 > Es :Nueve > Espera 50 > Es :Diez > Fin