Practica Numero 1

Instrucciones en Pascal

PROGRAM: Es el proceso iterativo de escribir o editar código fuente, fuente implica probar, analizar y perfeccionar, y, a veces, coordinar con otros programadores, en el caso de un programa desarrollado en conjunto.   Programación de computadoras normalmente se lo conoce como desarrollo de software. El término ingeniería de software se  convirtió  muy popular.

#include <stdio.h>

int main()
{

printf("Hello world!\n");
return 0;

}

Ejemplo de PROGRAM.

USES: Identificadores

Crt ; declaraciones

WRITELN: Definición para utilizar las variables de un registro-Disyunción lógica exclusiva

 Las instrucciones para llamar a los procedimientos write y 

writeln son de la siguiente forma : 

• write(lista_de_variables);

• writeln(lista_de_variables); donde : 

lista_de_variables : es una lista de identificadores de 

variables separados por comas.

Los datos que se pueden mostrar son : enteros, reales,

caracteres, o cadenas. 

READLN: Las instrucciones para llamar a los procedimientos read y readln son de la siguiente forma : 

• read(lista_de_variables);

• readln(lista_de_variables); donde : 

lista_de_variables : es una lista de identificadores de variables  separados por comas.

Los datos que se pueden leer son : enteros, reales, caracteres, o  cadenas. 

 La acción de la instrucción es obtener, del teclado, tantos valores de datos como elementos hay en lista_de_variables. 

Los  datos deberán ser compatibles con los tipos de las variables  correspondientes en la lista.

 La diferencia entre las instrucciones read y readln consiste en  que read permite que la siguiente instrucción continúe leyendo  valores en la misma línea; mientras que con readln la siguiente  Lectura se hará después de que se haya tecleado el carácter de fin  de línea. 

BEGIN:La siguiente función devuelve true si el fichero que se le pasa por parametro formal a la función no existe y escribe en una linea de pantalla el error 'EL FICHERO NO EXISTE'.

FUNCTION ERROR_DE_FICHEROS(VAR fich1 : text):BOOLEAN;

error : BOOLEAN;

BEGIN
   error:=FALSE;

   WHILE error = FALSE DO
   BEGIN
      ASSIGN(fich1, 'fichero1.txt');
      {$I-}
      RESET(fich1);
      {$I+}
      IF IORESULT <> 0 THEN
         BEGIN
            error:=TRUE;
            BREAK;
         END
      ELSE
         BEGIN
            CLOSE(fich1);
            BREAK;
         END;
   END;

   IF error = TRUE THEN
      BEGIN
         WRITELN('EL FICHERO NO EXISTE');
      END;

   ERROR_DE_FICHEROS:=error;

END; { FIN ERROR_DE_FICHEROS }




END: El procedimiento CREA_LISTA nos va a permitir crear una lista enlazada principal de tipo NODO

Sean los siguientes tipos:

TYPE
   T_NODO = ^NODO;
   NODO = RECORD
      nombre : string;
      sig : T_NODO;
   END;




VAR: declaración de variables

  sueldo :real; 

  numero :integer; 

  nombre :cadena; 

  Nmes   :meses;

Bibliofilia:

http://www.webprogramacion.com/158/pascal/verificar-la-existencia-de-un-fichero.aspx

http://exa.unne.edu.ar/informatica/introduccion/public_html/material2009/pascal-conceptosbasicos.pdf

http://es.wikipedia.org/wiki/Programa_inform%C3%A1tico 

http://fdoperez.webs.ull.es/doc/matematicas2.pdf