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
0
