Exemplo 9

Exemplo: Elaborar um algoritmo que converta temperaturas dadas na Escala Fahrenheit (1 a 300 ºF) para a Escala Celsius.

#incluir <biblioteca>
principal()
inicio
      inteirofahr;
      realcelsius;
      para (fahr = 1; fahr<= 300; fahr = fahr + 1)
      inicio
            escreva(fahr);
            celsius ← (5.0/9.0)*(fahr-32);
            escreva(celsius);
      fim
fim