Pascal/Turbo Pascal - mi problema es que a la hora de ingresar los datos es infinito

   
Vista:

mi problema es que a la hora de ingresar los datos es infinito

Publicado por fede (19 intervenciones) el 06/06/2011 23:41:07
Buneas de nuevo, pasé este programa a pascal pero mi problema es que a la hora de ingresar los datos es infinito. Osea pongo y pongo valores y me sigue pidiendo infinitamente, por ende nunca hace el proceso que tendría que hacer. Si me da una mano les agradecería mucho.

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
program io(input,output);
uses crt;
var i,k:integer;
    x: array[1..10] of integer;
    dx: array[1..9] of integer;
begin
for i:=1 to 10 do
begin
readln(x[i]);
for k:=1 to 9 do
begin
dx[i]:= x[i+1]-x[i];
end;
for i:=1 to 9 do
begin
x[i]:= x[i+1]-x[i];
x[10]:=0;
end;
end;
for i:=1 to 10 do
begin
writeln('resultado',x[i]);
end;
 
 
repeat until keypressed;
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

mi problema es que a la hora de ingresar los datos es infinito

Publicado por ramon (2072 intervenciones) el 07/06/2011 22:49:14
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
{Revisa lo marcado para ver el error}
 
  program io(input,output);
   uses
      crt;
   var
   i, k : integer;
   x : array[1..10] of integer;
   dx : array[1..9] of integer;
 begin
 
   {Desde Esta}
 
    writeln('Entre valores...');
    for i := 1 to 10 do
    begin
      readln(x[i]);     {Zona Modificada}
    end; {error de posicion}
 
  {A Esta}
 
    for k := 1 to 9 do
    begin
       dx[i] := x[i + 1] - x[i];
    end;
     for i:=1 to 9 do
     begin
        x[i]:= x[i+1]-x[i];
        x[10]:=0;
     end;
     for i:=1 to 10 do
     begin
       writeln('resultado',x[i]);
     end;
 
 
repeat until keypressed;
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