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
0