viernes, 26 de marzo de 2010

MENU(Otro nuevo)

En este menu programa pdras realizar los siguientes procedimientos
1.- calcule el area y el perimetro de un rectangulo
2.- Calcule el cuadrado de un número
3.- Calcule la raíz cuadrada de un número
4.- La suma de n números desde 1 hasta el número dado por el usuario
5.-Salir

descaga el programa aqui

jueves, 25 de marzo de 2010

APROVECHAMIENTO

En este programa pudes saber el nivel de aprovechamiento de un alumno y en el rango que se encuentra en cuanto a la siguiente tabla.
0-49 F
50-59 E
60-69 D
70-79 C
80-89 B
90-100 A

descargar aqui

miércoles, 24 de marzo de 2010

NUMEROS PRIMOS

En este programa podras visualizar los numeros primos comenzando del numero dos

descaga aqui

domingo, 14 de marzo de 2010

TABLAS DE MULTIPLICAR

En este programa puedes conocer las tablas multiplicar, este programa fue diseñado en pascal y se utiliza la sentencia repeat.

descarga el programa dando click aqui.


jueves, 11 de marzo de 2010

CONVINANDO ESTRUCTURAS DE CONTROL

En este menu podras saber si un numero es par o no, saber si es negativo o positivo y saber el cadrado del numero.





desacarga el programa aqui



miércoles, 10 de marzo de 2010

Estructura de control de repetición FOR

La sentencia FOR
En numerosas ocasiones se puede desear un bucle que se ejecute un número determinado de veces, y cuyo número se conozca por anticipado. Para aplicaciones de este tipo se utiliza la sentencia FOR.
La sentencia FOR requiere que conozcamos por anticipado el número de veces que se ejecutan las sentencias que se encuentran dentro del ciclo. El ciclo for se incremente automáticamente.
Sintaxis:
For variable := valor inicial to valor final do
Sentencia;
Ejemplos:
1.
For c := 1 to 5 do
Begin
Write (`aa´);
Write (`BB´)
End;
Al ejecutarse, visualiza:
AaBBaaBBaaBBaaBBaaBB
For Caracter := `A´ to `Z´ do
WriteLn (Caracter);
3. 4. 1. 1 Decremento del contador FOR (Downto)
El contador del ciclo se puede decrementar de uno en uno en lugar de incrementar. La sintaxis es la siguiente:
For variable := valor inicial downto valor final do
Sentencia;
Ejemplos:
For C := 5 downto 1 do
Begin
Write (`C´);
Writeln
End;
Lo anterior produce la siguiente salida:
5
4
3
2
1
También podemos encontrar ciclos FOR anidados:
For m := 1 to 10 do
begin
For n := 10 downto 2 do
WriteLn (m,n)
end;

Entrada deberá ser Estructura de control de repetición REPEAT

El ciclo repeat-until es un ciclo de 1 a n. Para ingresar al ciclo no hay condición por lo tanto las acciones que se encuentran dentro del ciclo se realizarán al menos una vez. Luego de la última acción (en este caso acción3) se evalúa la condición que se encuentra en la parte posterior de la estructura.El ciclo iterará hasta que se verifique la condición ("repeat-until" significa "repetir-hasta").

El ciclo repeat-until repite hasta que se cumpla la condición.

var

n: integer;

i:integer;

begin

write('Ingrese un valor: ');

readln(n);

i:=1;

repeat 9:

writeln(i);

i:=i+1;

until( i>n );

end.




sábado, 6 de marzo de 2010

jueves, 4 de marzo de 2010

MENUS

En este programa puedes escoger 4 opciones
1. calcular el area de un triangulo.
2. calcular el volumen de una esfera.
3. imprimir un mensaje de bienvenida.
4. salir.

se utilizo la sentencia CASE y PROCEDURE.

click aqui para descargar el programa


















miércoles, 3 de marzo de 2010

SENTENCIA CASE

Esta es una calculadora realizada con el programa FREE PASCAL.
NOTA:solo realiza las operaciones basicas(suma, resta, multiplicacion, divicion)

Da click aqui para descargar el programa