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
viernes, 26 de marzo de 2010
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
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
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.
descarga el programa dando click aqui.

jueves, 11 de marzo de 2010
CONVINANDO ESTRUCTURAS DE CONTROL
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;
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.
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

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

NOTA:solo realiza las operaciones basicas(suma, resta, multiplicacion, divicion)
Da click aqui para descargar el programa

Suscribirse a:
Entradas (Atom)