PDF de programación - Referencia rápida lenguaje Pascal

www.cartagena99.com


REFERENCIA RÁPIDA LENGUAJE PASCAL



Operandos Aritmeticos
- Resta
+ Suma
* Multiplicacion
/ Division real
Div Division entera
Mod Residuo
:= Asignacion
Sqr Potencia 2
Sqrt Raiz 2

Operandos Relacionales
< Menor que
> Mayor que
<= Menor igual que
>= Mayor igual que
<> Desigualdad
= Igualdad

Operandos Logicos
And - Y
Or - O
Xor - Bicondicional
Not - Negacion
Ord() - Ordinal
Succ() - Sucesor
Pred() - Antecesor
Inc() - Incremento
Dec() - Decremento

Declaracion de Variables
Tipo
Entero
Entero corto
Entero Largo
Entero Extra
Real
Real Corto
Real Doble
Real Largo
Real Extra
Logico
Caracter
Palabra
Arreglo
Texto
Constante
Apuntador

Declaración
Integer A;
ShorInt A;
LongInt A;
Word A;
Real A;
Single A;
Double A;
Extended A;
Comp A;
Boolean A;
Char A;
String A;
Array{1..N} of integer
Text A;
Const A;
Record=Variable

Limite Inferior
32000
128
2E -6
0
2.9E39
1.5E -45
5E -324
3.4E -4932
2E -65
True

Limite Superior
32000
127
2E 6
65000
1.7E 38
3.4E 38
1.7E 308
1.1E 4932
2E 63
False

De Contador=1 hasta Contador=N

Unidad
Interface

Si Condicion = 1 Entonces



Si no

Mientras Condicion = 1 haz

For Contador:= 1 to N do
Begin
Sentencia;
End;
If Condicion = 1 then
Begin
Sentencia;
End;
Else
Begin
Sentencia;
End;
While Condicion=1 do
Begin
Sentencia;
End;
Repeat
Sentencia;
Until (Condicion = 1);
Case(Opcion)
1: Sentencia1;
2: Sentencia2;
Else
Sentencia;
Procedimiento
Procedure Nombre(Variable:Integer) Function Nombre(Variable:Integer) : Real

Repite

Hasta Condicion = 1
En caso de Opcion
Si Opcion = 1
Si Opcion = 2
Si no

Función

www.cartagena99.com


Var
Begin
Sentencia;
End;

Begin
Nombre(Variable)
End.

Var
Begin
Sentencia;
VarReal:=Variable;
End;

Begin
A:=Nombre(X);
End.

Uses
crt;
Type

Const

Var

Procedure Pausa;
Implementation
Procedure Pausa:
Var
ch:Char;
Begin
ch :=Readkey;
End;
End.

Registros
Type

Nodo=^Tarjeta;

Tarjeta = Record
Nombre = String[10];
Edad = Integer;
Sig = Nodo
End;

Var
Alumno:Tarjeta

APUNTADORES
New(Inicio);

Inicio->Inicio^.Info:=‘Hola’;

Inicio->Inicio^.Siguiente:=NIl;

Aux:=NIL;

New(Aux);

Inicio^.Siguiente:=Aux;

Dispose(Inicio);



Funciones Varias
Funcion
Clrscr;
ClrEol;
DelLine
InsLine;
TextBackground(Color);
Textcolor(Color);
TextMode(Modo);
Window(x,y,x2,y2);
NormVideo;
HighVideo;

Conjuntos
Type

Semana = (Lun,Mr,Mie,Jue,Vie,Sab,Dom);



Descripcion
Borra Pantalla
Borra linea actual
Borra linea de texto donde esta el cursor
Inserta linea vacia en posicion actual
Selecciona color de fondo
Selecciona color de primer plano
Define modo de video
Define una ventana de textoen de ESI x,y hasta EIDx2,y2
Restaura atributos de video
Activa pantalla de video de alta intensidad

www.cartagena99.com


LowVideo;
Random(Var);
Randomize;
SizeOf(Var);
Sound(Frec);
NoSound;
Delay;
Halt(Var);

Fuciones de Cadena
Funcion
Clreol
Concat(Cad1,Cad2);
Copy(Cad,indice,Lim);
Delete(Cad,indice,Lim);
Deline;
Gotoxy(x,y);
Insert(Cad1,Cad2,indice);
Insline
Length(Cad);
Pos(Cad1,Cad2);
Read(Variable);
Readln(Variable);
Wherex;
Wherey;
Write(Variable);
Writeln(Variable);
Val(Cad,N,Num);

Activa pantalla de video de baja intensidad
Devuelve un numero aleatorio de cero a Var
Inicializa el generador de numeros aleatorios
Devuelve el numero de bytes requeridos por una variable
Genera un sonido a una frecuencia Frec
Desconecta sonido
Detiene la ejecucion de la siguiente instruccion
Interrumpe la ejecucion de un programa

Descripcion
Borra linea actual
Une dos cadenas y el resultado lo deja en cadena1
Devuelve una cadena que va desde el indice hasta el lim
Borra una subcadena que se encuentra en cadena de indice hasta lim
Borra linea de texto donde esta el cursor
Posiciona al cursor en x,y
Inserta en cad1 cad2 desde la posicion de indice
Inserta una linea vacia en la posicion actual
Devuelve la logitud de la cadena
Devuelve la posicion de cad1 dentro de cad2
Lee una entrada y la coloca en una variable
Lee una entrada y la coloca en una variable y retorna
Devuelve posicion del cursor en la horizontal
Devuelve posicion de el cursor en la vertical
Escribe el contenido de la variable en la pantalla
Escribe el contenido de la variable en la pantalla y retorna
Convierte una cadena a un numero n si hay exito Num = 0

Funciones de Entrada / Salida
Funcion
Chr(n);
GetCBreak(Opcion);
KeyPressed;
ReadKey;

Descripcion
Devuelve el caracter que tiene un valor ASCCI de n
Devuelve el estado de CRTL-BREAK
Devuelve true si se ha pulsado una tecla
Lee un caracter de el teclado

Write(‘Mensaje’);
Write(‘Mensaje’,Variable);
Write(‘Mensaje’,Variable:2:3);

Escribe Mensaje en la pantalla
Escribe Mensaje y el valor de la Variable en pantalla
Escribe Mensaje y el valor de la Variable con 2 enteros y 3 decimales

Fuciones de Archivos
Función
VariableArch:Text
VariableArch:File of Integer
Assign(VariableArch,Nombre)
Reset(VariableArch);
Append(VariableArch);
Rewrite(VariableArch);
Seek(VariableArch,Num);
Filesize(VariableArch);
Flush(VariableArch);
Close(VariableArch);
Write(VariableArch,’Hola’);
Read(VariableArch,Variable);
EOF(VariableArch);
EOLN(VariableArch);
{$I+-}
ioresult = 0

Funciones de Sistema
Función

Descripción
Declra una variable de archivo de texto
Declara una variable de archivo tipificado
Asigna un apuntador a un archivo llamado nombre
Añade a un archivo tipificado
Añade a un archivo de texto
Crea y escribe en un archivo
Se posiciona en el registro con posicion Num
Numero de datos en el archivo empezando en cero
Fuerza al buffer a escribir al archivo
Cierra un archivo
Escribe al archivo
Lee de el archivo y deja informacion en variable
Fin de archivo
Fin de linea
Conecta o desconecta Verifiacion de entrada/Salida
Si el archivo existe ioresult = 0

Descripción

www.cartagena99.com


ChDir(Cad);
DiskFree(Unidad);
DiskSize(Unidad);
DosExitCode;
DosVersion;
Exec(Prog,Ordenes);
Exit;
FreeMem(Apuntador,Num);
Fsearch(Arch,path,ListDir);
Fslipt(Arch,Path,Dir,Nombre,ext);
GetDir(Unidad,Cad);
GetFTime(Apuntador,Hora);
GetMem(Apuntador,n);
GetTime(Hora,Min,Seg,Cent);
GetVerify(Opcion);
Keep(Codigo);
MkDir(Cad);
Rename(Apuntador,Cad);
RmDir(Dir);

Cambia de directorio actual
Devuelve la cantidad de bytes libre en un disco
Devuelve el numero total de bytes en un disco
Devuelve el codigo de salida en un programa hijo
Devuelve el numero de version actual de el DOS
Se ejecuta un prog con linea de ordenes
Se termina un subprograma o programa
Libera num de memoria de la pila asociada con apuntador
Devuelve cadena y busca en la listDir un nombre de archivo
Divide un archivo en unidad, directorio,nombre y extension
Devuelve el directorio actual en la unidad especificada
Devuelve hora del archivo que apunta apuntador
Reserva n bytes de memoria asigna la direccion a Apuntador
Obtiene tiempo actual de el sistema
Pone el estado de verificacion de el DOS
Deja un programa residente el DOS toma el codigo de salida
Crea un directorio con nombre que tiene cad
Renombra un archivo apuntado con el nombre que tiene Cad
Elimina un directorio especificado sin archivos dentro

Funciones Matematicas
Función
Sin(Var);
Cos(Var);
ArcTan(Var);
Exp(Var);
Ln(Var);
Sqr(Var);
Sqrt(Var);
Abs(Var);
Round(Var);
Trunc(Var);
Frac(Var);
Int(Var);
Ord(Var);
Pi;

Descripción
Devuelve en radianes el seno de el angulo Var
Devuelve en radianes el coseno de el angulo Var
Devuelve en radianes el arco tangente de el angulo Var
Devuelve el exponencial "e" de Var
Devuelve el logaritmo natural del argumento Var
Devuelve el cuadrado de el argumento Var
Devuelve la raiz cuadrada del argumento Var
Devuelve el valor absoluto de Var
Devuelve el redondeo de Var
Devuelve a Var sin la fraccion
Devuelve la parte decimal de un numero real
Devuelve la parte entera de un real
Devuelve el valor asociado a un caracter ASCCI
Devuelve el valor de Pi

Funciones de Control
Función
Initgraph(Control,Modo,Ruta);
Closegraph;
Restorecrtmode;
Setgraphmode();
Getgraphmode
GetMaxMode;
GetModeName(Num);
GetDriveName;
GetModeRange(A,B,C);
InstallUserDrive(Archivo,Apuntador);
InstallUserFont(Archivo);
SetActivePage(Num);
GraphDefaults;
Graphresult
Grapherrormsg(),
GetFillParttern(Variable);
GetFillSettings(Variable);
GettextSettings(Variable);
GetViewSettings(Variable);
Error
No hay problema
Graficas no inicializadas

Descripción
Inicializa modo grafico con control y ruta especificada
Cierra modo grafico
Restaura estado
Establece modo actual de graficos
Devuelve el valor de el modo grafico actual
Devuelve el valor de el modo grafico
Devuelve el nombre de el modo grafico
Devuelve el controlador de graficos
Devuelve en B y C los modos graficos alto y bajo de A
Instala un controlador de graficos que no sea de Borland
Instala una fuente que no sea de Borland
Selecciona pagina de trabajo
Ventana,cursor,colores,tipo de relleno,y texto
Devuelve codigo de error
Despliega informacion de error
Devuelve el relleno de usuario
Devueleve el relleno y color actual
Devueleve fuente, direccion, tamaño y justificacion de texto
Devuelve parametros de ventana actual
Valor Control
0
Detected
CGA
-1

Valor
0
1

www.cartagena99.com


No control,No hardware
No archivo controlador
Controlador Invalido
No RAM para graficas
No RAM para exploracion de fondo
No RAM para exploracion de flujo
No archivo de tipografias
No RAM para tipografias
Modo de copntrol invalido
Error grafico generico
Error grafico de entrada salida

Funciones de Lineas
Función
Setlnstyle(Estilo,Modelo,Grosor);
GetLineSettings(Variable);
GetmaxColor;
SetWritemode(Num);



SoldLn
DotterLn
TiekWidth
CenterLn
DashedLn
UserBitLn
NormWidth

MCGA
EGA
EGA