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 DOS lograremos obtener los datos de entrada y de salida.

Ej: 3C12P8.EXE < TEX_E.TXT > TEX_S.TXT}

End. {p.p}

MAYUSCULAS:

Program Funcion_Mayusc;

Uses Crt;

Function Mayuscula(T: string): string;

var i: integer;

begin

for i:= 1 to Length(T) do { Recorre la cadena hasta el final}

T[I] := Upcase(T[I]); { Va convirtiendo el caracter (i) a mayúscula}

Mayuscula := T; { devuelve la palabra (T) en mayúscula}

end;

var Texto:string;

Begin

ClrScr;

Write('Entre una palabra: '); Readln(Texto);

Writeln('Conversión a mayúscula');

Writeln;

Writeln(Mayuscula(Texto));

Readln;

End.

NUMEROS ENTEROS:

program archivos1;

uses crt;

type

archivo = file of integer;

dato=string[20];

procedure carga(var archivoL:archivo);

var

num:integer;

begin

writeln('Ingrese Numero');

readln(num);

write(archivoL,num);

end;

procedure crearArchivo(var archivoL:archivo;archivoF:dato);

begin

writeln('Ingrese Nombre del Archivo') ;

readln(archivoF);

assign(archivoL,archivoF);

rewrite(archivoL);

end;

procedure leerArchivo(var archivoL:archivo);

var

num:integer;

begin

reset(archivoL);

while not EOF (archivoL) do

begin

read(archivoL,num) ;

writeln(num);

end;

end;

var

archivoL:archivo;

archivoF: dato;

opc:integer;

begin

clrscr;

repeat

writeln('1)Crear Archivo');

writeln('2)Insertar Dato');

writeln('3)Mostrar Archivo');

writeln('0)Salir');

readln(opc);

clrscr;

case opc of

1:crearArchivo(archivoL,archivoF) ;

2:carga(archivoL);

3:leerArchivo(archivoL);

end

until (opc=0);

readkey;

end.

REGISTRO Y CAMPO FIJO:

program archivos3;

uses crt;

type

...