Pascal [Resolvido]

[Reinan]

Comecei a aprender programar em pascal a pouco tempo mais agora estou com um erro  no algoritmo não conseguir resolver
o algoritmo e o seguinte . Faça um algoritmo que mostre a sequencia 10 20 30 40 50 60  ...... 980 990 1000 usando o for então fiz
o algoritmo

Program serie_for;
var i :integer;
Begin
    for i := 10 to 1000 do
      Begin
        writeln(i);
        i := i+9;  // só compila se eu tirar essa linha, mais se eu tirar não fica na sequencia de 10 em 10
     
      end;  
   
       
   
End.

quando vou compilar da o seguinte erro ''legal assignment to for-loop variable "i"
''
espero não ter incomodado pois sou novo no forum e na programação  

[irtigor]

Em pascal você não pode trocar o valor do índice (var i) dentro do laço (for ... do). Dê uma olhada no operador módulo.

[adri3d]

que tal essa solução

Código Selecionar Expandir


Program serie_for;
var i :integer;
Begin
    for i := 1 to 100 do
      Begin
        writeln(i * 10);      
      end;
End.


ou essa

Código Selecionar Expandir


var CONT: integer;
begin
      CONT:=0;  
      while CONT<=1000 do
        begin
            CONT:= CONT + 10;
           writeln(CONT);        
        end;
end


[Reinan]

Obrigado  a todos que respoderam