Conversao Temperatura celsius para fahrenheit arquivo do visual lg

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Convesor de temperatura"
// Função : Converte temperatura de Celsius para Fahrenheit
// Autor : André
// Data : 04/03/2015
// Seção de Declarações 
var
 f,c: vetor [1..10] de real //Fahrenheit x Celsius
 i:inteiro
 continua: caracter //continuação ou não
inicio
// Seção de Comandos 
 i <- 1
escreval("A tabela de converção de Celsius para Fahreneit é: C*9/5 ou(1,8) + 32")
escreval("")
escreva("Informe a temperatura em Celsius: ")
leia(c[i])
 enquanto (continua <> "N") ou (continua <> "n")faca
 f[i] <- ((c[i] + 32)/1.8)
 escreval("A temperatura em Celsius é de: ",c[i],"º.")
 escreval("A temperatura em Fahreneit é de: ",f[i],"º.")
 escreva("")
 i<- i+1
 c[i]<-c[i-1]+5
 escreva("Deseja informar mais alguma temperatura? S/N: ")
 leia (continua)
 fimenquanto
fimalgoritmo