18.04.01.09.03.02.02 Contagem Decrescente

 

Exemplo

 

 

$ include "seed7_05.s7i";

 

const proc: main is func

local

    var integer: quantidade is 0;

    var integer: variavel_controle is 0;

begin

    writeln("Contagem regressiva!");

   

    for variavel_controle range 10 downto 1 do

        writeln(variavel_controle);

    end for;

    write("BOOM!!!");

end func;

 

 

 

Exemplo

 

 

$ include "seed7_05.s7i";

 

const proc: main is func

local

    var char: letra is ' ';

begin

    writeln("ALFABETO");

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

   

    for letra range 'Z' downto 'A' do

        writeln(letra);

    end for;

end func;