OTRO MENU JEJE

Elabora un programa que muestre el siguiente menu.
1.- calcule el area y el perimetro de un rectangulo(mediante un procedimiento llamado geometria.)
2.- Calcule el cuadrado de un número (mediante un procedimiento llamado cuadrado y con el uso de la función para calcular el cuadrado)
3.- Calcule la raíz cuadrada de un número (mediante un procedimiento llamado raiz y con el uso de la función para calcular la raíz)
4.- La suma de n números desde 1 hasta el número dado por el usuario(mediante un procedimiento llamado suma)
5.-Salir


Cambiale en color del fondo y del texto a tu programa mediante las funciones correspondientes.



DESCARGAR EL ARCHIVO EJECUTABLE.EXE


CODIGO



asi se vera ejecutado

CALIFICACIONES

Elabora un programa que lea la calificación de tres examenes, e indique el grado de aprovechamiento en base a la siguiente tabla:

0-49 F
50-59 E
60-69 D
70-79 C
90-89 B
90-100 A


DESCARGAR ARCHIVO EJECUTABLE DEL PROGRAMA.EXE

CODIGO DE EL PROGRAMA




ASI SE VERA EN EJECUCION:

numeros primos

Elabora un programa que dado un número entero por el usuario, visualice todos los números primos desde el 2 hasta el número dado.
Recuerda que los números primos son aquellos que son divisibles solo entre la unidad y ellos mismos.


ESTE PROGRAMA TE PEDIRA UN NUMERO Y CUANDO LO TECLEES PODRAS VER LOS NUMERO PRIMOS HASTA EL NUMERO QUE TECLEASTE


DESCARGA EL ARCHIVO.EXE


ASI SE VERA EL ARCHIVO EN EJECUCION:



CODIGO

TABLAS DE MULTIPLICAR

EN ESTE PROGRAMA USARE FOR Y REPEAT, LO QUE HACE ESTE PROGRAMA ES QUE TE DICE QUE PONGAS EL NUMERO DE LA TABLA DE MULTIPLICAR Y SEGUN EL QUE PONGAS ESA TABLA DE MULTIPLICAR TE MUESTRA.

AQUI DEJO LA IMAGEN DEL CODIGO
Y EL ARCHIVO .EXE PARA DESCARGAR




PROGRAMA EN EJECUCION






DESCARGA EL ARCHIVO
MENU.EXE

Combinando estructuras de control

Elabora un programa que presente un menú con las opciones para determinar si un número entero es:
1.- Par o impar
2.- Positivo o negativo
3.- El número al cuadrado
4.- Salir del programa

El programa deberá repetirse o ejecutarse, hasta que el usuario teclee la opción 4.

Para este programa utilicde subprogramas (procedure), Repeticion (Repeat-Until), Y llame los procedures con Case, tambien utilice un if-then-else y por ultimo la funcion para calcular el cuadrado de un numero que es sqr(numero) esta funcion indica que quiero saber el cuadrado de el numero que pido o que agrego por defaul.




CODIGO

program menu_5;
uses
crt;
var
opcion: integer;
num: integer;
c: integer;
procedure par;
var
y: integer;
const
a=2;
begin
writeln('Teclea un numero');
readln(num);
y:= num mod a;
if y:= 0 then
writeln('El numero es par');
else
writeln('El numero es impar');
end;
procedure cuadrado;
begin
writeln('Teclea un numero');
readln(num);
c:= sqr(num);
writeln('El cuadrado de tu numero es',c);
end;
procedure posneg;
begin
writeln('Teclea un numero');
readln(num);
if num < 0 then
writeln('El numero es negativo');
else
writeln('El numero es positivo');
end;
procedure salir;
begin
writeln('Para salir teclee 4');
end;
begin
repeat
clrscr;
writeln('Teclee el numero de la opcion que desees');
writeln;
writeln('1. Saber el cuadrado de un numero');
writeln('2. Saber si tu numero es par o impar');
writeln('3. Saber si tu numero es positivo o negativo');
writeln('4. Para salir teclea 4');
readln(opcion);

case opcion of;
1: cuadrado;
2: par;
3: posneg;
4: salir
else
writeln('ERROR!!! Esa opcion no existe');
writeln('Si ya no deseas ejecutar el programa teclea 4');
end;
readln(opcion);
until;
until
opcion:= 4;
end.

opciones del menu















MENU.EXE

Estructura de control de repetición FOR

La sentencia FOR permite repetir, un número de veces conocido a priori, una serie de
instrucciones. La sentencia FOR es el modo más adecuado de expresar bucles definidos en
Modula-2.
La forma más simple que toma esta sentencia es la siguiente:
FOR Variable := Valor1 TO Valor2 DO
Acciones
END
Las palabras FOR, TO, DO y END son palabras reservadas del lenguaje y delimitan cada una
de las partes de la sentencia. La variable que aparece a la izquierda del signo de asignación se
llama variable de control del bucle. El valor de esta variable se modifica en cada repetición
del bucle. El conjunto de acciones que aparecen entre las palabras DO y END constituyen el
cuerpo del bucle.

El significado de la sentencia FOR es el siguiente: se ejecutan las acciones entre las palabras
DO y END tantas veces como indique la expresión (Valor2-Valor1+1). La primera vez que se
ejecuten estas acciones, el valor de la variable de control es Valor1. La segunda vez que se
ejecuten las acciones, el valor de la variable de control es Valor1+1. El valor de la variable de
control es incrementado en una unidad tras cada repetición, de modo que la última vez que se
ejecuten las acciones el valor de la variable de control es Valor2.


Ejemplo: El cuerpo del siguiente bucle se ejecuta cero veces, ya que la condición de salida es cierta la primera vez.

FOR i := 1 TO 0 DO
WrCard(i,0); WrLn
END


Ejemplo: El cuerpo del siguiente bucle se ejecuta diez veces (con valores para la variable i entre uno y diez) ya que el valor para la expresión que aparece tras la palabra TO es calculado una única vez y no se vuelve a calcular tras cada repetición.

Fin := 5;
FOR i := 1 TO 2*Fin DO
WrCard(i,0); WrLn;
Fin := 15
END

Ejemplo: El siguiente bucle muestra por pantalla todas las letras mayúsculas
(excepto la letra eñe mayúscula que está fuera del rango [‘A’..’Z’] en la tabla
ASCII).

FOR Letra := ‘A’ TO ‘Z’ DO
WrChar(Letra)
END

ESTRUCTURA DE CONTROL REPETICION (REPEAT)

La sentencia REPEAT permite repetir una serie de instrucciones hasta que cierta condición sea
cierta. La sentencia REPEAT debe utilizarse exclusivamente para expresar bucles indefinidos.

Las palabras REPEAT y UNTIL son palabras reservadas del lenguaje y delimitan cada una de
las partes de la sentencia. La condición que aparece tras la palabras UNTIL es denominada
condición de salida del bucle. La condición de salida debe ser una expresión de tipo
booleano. El conjunto de acciones que aparecen entre las palabras REPEAT y UNTIL
constituyen el cuerpo del bucle.


Una sentencia repeat tiene esta forma

repeat ()

La sentencia es repetida el numero de veces indicado por el valor redondeado de la expresión.

Ejemplo
El siguiente programa crea 5 pelotas en posiciones aleatorias.

{
repeat (5) instance_create(random(400),random(400),pelota);
}

ADAMIO COGNITIVO SELECCION

DESCARGAR EL SIG ARCHIVO


TABLA PARA EL REPASO DE LAS ESTRUCCTURAS DE SELECCION DE IF-THEN-ELSE Y CASE.




ADAMIO COGNITIVO ESTRUCTURA DE SELECCION.XLS

EJEMPLO DE CASE, MENU

En este ejemplo no solo usaremos case si no que tambien usaremos
procedure y else.
El procedure se utiliza dentro del programa para facilitar muchas de las funciones que podriamos poner dentro de un programa, en pocas palabras el procedure se utiliza como un sub programa.

CODIGO DE EL MENU




OPCIONES DEL MENU













MENU.EXE

ESTRUCTURA DE CASE

LA ESTRUCTURA CASE FUNCIONA EN PASCAL PARA HACER PROGRAMAS CON VARIAS OPCIONES
PUEDEN SER MENSAJES Y OPERACIONES DEPENDIENDO DEL PROGRAMA TODO DEPENDE DE LA RELACION QUE LE QUIERAS DAR A EL PROGRAMA.

COMO PRIMER EJEMPLO DE LO QUE HACE LA ESTRUCTURA Y COMO FUNCIONA TENEMOS EL SIG CODIGO QUE HACE LA FUNCION DE UNA CALCULADORA EN PASCAL.




CODIGO

program calculadora;
uses
crt;
var
num_1: integer;
operador: char;
num_2: integer;
begin
clrscr;
writeln('Teclea un numero');
readln(num_1);
writeln('Teclea un operador');
readln(operador);
writeln('Teclea otro numero');
readln(num_2);
begin
case operador of
'+': writeln(num_1+num_2);
'-': writeln(num_1-num_2);
'*': writeln(num_1*num_2);
'/': writeln(num_1/num_2);
else
writeln('Error!!!! esa opperacion no se puede hacer');
end;
end;
readln;
end.



ASI SE VERA EL PROGRAMA EN EJECUCION:







CALCULADORA.EXE