Integrador

program integrador;

uses

crt;

var

opc:char;

msg:string='programa creado por  el doner martin';

procedure centrar(texto:string; fila:integer);

var

columna:integer;

begin

columna:=(80-length(texto)) DIV 2;

gotoxy(columna,fila);

write(texto);

end;

procedure salida;

begin

clrscr;

textbackground(red);

textcolor(yellow);

centrar('programa para el calculo de areas se despide,BYE',8);

Delay(2000);

end;

procedure aritmeticas;

procedure multiplicacion;

var

x,y,z:integer;

begin

clrscr;

centrar('dame un numero' , 5);

readln(x);

centrar('dame otro numero' , 6);

readln(y);

z:=x*y;

centrar('la multiplicacion de esos numeros es igual a:',8);

writeln(z);

writeln;

writeln;

writeln;

centrar('preciona una tecla para regresar al menu',10);

readkey;

end;

procedure resta;

var

x,y,z:integer;

begin

clrscr;

centrar('dame un numero' , 5);

readln(x);

centrar('dame otro numero' , 6);

readln(y);

z:=x-y;

centrar('la suma de esos numeros es igual a: ', 8);

writeln(z);

writeln;

writeln;

writeln;

centrar('preciona una tecla para regresar al menu',10);

readkey;

end;

procedure suma;

var

x,y,z:integer;

begin

clrscr;

centrar('dame un numero' , 5);

readln(x);

centrar('dame otro numero', 6);

readln(y);

z:=x+y;

centrar('la suma de esos numeros es igual a:',8);

writeln(z);

writeln;

writeln;

writeln;

centrar('preciona una tecla para regresar al menu',10);

readkey;

end;

begin

repeat;

clrscr;

gotoxy(18,1);

writeln('+----------------------------------------------+');

gotoxy(18,2);

writeln('I                                              I');

gotoxy(18,3);

writeln('+----------------------------------------------+');

gotoxy(23,2);

textcolor(yellow);

textbackground(black);

writeln(msg);

textcolor(white);

textbackground(black);

gotoxy(16,5);

writeln('+----------------------------------------------+');

gotoxy(16,6);

writeln('I                                              I');

gotoxy(16,7);

writeln('I                                              I');

gotoxy(16,8);

writeln('I                                              I');

gotoxy(16,9);

writeln('I                                              I');

gotoxy(16,10);

writeln('I                                              I');

gotoxy(16,11);

writeln('I                                              I');

gotoxy(16,12);

writeln('I                                              I');

gotoxy(16,13);

writeln('I                                              I');

gotoxy(16,14);

writeln('I                                              I');

gotoxy(16,15);

writeln('I                                              I');

gotoxy(16,16);

writeln('I                                              I');

gotoxy(16,17);

writeln('+----------------------------------------------+');

centrar('opciones del programa',6);

centrar('[S]uma de dos numeros',8);

centrar('[R]esta de dos numeros',10);

centrar('[M]ultiplicar de dos numeros',12);

centrar('[Y]regresar al menu principal',14);

textcolor(green);

centrar('elige una opcion',15);

opc:=readkey;

case opc of

 'S','s': suma;

 'R','r': resta;

 'M','m': multiplicacion;

end;

until (opc='Y') or (opc='y');

end;

procedure ciclos;

 Procedure Numeracion1;

Var

x:integer;

Begin

Clrscr;

 For x:=1 to 100 do

 Begin

Write(' ',x);

 End;

Readkey;

End;

Procedure Numeracion2;

Var

x:integer;

Begin

Clrscr;

 For x:=100 downto 1 do

 Begin

Write(' ',x);

 End;

Readkey;

End;

Procedure Numeracion3;

Var

x,y:integer;

Begin

Clrscr;

 For x:=1 to 100 do

 Begin

Write(' ',x);

y:=y+2;

 End;

Readkey;

End;

Procedure Numeracion4;

Var

x,y:integer;

Begin

Clrscr;

y:=1;

 For x:=1 to 100 do

 Begin

Write(' ',x);

y:=y+2;

 End;

Readkey;

End;

Begin

 Repeat

Clrscr;

Gotoxy(24,1);

Writeln('+---------------------------------------------------+');

Gotoxy(24,2);

Writeln('|                                                   |');

Gotoxy(24,3);

Writeln('+---------------------------------------------------+');

Gotoxy(28,2);

Textcolor(yellow);

textbackground(red);

Writeln(msg);

Textcolor(white);

Textbackground(black);

Gotoxy(8,5);

Writeln('+---------------------------------------------------+');

Gotoxy(8,6);

Writeln('|                                                   |');

Gotoxy(8,7);

Writeln('|                                                   |');

Gotoxy(8,8);

Writeln('|                                                   |');

Gotoxy(8,9);

Writeln('|                                                   |');

Gotoxy(8,10);

Writeln('|                                                   |');

Gotoxy(8,11);

Writeln('|                                                   |');

Gotoxy(8,12);

Writeln('|                                                   |');

Gotoxy(8,13);

Writeln('|                                                   |');

Gotoxy(8,14);

Writeln('|                                                   |');

Gotoxy(8,15);

Writeln('|                                                   |');

Gotoxy(8,16);

Writeln('|                                                   |');

Gotoxy(8,17);

Writeln('|                                                   |');

Gotoxy(8,18);

Writeln('+---------------------------------------------------+');

Centrar('OPCIONES DEL PROGRAMA',6);

Centrar('[N]umeracion de menor a mayor',8);

Centrar('N[u]meracion de mayor a menor',10);

Centrar('Nu[M]eracion de dos en dos',12);

Centrar('Num[E]racion de tres en tres',14);

Centrar('[Y] regresar al menu principal',16);

Textcolor(green);

Centrar('Elige una opcion',17);

Opc:=readkey;

 Case opc of

 'N','n': Numeracion1;

'U','u': Numeracion2;

 'M','m': Numeracion3;

 'E','e': Numeracion4;

End;

 Until (opc='Y') or (opc='y');

End;

procedure circulo;

var

area,r:real;

begin

clrscr;

centrar('escribir el valor de r(radio)',5);

readln(r);

area:=PI*r*r;

centrar('el area del circulo es igual a',8);

writeln(area:4:2);

writeln;

writeln;

writeln;

centrar('presiona una para regresar al menu',10);

readkey;

end;

procedure triangulo;

var

area,base,altura:real;

begin

clrscr;

centrar('escribe el valor de b(base)',5);

readln(base);

centrar('escribe el valor de h(altura)',7);

readln(altura);

area:=((base*altura)/2);

centrar('el area del triangulo es igual a',9);

writeln(area:4:2);

writeln;

writeln;

writeln;

centrar('presiona una tecla para regresar al menu',10);

readkey;

end;

procedure rectangulo;

var

area,base,altura:real;

begin

clrscr;

centrar('escribe el valor de b(base)',5);

readln(base);

centrar('escribe el valor de h(altura)',7);

readln(altura);

area:=(base*altura);

centrar('el area del rectangulo es igual a',9);

writeln;

writeln;

writeln;

centrar('presiona una tecla para regresar al menu',10);

readkey;

end;

Procedure  Cuadrado;

  Var

area,Lado:real;

 Begin

Clrscr;

Centrar('Escribe el valor del Lado: ',5);

Read(Lado);

area:=Lado*Lado;

Centrar('El area del Cuadrado es igual a: ',7);

Writeln(area:4:2);

Writeln;

Writeln;

Writeln;

Centrar('Presiona ENTER para regresar al menu principal',10);

Readkey;

 End;

Procedure  Romboide;

Var

base,altura,area:real;

Begin

Clrscr;

Centrar('Escribe el valor de la base: ',3);

Read(base);

Centrar('Escribe el valor de la altura: ',5);

Read(altura);

area:=base*altura;

Centrar('El area del Romboide es igual a: ',8);

Writeln(area:4:2);

Writeln;

Writeln;

Writeln;

Centrar('Presiona ENTER para regresar al menu principal',10);

Readkey;

End;

Procedure  Rombo;

  Var

area, Diagonalmayor,diagonalmenor :real;

 Begin

Clrscr;

Centrar('Escribe el valor de la Diagonal mayor: ',5);

Read(Diagonalmayor);

Centrar('Escribe el valor de la diagonal menor: ',6);

Read(diagonalmenor);

area:=Diagonalmayor*diagonalmenor/2;

Centrar('El area del Rombo es igual a: ',8);

Writeln(area:4:2);

Writeln;

Writeln;

Writeln;

Centrar('Presiona ENTER para regresar al menu principal',10);

Readkey;

End;

Procedure  Trapecio;

  Var

area, Basemayor,basemenor,altura :real;

 Begin

Clrscr;

Centrar('Escribe el valor de la Base mayor: ',5);

Read(Basemayor);

Centrar('Escribe el valor de la base menor: ',6);

Read(basemenor);

area:=Basemayor*basemenor/2;

Centrar('El area del Trapecio es igual a: ',8);

Writeln(area:4:2);

Writeln;

Writeln;

Writeln;

Centrar('Presiona ENTER para regresar al menu principal',10);

Readkey;

End;

Procedure Pentagono;

Var

area, Perimetro,apotema :real;

 Begin

Clrscr;

Centrar('Escribe el valor del Perimetro: ',5);

Read(Perimetro);

Centrar('Escribe el valor de la apotema: ',6);

Read(apotema);

area:=Perimetro*apotema/2;

Centrar('El area del Pentagono es igual a: ',8);

Writeln(area:4:2);

Writeln;

Writeln;

Writeln;

Centrar('Presiona ENTER para regresar al menu principal ',10);

Readkey;

 End;

procedure areas;

begin

 Repeat

Clrscr;

Gotoxy(15,1);

Writeln('+--------------------------------------------+');

Gotoxy(15,2);

Writeln('|                                            |');

Gotoxy(15,3);

Writeln('+--------------------------------------------+');

Gotoxy(20,2);

textcolor(yellow);

textbackground(red);

Writeln(msg);

textcolor(brown);

textbackground(black);

Gotoxy(12,5);

Writeln('+------------------------------------------------+');

Gotoxy(12,6);

Writeln('|                                                |');

Gotoxy(12,7);

Writeln('|                                                |');

Gotoxy(12,8);

Writeln('|                                                |');

Gotoxy(12,9);

Writeln('|                                                |');

Gotoxy(12,10);

Writeln('|                                                |');

Gotoxy(12,11);

Writeln('|                                                |');

Gotoxy(12,12);

Writeln('|                                                |');

Gotoxy(12,13);

Writeln('|                                                |');

Gotoxy(12,14);

Writeln('|                                                |');

Gotoxy(12,15);

Writeln('|                                                |');

Gotoxy(12,16);

Writeln('|                                                |');

Gotoxy(12,17);

Writeln('+------------------------------------------------+');

Centrar('opciones de programa',6);

Centrar('[C]irculo',7);

Centrar('[T]riangulo',8);

Centrar('[R]ectagulo',9);

Centrar('C[U]adrado',10);

Centrar('R[O]mboide',11);

Centrar('Tr[A]pecio',12);

Centrar('[P]entagono',13);

Centrar('Ro[M]bo',14);

Centrar('[Y]regresa al menu principal',15);

Textcolor(blue);

Centrar('Elige una opcion ',18);

opc:=readkey;

 Case opc of

 'C','c':circulo;

'T','t':triangulo;

 'R','r':rectangulo;

 'U','u':cuadrado;

 'O','o':romboide;

 'A','a':trapecio;

 'P','p':pentagono;

'M','m':rombo;

End;

 Until (opc='Y') or (opc='y');

End;

begin

repeat

clrscr;

textcolor(green);

centrar('Programa integrador tercer parcial',6);

centrar('elaborado por:  Martin Martinez',7);

centrar('bachillerato 30',8);

centrar('QUINTO  A,',9);

centrar('Programacion 1',10);

textcolor(yellow);

centrar('presiona ENTER para continuar',14);

textcolor(white);

readkey;

clrscr;

gotoxy(18,1);

writeln('+-------------------------------------------+');

gotoxy(18,2);

writeln('I                                           I');

gotoxy(18,1);

writeln('+-------------------------------------------+');

GOTOXY(23,2);

textcolor(yellow);

textbackground(black);

writeln(msg);

textcolor(white);

textbackground(black);

gotoxy(16,5);

writeln('+--------------------------------------------+');

gotoxy(16,6);

writeln('I                                            I');

gotoxy(16,7);

writeln('I                                            I');

gotoxy(16,8);

writeln('I                                            I');

gotoxy(16,9);

writeln('I                                            I');

gotoxy(16,10);

writeln('I                                            I');

gotoxy(16,11);

writeln('I                                            I');

gotoxy(16,12);

writeln('I                                            I');

gotoxy(16,13);

writeln('I                                            I');

gotoxy(16,14);

writeln('I                                            I');

gotoxy(16,15);

writeln('I                                            I');

gotoxy(16,16);

writeln('I                                            I');

gotoxy(16,17);

writeln('I                                            I');

gotoxy(16,18);

writeln('I                                            I');

gotoxy(16,19);

writeln('+--------------------------------------------+');

centrar('Opciones del programa',6);

centrar('[O]peraciones aritmeticas',8);

centrar('[C]alculo de areas',9);

centrar('C[i]clos',10);

centrar('[X]Salir del programa',17);

textcolor(green);

centrar('elige una  opcion',20);

opc:=readkey;

case opc of

 'O','o': aritmeticas;

 'C','c': areas;

 'I','i': ciclos;

 'X','x': salida;

end;

until(opc='X') or(opc='x');

end.

ciclos edmodo

Program numeraciones;
Uses
Crt;
Var
Opc:char;
msg:string=’Programa elaborado por martin martinez’;
Procedure Centrar(Texto:String; fila:Integer);
Var
Columna:integer;
Begin
Columna:=(80-Length(Texto)) DIV 2;
Gotoxy(Columna,fila);
Write(Texto);
End;
Procedure Numeracion1;
Var
x:integer;
Begin
Clrscr;
For x:=1 to 100 do
Begin
Write(’ ‘,x);
End;
Readkey;
End;
Procedure Numeracion2;
Var
x:integer;
Begin
Clrscr;
For x:=100 downto 1 do
Begin
Write(’ ‘,x);
End;
Readkey;
End;
Procedure Numeracion3;
Var
x,y:integer;
Begin
Clrscr;
y:=0;
For x:=0 to 50 do
Begin
Write(’ ‘,y);
y:=y+2;
End;
Readkey;
End;
Procedure Numeracion4;
Var
x,y:integer;
Begin
Clrscr;
y:=1;
For x:=1 to 50 do
Begin
Write(’ ‘,y);
y:=y+2;
End;
Readkey;
End;
Procedure Salida;
Begin
Clrscr;
Textbackground(red);
Textcolor(white);
Centrar(‘Gracias por usar este programa’,8);
Delay(2000);
End;

Begin
Repeat
Clrscr;
Gotoxy(24,1);
Writeln(‘+—————————————————————-+’);
Gotoxy(24,2);
Writeln(‘| |’);
Gotoxy(24,3);
Writeln(‘+—————————————————————-+’);
Gotoxy(28,2);
Textcolor(yellow);
textbackground(red);
Writeln(msg);
Textcolor(white);
Textbackground(black);
Gotoxy(8,5);
Writeln(‘+—————————————————————————-+’);
Gotoxy(8,6);
Writeln(‘| |’);
Gotoxy(8,7);
Writeln(‘| |’);
Gotoxy(8,8);
Writeln(‘| |’);
Gotoxy(8,9);
Writeln(‘| |’);
Gotoxy(8,10);
Writeln(‘| |’);
Gotoxy(8,11);
Writeln(‘| |’);
Gotoxy(8,12);
Writeln(‘| |’);
Gotoxy(8,13);
Writeln(‘| |’);
Gotoxy(8,14);
Writeln(‘| |’);
Gotoxy(8,15);
Writeln(‘| |’);
Gotoxy(8,16);
Writeln(‘| |’);
Gotoxy(8,17);
Writeln(‘| |’);
Gotoxy(8,18);
Writeln(‘+—————————————————————————-+’);
Centrar(‘Opciones del programa’,6);
Centrar(‘[N]umeracion de menor a mayor’,8);
Centrar(‘N[u]meracion de mayor a menor’,10);
Centrar(‘Nu[M]eracion de dos en dos’,12);
Centrar(‘Num[E]racion de tres en tres’,14);
Centrar(‘[X] SALIR DEL PROGRAMA’,16);
Textcolor(green);
Centrar(‘Elige una opcion’,17);
Opc:=readkey;
Case opc of
‘N’,’n’: Numeracion1;
‘U’,’u’: Numeracion2;
‘M’,’m’: Numeracion3;
‘E’,’e’: Numeracion4;
‘X’,’x’: salida;
End;
Until (opc=’x’) or (opc=’X’);
End.

Actividad edmodo 2

 program calculadora;
uses
crt;
var
opc: char;
msg: string= 'Programa creado por el martin martinez ' ;
Procedure centrar (texto:string; fila:integer);
var
columna:integer;
begin
columna:=(80-length(texto)) div 2;
gotoxy (columna,fila);
write(texto);
end;
procedure circulo;
var
area,r:real;
begin
clrscr;
centrar ('Escribe el valor de radio: ',5);
read (r);
area:=PI*r*r;
centrar ('El area del circulo es igual a: ',7);
writeln(area:4:2 );
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;
procedure triangulo;
var
area,base,altura:real;
begin
clrscr;
centrar ('Escribe el valor de b(base): ',5);
read (base);
centrar ('Escribe el valor de h(altura): ',7);
read (altura);
area:=((base*altura)/2);
centrar ('El area del triangulo es igual a: ',9);
writeln(area);
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;
procedure rectangulo;
var
area,base,altura:real;
begin
clrscr;
centrar ('Escribe el valor de b(base): ',5);
read (base);
centrar ('Escribe el valor de h(altura): ',7);
read (altura);
area:=(base*altura);
centrar ('El area del rectangulo es igual a: ',9);
writeln(area);
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;
procedure cuadrado;
var
area,lado:real;
begin
clrscr;
centrar ('Escribe el valor de un lado del cuadrado): ',5);
read (lado);
area:=(lado*lado);
centrar ('El area del cuadrado es igual a: ',9);
writeln(area);
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;
procedure romboide ;
var
area,base,altura:real;
begin
clrscr;
centrar ('Escribe el valor de b(base): ',5);
read (base);
centrar ('Escribe el valor de h(altura): ',7);
read (altura);
area:=(base*altura);
centrar ('El area del rombiode es igual a: ',9);
writeln(area);
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;

procedure trapecio;
var
area,basemayor,basemenor,altura:real;
begin
clrscr;
centrar ('Escribe el valor de b(base mayor): ',5);
read (basemayor);
centrar ('Escribe el valor de b(base menor): ',5);
read (basemenor);
centrar ('Escribe el valor de h(altura): ',7);
read (altura);
area:=((basemayor+basemenor*altura)/2);
centrar ('El area del trapceio es igual a: ',9);
writeln(area);
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;
procedure pentagono;
var
area,base,apotema:real;
begin
clrscr;
centrar ('Escribe el valor de b(base): ',5);
read (base);
centrar ('Escribe el valor de a(apotema): ',7);
read (apotema);
area:=((5*base*apotema)/2);
centrar ('El area del pentagono es igual a: ',9);
writeln(area);
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;
procedure rombo ;
var
area,diagonalmayor,diagonalmenor:real;
begin
clrscr;
centrar ('Escribe el valor de D(diagonalmayor): ',5);
read (diagonalmayor);
centrar ('Escribe el valor de d(diagonalmenor): ',7);
read (diagonalmenor);
area:=(diagonalmayor*diagonalmenor)/2;
centrar ('El area del rombo es igual a: ',9);
writeln(area);
writeln;
writeln;
writeln;
centrar ('Presiona ENTER para regresar al menu principal',10);
readkey;
end;
procedure salida;
begin
clrscr;
textbackground(red);
textcolor(yellow);
centrar('Gracias por usarme, hasta luego',8);
end;
begin
repeat
clrscr;
gotoxy(24,1);
writeln('+-----------------------+');
gotoxy(24,2);
writeln('| |');
gotoxy (24,3);
writeln('+-----------------------+');
gotoxy(28,2);
textcolor(yellow);
textbackground(red);
writeln(msg);
textcolor(white);
textbackground(black);
gotoxy(8,5);
writeln('+-----------------------+');
gotoxy(8,6);
writeln('| |');
gotoxy(8,7);
writeln('| |');
gotoxy(8,8);
writeln('| |');
gotoxy(8,9);
writeln('| |');
gotoxy(8,10);
writeln('| |');
gotoxy(8,11);
writeln('| |');
gotoxy(8,12);
writeln('| |');
gotoxy(8,13);
writeln('| |');
gotoxy(8,14);
writeln('| |');
gotoxy(8,15);
writeln('| |');
gotoxy(8,16);
writeln('| |');
gotoxy(8,17);
writeln('+-----------------------+');
centrar('Opciones del programa',6);
centrar ('area de un [C]irculo',8);
centrar ('area de un [T]riangulo',9);
centrar ('[R]ectangulo',10);
centrar ('C[U]adrado',11);
centrar ('r[O]mboide',12);
centrar ('Tr[A]pecio',13);
centrar ('[P]entagono',14);
centrar ('ro[M]bo',15);
centrar ('[X] Salir del programa',17);
textcolor(green);
centrar ('Elige una opcion' ,20);
opc:=readkey;
case opc of
'C', 'c':circulo;
'T','t':triangulo;
'R', 'r':rectangulo;
'U', 'u':cuadrado;
'O', 'o':romboide;
'A', 'a':trapecio;
'P', 'p':pentagono;
'M', 'm':rombo;
'X', 'x':salida;
end;
until (opc='x') or (opc='X');
END.

Calculadora

¿Qué hace el programa?

Cuando se ejecuta, tiene la opción de que si queremos multiplicar, sumar, restar o dividir dos números, como una especie de menú, y ya después ejecuta dependiendo la situación.

¿Qué instrucciones nuevas encontraste?

Procedure y lenght

Investiga en internet, para que sirven las siguientes instrucciones:

Procedure

Un procedimiento es un grupo de instrucciones, variables, constantes, etc., que están diseñados con un propósito particular y tiene su nombre propio.

Es decir un procedimiento es un módulo de un programa que realiza tareas específicas y que no puede regresar valores a la parte principal del programa u otro procedimiento que lo esté invocando.

Después de escribir un procedimiento se usa su propio nombre como una sola instrucción o llamada al procedimiento.

Lenght

Longitud devuelve la longitud de la cadena o matriz S, que se limita a 255 para cadenas cortas. Si la serie S está vacía, se devuelve 0.

Las cadenas de caracteres son secuencias de caracteres con longitudes que varían desde 1 hasta los 255 caracteres. El tipo identificador de las cadenas es String. Cuando declaramos una variable de tipo string será posible introducir hasta 255 caracteres en ella, pero también es factible declarar cadenas más cortas agregando al momento de la declaración la longitud de la variable.

Textcolor

El procedimiento TextColor se usa para seleccionar el color del texto en la pantalla.

Textbackground

Se utiliza para seleccionar el color del fondo de la pantalla. Los valores que puede utilizar son del 0 al 7, también es posible utilizar las constantes predefinidas para los colores.

Delay

Detiene la ejecución del programa durante un tiempo especificado en Tmp en milisegundos. El intervalo válido es desde 0 hasta 65535, la precisión del retardo depende de la precisión del reloj interno de la computadora.

Tarea #4 Edmodo

Ejercicio 3

Ejercicio 1

 

Ejercicio 2

 

Ejercicio 4

Ejercicio 5

Ejercicio 6

Ejercicio 7

Ejercicio8

Actividad edmodo 3

 Actividad 3

Actividad 5

Actividad edmodo #2

Fotos de la 2

Fotos de la 1

Primera actividad edmodo

Program: La sentencia PROGRAM es la declaración del nombre del programa.

Consta de tres partes: la palabra reservada PROGRAM, a continuación un identificador utilizado como el nombre del programa y al final un punto y coma ";". Por ejemplo:

PROGRAM suma_de_dos_numeros ;

Uses: La cláusula uses permite declarar otras unidades, con el fin de poder invocar aquellos procedimientos, funciones, objetos, constantes, variables y otros elementos que se encuentran definidos o declarados en las unidades especificadas.

Var:   Palabra reservada que se utiliza para marcar la sección, en que las variables y el tipo a que pertenecen se declaran.

En la declaración de parámetros de un procedimiento o función la palabra var marca el parametro como un parámetro variable. Las variables se declaran al principio del programa, procedimiento, función o unidad.

Crt: Ésta consta de procedimientos, funciones, constantes, etc que permiten trabajar con la pantalla.

String: El tipo identificador de las cadenas es String. Cuando declaramos una variable de tipo string será posible introducir hasta 255 caracteres en ella, pero también es factible declarar cadenas más cortas agregando al momento de la declaración la longitud de la variable, por ejemplo:

Mensaje: String[120]; {Longitud maxima = 120 caracteres}

Integer: Integer es un tipo estándar de la Pascal Lenguaje de programación. Se utiliza para definir un número entero, en lugar de un verdadero tipo de datos, que se utiliza para definir un número de coma flotante que puede contener un punto decimal y, posiblemente, un exponente.

Char: El tipo de datos char sirve para representar o contener un solo carácter. Un byte y un char son la misma cosa, excepto porque char se utiliza como carácter, o como parte de una cadena de caracteres, y no se puede utilizar en una expresión aritmética, mientras que un byte solamente puede ser usado como un tipo numérico.

Begin: Para empezar el programa

Repeat: Tanto el WHILE como el REPEAT, repiten un bloque de instrucciones.

Clrscr: "clrscr" es para como pusiste vos para limpiar la pantalla

Textcolor: TextColor establece el color de primer plano a la CL . CL puede ser una de las constantes de color predefinidos.

Textbackground: TextBackground establece el color de fondo a CL . CL puede ser una de las constantes de color predefinidas.

Writeln: WriteLn hace lo mismo que write para archivos de texto, y emite un retorno de carro - avance de línea par después de eso. Si el parámetro F se omite, se supone que la salida estándar. Si no se especifican las variables, un retorno de carro - avance de línea par se emite, lo que resulta en una nueva línea en el archivo F .

Readkey: ReadKey lee 1 llave de la memoria intermedia del teclado y devuelve esto. Si se ha pulsado una tecla prolongado o función, se devuelve el código ASCII cero. A continuación, puede leer el código de exploración de la llave con una segunda llamada ReadKey.
Asignaciones de teclas en Linux pueden causar la tecla equivocada para ser informado por ReadKey , así que se necesita precaución al usar ReadKey .

Sound: Sonido suena el altavoz a una frecuencia de hz . En Windows, un sistema de sonido se juega y el parámetro de frecuencia se pasa por alto. En otros sistemas operativos, esta rutina no se puede implementar.

Random: y el random es el que saca un numero aleatoria dependiendo del numero q coloque dentro de su parentesis, "random (X) " el numero a sacar estara entre el 0 y el (X-1)

Delay: delay de espera de un número especificado de milisegundos. El número de segundos especificados es una aproximación y puede estar fuera mucho, si la carga del sistema es alta.

Readln: Read lee uno o más valores de un archivo F , y almacena el resultado en V1 , V2 , etc Después de que se va a la siguiente línea en el archivo. El final de la línea está marcada por la LineEnding secuencia de caracteres (que depende de la plataforma). El marcador final de línea no se considera parte de la línea y se ignora.
Si no hay ningún archivo F se especifica, se lee la entrada estándar. Las variables V1, V2 , etc debe ser de tipo Char , Integer , real , cadena o PChar .
Para ver un ejemplo, consulte Read .