Dicho Soft

Poner colores

2010-03-21T14:45:00.001-03:00

A todos nos gustan los colores y Pascal no se queda atrás, por eso para colocar colores a nuestros programas tenemos dos procedimientos. Uno para colorear las letras y otro para los fondos, estos son:

TextColor y TextBackground
Son muy fácil de usar pero podemos llegar a hacer un desastre, por eso tienes que ir recordando (o tratar) donde declaraste cada uno para saber a que parte del programa afecta.

Su declaración es muy sencilla, solo basta con recordar sus nombres y luego elegimos el color. Los colores los podemos escribir (en ingles) o ingresar su equivalencia en número.

De Dicho Soft

Declaración
   Textcolor (3);
   Textbackground (15);

Estos afectan a todo lo declarado a su continuación, ejemplo:

Program Color;
Uses Crt;
Begin
   Clrscr;
   Writeln ('Dicho Soft'); {Fondo negro y en letras gris claro, es la configuración por defecto}
   TextColor (15); TextBackground (7);
   Writeln ('Dicho Soft'); {Fondo gris claro y en letras blancas}
End.

Efecto Titilar
Un efecto que podemos complementar con TextColor es Blink, que hace que el texto titile o parpadee (Funciona cuando se esta ejecutando el programa en pantalla completa, esto se hace apretando Alt + Enter). Y se declara sumándole 128 al valor del color o agregando la palabra "Blink". TextColor (130); o TextColor (2 + Blink);.

Ejemplo
Estas son unas líneas de un código que escribí para un trabajo práctico, y que cumplen la función de dibujar en la pantalla un submenú del programa. Solo dibuja el fondo y las líneas del contorno, el texto se agrega por separado en otra parte del programa.
Aún no he explicado como se declaran Procedure y Function (Procedimientos y Funciones), por lo que puede que no entiendas las primeras dos líneas (o si), pero lo que sigue si tienes que entenderlo por que ya lo explique.

De Dicho Soft

El resultado de ejecutar este Procedure es el siguiente:

De Dicho Soft

Lo interesante de este Procedure es que puedo dibujar un submenú del tamaño que quiera y en cualquier parte de la pantalla, solo basta con ir variando los números que le paso al Procedure (que son los valores de X, Y, F, C). Lo mismo para los colores (Color1, Color2, Color3).

En la próxima veremos procedimientos y funciones, como a mi me gusta explicar... directo al grano y con ejemplos para que se entienda.

Funciones útiles

2010-03-19T13:39:00.000-03:00

Redondear y truncar

   Round (X); {X:Real, Resultado real (Entero más próximo que hay de X)}
   Y := Round (X);

   Trunc (X); {X:Real, Resultado entero (Saca los decimales de X)}
   Z := Trunc (X);

Ejemplo

Program RyT;
Uses Crt;
Var
   VR1, VR2 : Real;
   EN : Integer;
Begin
   Clrscr;
   VR1 := 123.43;
   VR2 := Round (VR1);
   EN := Trunc (VR2);
End. {Falta mostrar los resultados en pantalla}

Números aleatorios

   Random; ==> Genera números aleatorios entre 0 y 1.
   Random (X); ==> Genera números aleatorios entre 0 y X (X es un número entero).

Ejemplo

Program Ran;
Uses Crt;
Var
   X : Integer;
Begin
   Clrscr;
   Randomize; {Siempre hay que colocarlo cuando usamos Random}
   Write (Random (200));
End.

Incrementar - Decrementar (Muy útil)

   Inc (X); ==> Incrementa el valor de X en 1 unidad (Sustituto de "X := X + 1").
   Dec (X); ==> Decrementa el valor de X en 1 unidad (Sustituto de "X := X - 1").

¿Qué pasa si queremos incrementar o decrementar en dos o más unidades a X?
Sencillo:
   Inc (X,5); {Incrementa en 5 unidades a X}
   Dec (X,10); {Decrementa en 10 unidades a X}

Ejemplo

Program IyD;
Uses Crt;
Var
   X,Y,N : Integer;
Begin
   Clrscr;
   X := 0;
   Y := 25;
   For N := 1 to 5 do
   Begin
   Inc (X,2);
   Dec (Y,5);
   End;
End. {Resultados: X = 10, Y = 0}

Int y Frac

   Int (X); {X:Real, Resultado real (Devuelve la parte entera de X).
   Frac (X); {X:Real, Resultado real (Devuelve la parte decimal de X).

Ejemplo

Program IyF;
Uses Crt;
Var
   R : Real;
Begin
   Clrscr;
   R := Int (236.56); {R = 236.0}
   R := Int (-236.56); {R = -236.0}
   R := Frac (236.56); {R = 0.56}
   R := Frac (-236.56); {R = -0.56}
End.

Otras

   Abs (X); ==> Nos da el valor absoluto de X.
   Sqr (X);  ==> Devuelve el cuadrado de X.
   Sqrt (X); ==> Devuelve la raíz cuadrada de X.
   Exp (X); ==> Devuelve el exponencial de X.
   Ln (X); ==> Devuelve el logaritmo natural de X.
   Sin (X); ==> Devuelve el seno de X.
   Cos (X); ==> Devuelve el coseno de X.
     Arctan (X); ==> Devuelve la cotangente de X.

For, While, Repeat

2010-03-13T15:58:00.001-03:00

Estas tres estructuras son muy utilizadas en el lenguaje Pascal y se usan para repetir dos o varias veces, una o muchas sentencias definidas por nosotros. Pero hay que tener cuidado ya que podríamos crear un bucle infinito del cual nunca saldríamos.

Definamos cada estructura, la ayuda de Turbo Pascal 7 las define así:

For: esta sentencia hace que la sentencia de después del do se ejecute una vez por cada valor dentro del rango, del primero al ultimo.

While: contiene una expresión que controla la ejecución repetida de una sentencia singular o compuesta.

Repeat: las sentencias entre repeat y until se ejecutan en secuencia hasta que al final de una secuencia, la expresión booleana en verdadera (True).

Sintaxis

   For Variable := Primer número to Último número do
   Sentencia;

   For Variable := Primer número downto Último número do
   Sentencia;

   While Expresión do
   Sentencia;

   Repeat
   Sentencia;
   Sentencia;
   ...
   Sentencia;
   Until Expresión;

Aclaraciones

Tanto "Variable", "Primer número" como "Último número" deben ser de un tipo ordinal (ej: Integer). Con "to" el valor de "Variable" se incrementa en 1 para cada vez que se ejecute el bucle. Con "downto" es exactamente al revés, es decir se decrementa en 1.

En los while, la sentencia después del "do" se ejecuta mientras que la expresión contigua al while sea verdadera. El valor de la expresión se evalúa antes de que se ejecute la sentencia, por lo que si la expresión es falsa no se ejecuta la sentencia.

Para los repear hay que tener cuidado ya que las sentencias se va a ejecutar por lo menos una vez, por que la expresión se evalúa al final de estas. Las sentencias se ejecutarán hasta que la expresión sea verdadera.

Tanto para while como para repeat los valores de las expresiones se las va a modificar dentro de su estructura, si no fuera de esta manera nunca se saldría del bucle y se generaría un ciclo de nunca acabar. Por otro lado, si queremos escribir más de una sentencia en un for o un while debemos escribirlas entre begin y end, para repeat no hace falta por que ya están delimitadas por repeat y until.

Ejemplos de estructuras posibles

Caso 1

For Variable := Primer número to Último número do

Begin

Sentencia;

...

Sentencia;

End;

Caso 2

For Variable_1 := Primer número to Último número do

For Variable_2 := Primer número to Último número do

For Variable_3 := Primer número to Último número do

For Variable_4 := Primer número to Último número do

Begin

Sentencia;

While Expresión do

Begin

Sentencia;

End;

Sentencia;

End;

Caso 3

Repeat

While Expresión do

Begin

For Variable := Primer número to Último número do

Begin

Sentencia;

...

Sentencia;

End;

Sentencia;

End;

Sentencia;

...

Sentencia;

Until Expresión;

Estos son distintos casos que podemos armar al ir combinado las distintas estructuras, no necesariamente puedes dar con una estructura de esta forma, solo son ejemplos. Fíjate donde coloco ";" y donde no. Si lo queremos complicar podríamos sumas unos IF y CASE, pero lo dejo para vos. No to olvides que la práctica lo es todo.

Veamos unos ejemplos

Program EjemploFor;

Uses Crt;

Var

x : Integer;

Begin

Clrscr; {Borra la pantalla}

For x := 1 to 100

Writeln (' Dicho Soft ');

Readkey; {Se detiene el programa hasta que se presione una tecla}

End. {Escribe 100 veces "Dicho Soft" en la pantalla, podría ver puesto 1000000}

Program EjemploWhile;

Uses Crt;

Var

Tecla : Char;

Begin

Clrscr;

Tecla := #13; {Es la tecla Enter o Intro}

While Tecla <> #27 do {Tecla Escape}

Begin

Writeln (' Dicho Soft ');

Tecla := Readkey;

End;

End. {Escribe "Dicho Soft" mientras que la tecla pulsada sea distinta a Escape (#27)}

Program EjemploRepeat;

Uses Crt;

Var Tecla_2 : Char;

Begin

Clrscr;

Repeat

Writeln (' Dicho Soft ');

Tecla_2 := Readkey;

Until Tecla_2 = #27;

End. {Escribe "Dicho Soft" hasta que se presione Escape. Si ponemos "<>" en el lugar del "=" escribe "Dicho Soft" mientras se presione la tecla Escape, cambia la cosa.}

If y Case

2010-03-05T01:11:00.000-03:00

Estas estructuras son muy importantes. "If" especifica las condiciones bajo las cuales será ejecutada una o varias sentencias y la sentencia "Case", consiste en una expresión (el selector) y una lista se sentencias, cada una prefijada con un caso.

Sintaxis:
   If (Expresión)
   Then Sentencia;

   O

     If (Expresión)
   Then Sentencia
   Else Sentencia;

Si la expresión resulta verdadera se ejecuta la sentencia de "Then".

En el otro caso si la expresión del "If" resulta falsa se ejecuta la sentencia de "Else", en caso contrario la de "Then". En esta siempre se va a ejecutar una u otra, pero nunca ambas.

Pero, ¿qué pasa si tenemos más sentencias?. La solución es la de encerrar todas las sentencias dentro de "Begin" y "End".

Veamos unos casos:

Caso 1

If (Expresión)

Then

Begin

Sentencias; {Todas las que se necesiten; terminar con ";"}

End {Este "End" no termina con ";", porque luego está "Else"}

Else Sentencia;

Caso 2

If (Expresión)

Then

Begin

Sentencias;

End {Este "End" no termina con ";", porque luego está "Else"}

Else

Begin

Sentencias;

End; {Se cierra con ";"}

Si a las expresiones de estos casos se le interpone un "Not" (Para negar) se invertirían los resultados, por lo que si el resultado de la expresión resulta verdadera, como tenemos un "Not" delante, ese verdadero se convierte en falso. De esta manera pasaría a ejecutarse "Else" y no "Then".

Ejemplo:

If Not (2 < 5)

Then Write ('2')

Else Write ('5');

¿Qué nos está diciendo este ejemplo?. Bien si vemos 2 es menor a 5 por lo que el resultado sería verdadero, pero como tenemos un "Not" delante se niega el resultado que dando en falsa, por lo que se muestra en pantalla 5 y no 2. Si no estaría en "Not" se mostraría en pantalla el 2 y no el 5.

Aclaración

Sentencia: es una sola instrucción. Por ejemplo: Write (' Dicho Soft') o puede ser Readln (Nombre).
Sentencias: en un conjunto de instrucciones. Por ejemplo varios "Write" y "Read", etc;

Otros casos validos:

Caso 3

If (Expresión)

Then

If (Expresión)

Then Sentencia

Else

Begin

Sentencias;

End

Else

If (Expresión)

Then

Begin

Sentencias

End

Else Sentencia;

Caso 4

If (Expresión)

Then

If (Expresión)

Then

If (Expresión)

Then

If (Expresión)

Then

Begin

Sentencias

End

Else Sentencia

Else Sentencia;

Estos dos casos son validos, para comprobarlo solamente hace falta colocar una expresión en cada "If".

Veamos "Case"

Sintaxis:

Case (Expresión) of

Caso_1: Sentencia;

Caso_2:Sentencia;

Caso_N:Sentencia;

End;

Case (Expresión) of

Caso_1: Sentencia;

Caso_2: Sentencia;

Caso_N: Sentencia;

Else Sentencia;

End;

Un caso consiste en una o más constantes o rangos, separados por coma. La parte "Else" es opcional.

Por ejemplo:

Case Variable of

'A' .. 'Z', 'a' .. 'z' : Write ('Letra.');

'0' .. '9' : Write ('Número');

'-','+','/','*' : Write ('Operador');

Else Write ('Carácter especial');

End;

Si queremos colocar más de una sentencia debemos encerrarlas entre "Begin" y "End".

Ejemplo:

Case (Expresión) of

Caso_1: Begin

Sentencias;

End;

Caso_2: Begin

Sentencias;

End;

Caso práctico

Imagínate si en tu programa quieres establecer distintas acciones para todos los número (enteros) que van desde 1 a 9. El número es ingresado por el usuario y obviamente nosotros no lo conocemos, ¿como determinarías que número ha sido ingresado?. Pues no queda otra que ir preguntando uno por uno hasta dar con el número ingresado.

Lo podemos hacer de dos formas:

Forma 1 (Con "If")

Program Forma_1;

Uses Crt;

Var

N: Integer;

Begin

Clrscr;

Write ('Ingrese un número entero entre 0 y 9: '); Readln (N);

If N = 0

Then Acción_1

Else

If N = 1

Then Acción_2

Else

If N = 2

Then Acción_3

Else

If N = 3

Then Acción_4

Else

If N = 4

Then Acción_5

Else

If N = 5

Then Acción_6

Else

If N = 6

Then Acción_7

Else

If N = 7

Then Acción_8

Else

If N = 8

Then Acción_9

Else

If N = 9

Then Acción_10

Else Writeln ('Ingresó un número equivocado.');

Repeat Until Keypressed;

End.

Forma 2 (Con "Case")

Program Forma_2;
Uses Crt;
Var
   N: Integer;
Begin
  Clrscr;
  Write ('Ingrese un número entero entre 0 y 9: '); Readln (N);
  Case N of
     0: Acción_1;
   1: Acción_2;

   2: Acción_3;
   3: Acción_4;
   4: Acción_5;
   5: Acción_6;
   6: Acción_7;
   7: Acción_8;
   8: Acción_9;
     9: Acción_10;
   Else Writeln ('Ingresó un número equivocado.');
   End;
Repeat Until Keypressed;
End.

¿Con qué forma te quedas?, obviamente que en este caso particular nos conviene toda la vida la forma 2. A simple vista podemos ver que la complejidad es mucho menor y ni hablar de la diferencia de tiempo que se tarda en escribir cada una.
Así que ya sabes que camino tomar cuando tienes muchas acciones y una sola variable que decide cual se ejecutará. Pincha aquí para verlo integrado en un posible menú para un programa hecho en Pascal.

Write, Writeln, Read, Readln y GotoXY

2010-02-28T15:13:00.021-03:00

Antes de continuar avanzando voy a explicar estos procedimientos, así que voy a lo que te interesa: ¿Cómo se utilizan?..

Write
Su principal función es la de mostrar mensajes en pantalla para poder interactuar con en usuario, ademas de permitirnos crear la interfaz gráfica del programa, entre otras.
Su estructura es: Write ('Aquí va el texto que se mostrara en pantalla');

Writeln
Su finalidad es la misma que el anterior, solo que el próximo texto en escribirse en pantalla se escribirá en una línea inferior.
Su estructura es: Writeln ('');

Read
Se utiliza cuando pedimos al usuario que ingrese texto, números o lo que se necesite para continuar con la ejecución.
Su estructura es: Read (Aquí va una variable donde se guardará lo ingresado por el usuario);

Readln
Exactamente igual al anterior solo que lo próximo en aparecer en pantalla se escribirá en la siguiente línea.
Su estructura es: Readln ();

GotoXY
Este procedimiento sirve para mover el cursor a las coordenadas de la pantalla virtual que necesitemos, ademas si se combina con Write podemos mostrar un mensaje en cualquier parte de la pantalla. Es un procedimiento muy útil para la creación de la interfaz gráfica.
Su forma de declarar es: GotoXY (Coordenada X, Coordenada Y);
Coordenada X: número de la columna (Hasta 80, en TurboPascal)
Coordenada Y: número de la fila (Hasta 25, en TurboPascal).

Ejemplos
Integremos todo esto en un ejemplo de un menú para un programa escrito con TurboPascal.
Aquí hay otro ejemplo

Program Menu;
Uses Crt;
Var
   Sal:Char;
   Selec:Shortint;
   Esc,Tecla:Boolean;

Procedure Menu;
Var
  y:Shortint;
  Des:Char;

Procedure Creditos;
Begin
   Clrscr;Textcolor(15);Gotoxy(33,5);
   Writeln ('Ejemplo de "MENU"');
   Gotoxy(27,7);
   Writeln ('----------------------------');
   Gotoxy(34,9);
   Writeln ('Proyecto 2009');
   Gotoxy (19,12);
   Writeln ('Hecho en Pascal, compilado con Turbo Pascal');
   Gotoxy(25,15);
   Writeln ('Programado por: Matias Correnti');
   Gotoxy(24,24);Textcolor(11);
   Writeln ('PULSE UNA UNA TECLA PARA REGRESAR');Readkey;
End;

Procedure escfondo;
Var y :Shortint;
Begin
   clrscr;textbackground(3);textcolor(8);
   For y := 1 to 12 do
   Begin
   gotoXY(21,y);
   write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
   gotoXY(21,25-y);
   write('°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°');
   gotoXY(1,13-y);
   write('°°°°°°°°°°°°°°°°°°°°');
   gotoXY(1,12+y);
   write('°°°°°°°°°°°°°°°°°°°°');
   gotoXY(63,12+y);
   write('°°°°°°°°°°°°°°°°°°');
   gotoXY(63,13-y);
   write('°°°°°°°°°°°°°°°°°°');
   End;
   For y := 5 to 20 do
   Begin
   textbackground(LightGray);
   gotoXY(25,y);writeln(' ');
   textbackground(0);
   If y < 20
   Then
   Begin
   gotoXY(59,2+y);writeln(' ');
   End;
   End;
   gotoXY(28,21);writeln(' ');
End;

Procedure escmenu;
Begin
   textcolor(12);textbackground(lightgray);
   gotoXY(40,6);writeln('MENU');textcolor(0);
   gotoXY(33,8);writeln(' ');
   gotoXY(34,8);writeln('Opcion 1');
   gotoXY(33,10);writeln(' ');
   gotoXY(34,10);writeln('Opcion 2');
   gotoXY(33,12);writeln(' ');
   gotoXY(34,12);writeln('Opcion 3');
   gotoXY(33,14);writeln(' ');
   gotoXY(34,14);writeln('Opcion 4');
   gotoXY(33,16);writeln(' ');
   gotoXY(34,16);writeln('Creditos');
   gotoXY(33,18);writeln(' ');
   gotoXY(34,18);writeln('Salir');
End;

Procedure escselec;
Begin
   textbackground(9);textcolor(0);
   Case Selec of
   1:begin
   gotoXY(33,8);writeln(' ');
   gotoXY(34,8);writeln('Opcion 1');
   end;
   2:begin
   gotoXY(33,10);writeln(' ');
   gotoXY(34,10);writeln('Opcion 2');
   end;
   3:begin
   gotoXY(33,12);writeln(' ');
   gotoXY(34,12);writeln('Opcion 3');
   end;
   4:begin
   gotoXY(33,14);writeln(' ');
   gotoXY(34,14);writeln('Opcion 4');
   end;
   5:begin
   gotoXY(33,16);writeln(' ');
   gotoXY(34,16);writeln('Creditos');
   end;
   6:begin
   gotoXY(33,18);writeln(' ');
   gotoXY(34,18);writeln('Salir');
   end;
   end; {Case}
   textcolor(2);textbackground(15);
End;

Begin
  If Esc
   Then
   begin
   escfondo;
   escmenu;
   Esc := False;
   end;
  If Tecla
   Then escselec
   Else Tecla := True;
  gotoxy(41,51); Des := READKEY;
  textbackground(0);textcolor(15);
  If Des = #13
   Then
   Case Selec of
   1:begin
   clrscr;
   Esc := True; {No hace nada ==> Regresa a Menu}
   Selec := 1;
   end;
   2:begin
   clrscr;
   Esc := True; {No hace nada ==> Regresa a Menu}
   Selec := 1;
   end;
   3:begin
   clrscr;
   Esc := True; {No hace nada ==> Regresa a Menu}
   Selec := 1;
   end;
   4:begin
   clrscr;
   Esc := True; {No hace nada ==> Regresa a Menu}
   Selec := 1;
   end;
   5:begin
   clrscr;
   Creditos;
   Esc := True; {Muestra los Creditos ==> Regresa a Menu}
   Selec := 1;
   end;
   6:begin
   Repeat
   Clrscr; gotoXY(25,12);
   write ('Esta seguro que quiere salir? (S/N) ');
   Sal := Readkey; Esc := True; Selec := 1;
   Until (Sal = #83) or (Sal = #78);
   end;
   End {Case}
   Else
   If Des = #0
   Then Tecla := False;
   Case Des of
   #72:begin {Arriba}
   If Selec = 1
   then Selec := 6
   else Selec := Selec - 1;
   escmenu;
   end;
   #80:begin {Abajo}
   If Selec = 6
   then Selec := 1
   else Selec := Selec + 1;
   escmenu;
   end;
   End; {Case}
End; {Menu}

Begin
  Clrscr;
   Tecla := True; Esc := True; Selec := 1;
   Repeat
   Menu;
   Until (Sal = #83);
  Clrscr;
End.

En este ejemplo hay cosas que aún no vimos, pero no hay que desesperar si no entiendes nada del código, con tiempo y práctica veras que no es muy difícil de entender ni de escribirlo.

Para aclara un poco el código he escrito algunas cosas con colores, para poder marcarlos más adelante, ya que lo usaremos como ejemplo para explicar otras estructuras que no he explicado.

Por el momento aclaremos que marca cada color.
Azul: Son las variables que he declarado para poder operar.
Rojo: Son las llamadas a los procedimientos cuyos nombres también están en rojo.
Verde agua: Son las estructuras Case, If, Repeat y For. También está la estructura While que no aparece en este ejemplo.
Aquí hay un While

Para finalizar la única forma de aprender y de ver como se comporta cada estructura es practicando y probando diferentes formas de resolver una situación, ya que siempre hay otro modo de resolver las cosas.

Tipos de Datos, Operadores y Asignaciones

2010-02-26T14:13:00.023-03:00

Todas las variables que uses en tus programas las debes asociar a un tipo de dato especifico.
El tipo de dato define el rango de valores que pueden tomar la variables a lo largo de su vida, es único y no se puede cambiar durante la ejecución del programa.

Los tipos de datos son:

De: Dicho Soft

Operadores

Integer
   Operadores:
   +
   -
   *
   div
   mod

Real
   Operadores:
   +
   -
   *
   /

Boolean
   Operadores:
   True
   False
   >
   <
   >=
   <=
   <>
   =
   and
   or
   not

Char (admite un solo caracter)
   Ejemplos:
   A := '1';
   B := #13;

Ejemplos

Veamos unos ejemplos de como declarar las variables en los programas, sin estas no podríamos hacer nada por ende la importancia de saber como se declaran.

Program Ejemplo_1;
Uses Crt;
Type
   Mi_numero : Integer;
Var
   A : Integer;
   B : Mi_numero;
Begin
   Clrscr;
   A := 0;
   B := 100;
   While A <= B do
   A := A + 1; {Incrementamos en una unidad a "A" y el resultado lo volvemos a guardar en "A"}
   Write ('El resultado es: ', A);
   Repeat Until Keypressed;
End.

De este ejemplo nos importa la manera de declarar las variables "A" y "B", que como podemos ver ambas son Integer (Enteras), declaradas de diferentes formas pero obtenemos lo mismo.
Otra manera de haber declarado estas variables mucho mas simple hubiera sido de esta manera:

Program Ejemplo_1;
Uses Crt;
Var
   A,B:Integer;
Begin
.
.
.
End.

Lo mismo se cumple para los otros tipos de datos.
Por otro lado, para este ejemplo podríamos haber declarado nuestro propio tipo de dato.
Ejemplo:

Program Ejemplo_1;
Uses Crt;
Var
   A,B : 0..100;
Begin
.
.
.
End.

En este ejemplo estamos estableciendo que "A" y "B" pueden tomar valores que van desde 0 hasta 100.

Para cualquiera de las tres versiones del programa el resultado siempre es 100.

Asignaciones

En Pascal los dos puntos seguido del signo igual (:=) se utiliza para indicar que se está asignando un dato a una variable o de una variable a otra.
Ejemplo:

Program Ejemplo_2;
Uses Crt;
Var
   A1, B1, C1:Integer;
Begin
   A1 := 5; {Asigno a A1 el número 5}
   B1 := A1; {Asigno el valor de A1 (5) a B1}
   C1 := B1 + A1; {Asigno a C1 10, que es el resultado de sumar B1 y A1 (10 = 5 + 5)}
End.

Estructura de un Programa

2010-02-24T17:10:00.018-03:00

Algo que se debe tener en cuenta antes de empezar es la estructura del programa, la cual le da sentido y orden.

La estructura para un programa escrito en Pascal es la siguiente:

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

Program Identificador;

Uses Identificadores;

Const

Definiciones de constantes;

Type

Declaraciones de tipos de datos definidos por el programador;

Var

Declaración de variables;

Function

Definiciones de funciones;

Procedure

Definiciones de procedimientos;

Begin

Sentencias (Cuerpo del programa);

End.

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

Ahora bien, habrá veces en que tal vez no uses todas, sino algunas pocas, en un ejemplo veremos cuales siempre se deben escribir.

Un consejo, trata de seguir un mismo orden para todos tus programas, salvo con los procedimientos y funciones que pueden ubicarse de manera inversa a este orden establecido, así siempre sabrás donde esta lo que necesites encontrar para consultar y/o modificar.

Vocabulario

Podemos dividirlo en tres partes:

Letras: a ... z, A ... Z
Dígitos: 0 ... 9
Símbolos especiales: + - * / div and or > < >= <= <> ( ) = [ ] { } ^ ; , '

Comentarios

Por último y no menos importantes, los comentarios que escribas se deben colocar dentro de {}, esto pueden ocupar todas las líneas que quieras. Estos son muy útiles ya que en ellos puedes describir el funcionamiento de alguna función, lo cual si trabajas en equipos de trabajo resulta más cómodo y práctico que estar tratando de adivinar que es lo que hace dicha función.

Veamos un ejemplo

Programa Ejemplo_1;

Uses Crt;

Type

Letras: String[40];

Numeros: Integer;

Var

Edad: Numeros;

Nombre: Letras;

Begin

Clrscr; {Borramos la pantalla}

Write ('Ingrese su Nombre: '); {Escribimos en pantalla el mensaje}

Readln (Nombre); {Espera hasta que se ingrese un nombre}

Write ('Ingrese su Edad: ');

Readln (Edad);

Clrscr;

Writeln (' Su nombre es: ', Nombre); {Se escriben los datos ingresados}

Writeln (' Su edad es: ', Edad, ' años');

Repeat Until Keypressed; {Siempre se escribe al final del programa}

End. {Este siempre termina con punto}

En azul están marcadas las palabras que siempre se deben escribir, salvo que no las necesites como puede ser el caso de "Type" o "Repeat Until Keypressed".

Bienvenido

2010-02-24T15:56:00.006-03:00

Próximamente estaré publicando ejemplos de códigos fuentes escritos en Pascal..

Date una vuelta más tarde!..