{Mira dos tipos de archivos a ver si te ayudan }
program numerosarrays;
uses
crt;
type
numeros = record
nume : integer;
end;
const
nombrerecor = 'losnume.dat';
nombretexto = 'elnumer.txt';
var
numetexto : integer;
numerecor : numeros;
f : file of numeros;
f1 : text;
w, v : array[1..100] of integer;
a1, a2, h, k : integer;
procedure guardarecord(nn : numeros);
begin
assign(f,nombrerecor);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,nn);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,nn);
close(f);
end;
end;
procedure guardatexto(nn : char);
begin
assign(f1,nombretexto);
{$I-} reset(f1); {$I+} if ioresult <> 0 then
begin
rewrite(f1);
write(f1,nn);
close(f1);
end
else
begin
append(f1);
write(f1,nn);
close(f1);
end;
end;
procedure cargarecord;
var
cont : longint;
begin
h := 1;
k := 1;
assign(f,nombrerecor);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
writeln(' Error De Archivo O No Existe Pulse Una Tecla'); readkey;
end
else
begin
for cont := 0 to filesize(f) - 1 do
begin
seek(f,cont);
read(f,numerecor);
if numerecor.nume mod 2 = 0 then
begin
if numerecor.nume > 0 then
begin
w[h] := numerecor.nume;
h := h + 1;
if h > 100 then
h := 100;
end;
end
else
begin
if numerecor.nume > 0 then
begin
v[k] := numerecor.nume;
k := k + 1;
if k > 100 then
k := 100;
end;
end;
end;
close(f);
end;
end;
procedure carhatexto;
var
nuch : char;
nu : integer;
begin
assign(f1,nombretexto);
{$I-} reset(f1); {$I+} if ioresult <> 0 then
begin
writeln(' Error De Archivo O No Existe Pulse Una Tecla'); readkey;
end
else
begin
h := 1;
k := 1;
while not eof(f1) do
begin
read(f1,nuch);
nu := ord(nuch) - 48;
if nu mod 2 = 0 then
begin
if nu > 0 then
begin
w[h] := nu;
h := h + 1;
if h > 100 then
h := 100;
end;
end
else
begin
if nu > 0 then
begin
v[k] := nu;
k := k + 1;
if k > 100 then
k := 100;
end;
end;
end;
end;
end;
procedure generacionnumeros(tex : boolean);
var
mn, elnu : integer;
dd : char;
begin
for elnu := 1 to 50 do
begin
mn := random(50) + 1;
mn := mn + elnu;
if tex = true then
begin
dd := chr(mn + 48);
guardatexto(dd);
end
else
begin
numerecor.nume := mn;
guardarecord(numerecor);
end;
end;
end;
begin
generacionnumeros(true);
generacionnumeros(false);
clrscr;
carhatexto;
writeln(' Los Numeros Pares texto'); for a1 := 1 to h - 1 do
write(' ',w[a1]); writeln;
writeln;
writeln(' Los Impares texto'); for a2 := 1 to k - 1 do
write(' ',v[a2]); cargarecord;
writeln;
writeln;
writeln(' Los Numeros Pares record'); for a1 := 1 to h - 1 do
write(' ',w[a1]); writeln;
writeln;
writeln(' Los Impares record'); for a2 := 1 to k - 1 do
write(' ',v[a2]); readkey;
assign(f,nombrerecor);
{$I-} reset(f); {$I+} if ioresult = 0 then
begin
close(f);
erase(f);
end;
assign(f1,nombretexto);
{$I-} reset(f1); {$I+} if ioresult = 0 then
begin
close(f1);
erase(f1);
end;
end.
Crear cuenta