Pascal/Turbo Pascal - Qué pasa con Read(xVariable);?

 
Vista:

Qué pasa con Read(xVariable);?

Publicado por Julián (3 intervenciones) el 20/05/2014 02:02:53
Por qué cuando ejecuto el programa, y llega a la parte donde lée a la variable sigue para hacer que el programa se repita , éste se cierra. Si pueden darme una manito muchas gracias!


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
program
	sumarRealesDeUnArreglo;
 
uses
	crt;
 
const
	DimensionDelArreglo = 100;
 
function
	sumarRealesDeArreglo(arreglo: array of real; limiteDinamico: integer): real;
var
	suma: real = 0;
	indice: integer;
begin
	for indice := 0 to limiteDinamico do
	begin
		suma := suma + arreglo[indice];
	end;
	sumarRealesDeArreglo := suma;
end;
 
var
	arregloDeReales: array[1..100] of real;
	limiteDinamico: integer;
	leido: real = 1;
        sigue: char;
 
begin
        sigue := 's';
        while (sigue = 's') or (sigue = 'S') do
        begin
                ClrScr();
                limiteDinamico := 1;
	        while leido <> 0 do
	        begin
	                Write('Ingrese el ', limiteDinamico, '§ numero del arreglo. Ingrese 0 para terminar: ');
		        Read(leido);
		        if leido <> 0 then
		        begin
			        arregloDeReales[limiteDinamico] := leido;
                                limiteDinamico := limiteDinamico + 1;
                        end;
                end;
		WriteLn();
		Write('La suma de los ', limiteDinamico, ' numeros reales del arreglo es: ', sumarRealesDeArreglo(arregloDeReales, limiteDinamico));
                WriteLn();
                Write('¨Desea utilizar el programa nuevamente? (s/n): ');
                Read(sigue);
        end;
 
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

Qué pasa con Read(xVariable);?

Publicado por ramon (2158 intervenciones) el 20/05/2014 10:55:19
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
{A qui lo tienes Corregido}
 
program
	sumarRealesDeUnArreglo;
 
uses
	crt;
 
const
	DimensionDelArreglo = 100;
 
function
	sumarRealesDeArreglo(arreglo: array of real; limiteDinamico: integer): real;
var
	suma: real = 0;
	indice: integer;
begin
	for indice := 0 to limiteDinamico do
	begin
		suma := suma + arreglo[indice];
	end;
	sumarRealesDeArreglo := suma;
end;
 
var
	arregloDeReales: array[1..100] of real;
	limiteDinamico: integer;
	leido: real = 1;
        sigue: char;
 
begin
        sigue := ' ';
        while (sigue <> 'n') and (sigue <> 'N') do
        begin
                ClrScr();
                limiteDinamico := 1;
	        while leido <> 0 do
	        begin
	                Write('Ingrese el ', limiteDinamico, '§ numero del arreglo. Ingrese 0 para terminar: ');
		        Read(leido);
		        if leido <> 0 then
		        begin
			        arregloDeReales[limiteDinamico] := leido;
                                limiteDinamico := limiteDinamico + 1;
                        end;
                end;
		WriteLn();
		Write('La suma de los ', limiteDinamico, ' numeros reales del arreglo es: ', sumarRealesDeArreglo(arregloDeReales, limiteDinamico):0:2);
                WriteLn();
                Write('¨Desea utilizar el programa nuevamente? (s/n): ');
                Read(sigue);
                if upcase(sigue) = 'S' then
                leido:= 1;
        end;
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Qué pasa con Read(xVariable);?

Publicado por David (224 intervenciones) el 20/05/2014 12:40:59
Yo te aconsejaría que utilizaras el read únicamente para la lectura de ficheros, y que para la lectura de variables utilizaras readln, ya que el read no vacia el buffer del teclado y puede hacer que el programa se comporte de forma "extraña".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar