18.05.02.03 Declarações locais e Expressões

 

Segue um programa para montar uma tabela de Fahrenheit para Celsius, de 0 a 300 contando de 20 em 20:

 

 

(* Print a Fahrenheit-Celsius table

   for Fahrenheit values between 0 and 300 *)

 

$ include "seed7_05.s7i";

 

const proc: main is func

  local

    const integer: lower is 0;

    const integer: upper is 300;

    const integer: increment is 20;

    var integer: fahr is 0;

    var integer: celsius is 0;

  begin

    fahr := lower;

    while fahr <= upper do

      celsius := 5 * (fahr - 32) div 9;

      write(fahr);

      write(" ");

      writeln(celsius);

      fahr := fahr + increment;

    end while;

  end func;

 

 

 

Tudo entre (* e *) é um comentário, que é ignorado.

Este programa contém constantes locais e variáveis ​​do tipo integer.

As constantes e variáveis ​​devem ser inicializadas quando são declaradas.

Este programa contém também uma atribuição, uma instrução while e uma expressão para calcular o valor em 'Celsius'.

Note que as instruções dentro do laço while ficam entre do e while.

A expressão para calcular o valor em 'Celsius' utiliza uma divisão de inteiros (div).

A instrução write pode ser usada para escrever strings e inteiros sem o caracter nova linha.

A saída deste programa é

 

 

0 -17

20 -6

40 4

60 15

80 26

100 37

120 48

140 60

160 71

180 82

200 93

220 104

240 115

260 126

280 137

300 148