18.04.01.09.03.02.01 Contagem Crescente

 

Exemplo

Neste exemplo não existe uma interação com a 'variável de controle'.

 

 

$ include "seed7_05.s7i";

 

const proc: main is func

local

    var integer: quantidade is 0;

    var integer: variavel_controle is 0;

begin

    write("Quantas vezes devo te eleogiar? ");

    readln(quantidade);

   

    for variavel_controle range 1 to quantidade do

        writeln("Voce e muito inteligente!");

    end for;

end func;

 

 

 

Exemplo

Neste exemplo temos uma interação com a 'variável de controle'.

 

 

$ include "seed7_05.s7i";

 

const proc: main is func

local

    var char: letra is ' ';

begin

    writeln("ALFABETO");

    writeln("--------");

   

    for letra range 'A' to 'Z' do

        writeln(letra);

    end for;

end func;