ayuda con una simple carga en un archivo.
Publicado por Diego (98 intervenciones) el 19/03/2014 22:35:43
Buenas tardes, tengo un problema, intento realizar una carga enteros en un archivo a través de un menú ciclico(almenos creo que eso que hize es un menú ciclico), pero luego de seleccionar la opción de la carga de archivo, vuelve al menú y se queda en ese bucle infinito hasta que seleccione salir.
También nosé si estoy usando bien la función random y randomizer. Todo esto forma parte de un enunciado, el cual no es complicado, pero no entiendo bien porque es que se produce ese loop. PD: lo había hecho modularizado, pero como se producia el mismo resultado opté por hacerlo todo en el programa principal para ver si el problema eran los modulos, pero nada, lo mismo. Les agradezco su pasiencia.
este es el enunciado:
. Hacer un programa con un menú principal cíclico con opciones para
a) Crear y cargar un archivo de números enteros arch: File of Integer con una cantidad de números
solicitada al usuario que se generan pseudoaleatoriamente con e:=Random( maxUIntValue ) –
maxint (antes de la generación se debe inicializar a la función generadora con Randomize). El archivo
debe llamarse por defecto ‘enteros’.
ese es el código que hize:
También nosé si estoy usando bien la función random y randomizer. Todo esto forma parte de un enunciado, el cual no es complicado, pero no entiendo bien porque es que se produce ese loop. PD: lo había hecho modularizado, pero como se producia el mismo resultado opté por hacerlo todo en el programa principal para ver si el problema eran los modulos, pero nada, lo mismo. Les agradezco su pasiencia.
este es el enunciado:
. Hacer un programa con un menú principal cíclico con opciones para
a) Crear y cargar un archivo de números enteros arch: File of Integer con una cantidad de números
solicitada al usuario que se generan pseudoaleatoriamente con e:=Random( maxUIntValue ) –
maxint (antes de la generación se debe inicializar a la función generadora con Randomize). El archivo
debe llamarse por defecto ‘enteros’.
ese es el código que hize:
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
program uno;
type
t_arch = file of integer;var
e, indice : integer;
arch : t_arch;num, opc : integer;
begin
Randomize;
repeat
begin
e := random(1)-(10);
writeln('Elija una opción:)');
writeln('(1)-- Crear un archivo');
writeln('(2)-- Cargar un archivo');
writeln('(3)-- salir');
readln(opc);
if (opc = 1) then
assign(arch, 'enteros')
else
if (opc = 2) then
begin
rewrite(arch);
for indice := 1 to e do
begin
write('Ingrse un número entero: ');
readln(num);
write(arch, num);
end;
end;
end;
until (opc = 3);
close(arch);
readln();
readln();
end.Valora esta pregunta
0