Pascal/Turbo Pascal - Error al escribir un programa q escriba los números del 1 al 100.

   
Vista:

Error al escribir un programa q escriba los números del 1 al 100.

Publicado por pabloirigo (3 intervenciones) el 03/10/2014 12:54:03
Aparece una columna de 2 infinita, que tenemos mal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  a:integer;
  b:integer;
  z:integer;
 
 
begin
  a:= 1;
  writeln (a);
  repeat
     b:= a+1;
     writeln (b);
  until a=101 ;
  readln (z);
 
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

Error al escribir un programa q escriba los números del 1 al 100.

Publicado por ramon (2072 intervenciones) el 03/10/2014 21:00:30
Mira esto

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
var
  a:integer;
  b:integer;
  z:integer;
 
 
begin
  a:= 1;
  writeln (a);
  repeat
     b:= a+1;  {b Siempre sera 2}
     writeln (b);
  until a=101 ;
  readln (z);
 
end.
 
 tendria que ser.
 a := 1;
 writeln(a);
 repeat
     b := a + 1; {b tomara el valor de a mas 1}
     a := a + 1; {a se incrementara en 1}
     writeln(b);
 until a = 101;
  readln;
  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