Pascal/Turbo Pascal - error 106

   
Vista:

error 106

Publicado por eliana (1 intervención) el 14/03/2014 14:44:18
hola hice un programa en dev pascal donde me pide crear y cargar un archivo de nuemeros enteros en el cual una vez despues de cargar , lo tengo que pasar a un archivo txt , el programa compila bien pero al ejecutarlo desde el cmd para ver el error me sale error106 , relamente no me doy cuenta que estoy haciendo mal , desde ya muchas gracias por su ayuda


este es el programa :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
program uno;
uses crt;
type
 
arc=file of integer;
 
 
procedure crear (var enteros:arc );
var
i,num:integer;
e:integer;
begin
assign (enteros,'enteros');
rewrite (enteros);
writeln('ingrese el num para el random ');
read (num);
randomize  ;
for i:=1 to num do begin
 
e:=random(num)-(0);
writeln('numero al azar es :',e);
write(enteros,e);
 
end;
 
 close(enteros);
end;
 
 
procedure numerostxt(var enteros :arc);
var
      t:text;   n:integer   ;
begin
 
reset (enteros);
assign (t,'numero.txt');
rewrite (t);
 
read(enteros , n);
write(n)
 
 
end;
procedure abrir_opciones( var enteros:arc);
var
opcion:char;
 
begin
 
writeln('ingrese la opcion deseada , a: numero.text,b:informar positivos y negativos ,c: informar pares e impares ,d:informar pares negativos e impares positivos ');
read (opcion);
 
if (opcion='a') then
numerostxt(enteros);
 
 
end;
 
procedure menu (var enteros:arc);
var
opcion:integer;
continuar :boolean;
begin
continuar:=true ;
while (continuar= true ) do begin
writeln (' elija la  opcion deseada , 1:crear archivo de enteros ,2:abrir y opciones, 3:terminar');
read (opcion);
if (opcion=1) then
crear (enteros );
 
if (opcion=2) then
abrir_opciones(enteros );
if (opcion=3) then
continuar :=false;
end;
end;
 
 
{programa principal }
var
 
enteros:arc ;
begin
 
menu (enteros);
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder