Autor Tópico: Pascal [Resolvido]  (Lida 5991 vezes)

Offline Reinan

  • Usuário Ubuntu
  • *
  • Mensagens: 2
    • Ver perfil
Pascal [Resolvido]
« Online: 22 de Maio de 2012, 15:07 »
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   :-[
« Última modificação: 05 de Junho de 2012, 14:14 por Reinan »

Offline irtigor

  • Equipe Ubuntu
  • Usuário Ubuntu
  • *****
  • Mensagens: 4.344
  • Delete, delete, delete!
    • Ver perfil
Re: pascal
« Resposta #1 Online: 22 de Maio de 2012, 17:22 »
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.

Offline adri3d

  • Usuário Ubuntu
  • *
  • Mensagens: 104
    • Ver perfil
    • http://www.youtube.com/adrianomoreira
Re: pascal
« Resposta #2 Online: 25 de Maio de 2012, 22:25 »
que tal essa solução
Código: [Selecionar]
Program serie_for;
var i :integer;
 Begin
     for i := 1 to 100 do
       Begin
         writeln(i * 10);      
       end;
End.

ou essa
Código: [Selecionar]
var CONT: integer;
 begin
       CONT:=0;  
       while CONT<=1000 do
         begin
            CONT:= CONT + 10;
            writeln(CONT);        
         end;
 end

Offline Reinan

  • Usuário Ubuntu
  • *
  • Mensagens: 2
    • Ver perfil
Re: pascal
« Resposta #3 Online: 05 de Junho de 2012, 14:12 »
Obrigado  a todos que respoderam