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 :
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
0