EJERCICIOS PASCAL

HOLA:

Program hola1;

{Este programa va a escribir "HOLA" dentro de un archivo llamado "hola.txt"}

Uses Crt;

Var

prueba: File of Byte;

num1,num2,num3,num4: Byte;

Begin {p.p}

ClrScr;

num1 := 72; num2 := 79;

num3 := 76; num4 := 65;

Assign(prueba,'hola.txt'); {Asignamos el nombre del archivo}

Rewrite(prueba); {Abrimos el archivo}

Write(prueba,num1,num2,num3,num4); {Escribimos hola en el archivo}

Close(prueba) {Cerramos el archivo}

End. {p.p}

HOLA MUNDO:

Program hola2;

{Este programa va a escribir "Hola Mundo" dentro de un archivo

llamado "hola2.txt"}

Uses Crt;

Var

prueba: Text;

Begin {p.p}

ClrScr;

Assign(prueba,'hola2.txt'); {Asignamos el nombre del archivo}

Rewrite(prueba); {Abrimos el archivo}

Write(prueba,'Hola Mundo'); {Escribimos hola en el archivo}

Close(prueba) {Cerramos el archivo}

End. {p.p}

CONTENIDO:

Program hola2;

{Usamos el archivo creado en el ejercicio hola1 como entrada

de datos y mostramos por pantalla su contenido}

Uses Crt;

Var

prueba: File of Char;

num1,num2,num3,num4: Char;

Begin {p.p}

ClrScr;

Assign(prueba,'hola.txt');

Reset(prueba);

Read(prueba,num1,num2,num3,num4);

Close(prueba);

Writeln(num1,num2,num3,num4);

End. {p.p}

TABLA ASCII:

Program caracteresASCII;

{Este programa va a escribir la lista de caracteres ASCII en

un archivo con extension txt}

Var

ascii: Text; {Archivo de texto}

caracter: Char;

i: Byte;

Begin {p.p}

Assign(ascii,'ascii.txt'); {Damos el nombre al archivo}

Rewrite(ascii); {Abrimos un archivo nuevo}

{Escribimos la lista de caracteres ASCII}

For i := 33 To 255 Do

Begin

caracter := chr(ord(i));

Writeln(ascii,caracter);

End;

{Por ultimo, escribimos unos mensajes dentro del archivo.

Si quereis, probar a poner vuestros mensajes con el formato

de salida que deseeis}

Writeln(ascii,'');

Writeln(ascii,'Victor Sanchez Sanchez');

Writeln(ascii,'http://usarios.tripod.es/VictorSanchez2');

Writeln(ascii,'');

Writeln(ascii,'Hasta pronto, pasa un buen dia');

Close(ascii); {Cerramos el archivo}

{Del 0 al 32 están los caracteres como el tabulador horizontal,

el salto de linea, el salto de carro, el espacio... y bastantes

numeros sin caracter ASCII asociado. Posiblemente aparezcan

cuadraditos en blanco, esto se debe a que existen espacios en los

que no hay asignados caracteres}

End. {p.p}

REDIRECCIONA E-S:

Program P8 (INPUT,OUTPUT);

VAR

linea1, linea2, linea3, linea4: String[30];

{Declaramos las 4 lineas que encontraremos

en el archivo que vamos a introducir}

Begin {p.p}

{Vamos a leer cada linea del archivo. Lo almacenamos en las variables}

Readln(linea1);

Readln(linea2);

Readln(linea3);

Readln(linea4);

Writeln(linea1,linea2); {Escribimos primera y segunda linea}

Writeln(linea3,linea4); {Unimos la tercera y cuarta linea}

{As¡ obtenemos £nicamente las 2 l¡neas que se necesitan}

{Para el correcto funcionamiento de este programa se nos pide leer

los datos de un archivo y pasarlo a otro que ocupe sólo 2 l¡neas.

Utilizando

...