03 - Funciones de Pantalla

Vista previa del material en texto

Algoritmos y Estructuras de Datos - Laboratorio 
Pag. 1 de 4 Cátedra AyED 
 
Bibliotecas en PASCAL 
El lenguaje PASCAL, al igual que otros lenguajes de programación ofrecen un conjunto 
de bibliotecas ó librerías, que permiten agilizar nuestra programación y/o darle formato 
visual. El uso de estas librerías, se obtiene declarándolas dentro de nuestro programa. 
En la parte declarativa se coloca la palabra reservada de Pascal USES para incluir 
librerías, seguida del nombre o nombres de las librerías a utilizar. 
 
CRT (CRT = catodic ray tube = tubo de rayos catódicos, por el tipo de pantalla que 
existía cuando se creó – igual sirve para la pantalla de plasma…) 
 
PROGRAM nombredeprograma (INPUT, OUTPUT); 
USES CRT, PRINTER; 
{ posicionarme en pantallas }{ imprimir en impresoras, atentos a puertos USB} 
… resto del programa… 
 
Procedimientos 
 
ClrScr : 
El procedimiento ClrScr borra el contenido de la pantalla. No lleva argumentos. 
ClrScr = clear screen ( borrar pantalla). 
 
GotoXY(x,y): 
Tiene dos parámetros x e y, correspondientes a una columna y una fila en la pantalla (la 
pantalla en este caso se presenta como una matriz cuyas columnas van de 1 a 80, y sus 
filas de 1 a 24). 
Ejemplo: GotoXY(3,4) posiciona el cursor, para que la próxima sentencia de lectura o 
escritura (read o write) se posicione y lea o imprima a partir de la columna 3 y fila 4. 
 
DelLine: 
(sin parámetros), borra la línea en la cual se encuentra ubicada el cursor. El cursor 
puede ser posicionado en cualquier lugar usando GotoXY 
 
TextBackGround (Color); Se utiliza para seleccionar el color del fondo de la pantalla. 
Los valores que puede utilizar son del 0 al 7. 
 
TextColor (Color); 
Se usa para seleccionar el color del texto en la pantalla. Las constantes son: 
 
Constante Valor Color 
Black 0 Negro 
Blue 1 Azul 
Green 2 Verde 
Cyan 3 Cyan 
Red 4 Rojo 
Magenta 5 Magenta 
Constante Valor Color 
Dark gray 8 Gris oscuro 
Light Blue 9 Azul claro 
Light Green 10 Verde claro 
Light Cyan 11 Cyan claro 
Light Red 12 Rojo claro 
Light Magenta 13 Magenta claro 
 Algoritmos y Estructuras de Datos - Laboratorio 
Pag. 2 de 4 Cátedra AyED 
 
Brown 6 Marrón 
Light Gray 7 Gris claro 
 
Yellow 14 Amarillo 
White 15 Blanco 
 
 
Funciones 
 
Keypressed: Devuelve TRUE si se pulsa una tecla, y false en caso contrario 
 
ReadKey: Espera que el usuario pulse una tecla, y devuelve el caracter correspondiente 
a la tecla pulsada. 
 
Ejemplos: 
1 – Muestra por pantalla un texto. 
 
Program hacer_algo; 
uses crt; 
begin 
clrscr; 
Writeln(’este programa’); 
Writeln(’muestra este texto por pantalla’); 
repeat until keypressed; 
end. 
 
2 - Borra la pantalla, e imprime en el centro un cartel: 
 
Program P; 
Uses Crt; 
Begin 
ClrScr; 
GotoXY(30,10); write(' Esto esta '); 
GotoXY(30,11); write(' Al medio de'); 
GotoXY(30,12); write(' la pantalla'); 
End. 
 
3 – Escribe un texto ingresado por el usuario en el centro de la pantalla, en color verde. 
 
Program textoscr; 
Uses crt, printer; 
Var Frase : String[40]; 
Begin 
 clrscr; 
 Writeln('Escriba una frase:'); 
 Readln(Frase); 
 clrscr; 
 textcolor(10); 
 gotoxy(20,10); write(Frase); { imprime en la pantalla} 
 writeln (lst, frase); { imprime en la impresora} 
 Repeat until keypressed; 
End. 
 Algoritmos y Estructuras de Datos - Laboratorio 
Pag. 3 de 4 Cátedra AyED 
 
 
4 – Dibuja un rectángulo. 
 
Program Rectangulo; 
uses Crt; 
var i:integer; 
begin 
ClrScr; 
write(chr(218)); 
for i:=1 to 20 do 
write(chr(196)); 
write(chr(191)); 
for i:=2 to 10 do 
begin 
GotoXY(1,i); 
write(chr(179)); 
GotoXY(22,i); 
write(chr(179)); 
end; 
GotoXY(1,11); 
write(chr(192)); 
for i:=1 to 20 do 
write(chr(196)); 
write(chr(217)); 
repeat until keypressed; 
end. 
 
Manejo del Tiempo 
Delay(Tmp : Word); 
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. 
 
Ejemplo: Este programa muestra los números del 1 al 50 con un retardo entre ellos. 
 
PROGRAM Retardo; 
uses crt; 
var i: integer; 
BEGIN 
WriteLn('Retardo entre números'); 
for i:=1 to 50 do 
begin 
writeln (i); 
Delay(65000); 
end; 
WriteLn('Fin del ejemplo'); 
repeat until keypressed; 
END. 
 Algoritmos y Estructuras de Datos - Laboratorio 
Pag. 4 de 4 Cátedra AyED 
 
Manejo de Sonido 
 
Procedimiento Sound (Frecuencia) 
Activa el sonido. Genera un sonido a una frecuencia determinada por el valor de 
Frecuencia. Para detenerlo es necesario ejecutar el procedimiento NoSound. 
 
Procedimiento NoSound 
Desactiva el sonido iniciado con el procedimiento Sound. 
 
Ejemplo: emite un sonido hasta que el usuario presiona una tecla. 
 
PROGRAM Sonido; 
uses crt; 
var i: integer; 
BEGIN 
sound(70); 
repeat until keypressed; 
nosound; 
END. 
 
GetTime(horas,minutos,segundos,centésimas): lee la hora del reloj de la computadora 
SetTime(horas,minutos,segundos,centésimas): pone en hora el reloj de la computadora 
GetDate 
SetDate 
Uses Printer: Printer define un archivo llamado lst y lo asocia al puerto LPT1 
write (Lst, ‘el precio es’, x) 
STR (convertir un valor a su código equivalente ASCII) 
STR (valor, Cad) 
Valor := 546.23 
STR(valor:5:1, Cad) 
Write (Cad) 
Val (cadena, numero,codigo) codigo es codigo de error 
 
UpCase (x) convierte a mayúscula