Conversão Celsius Farenheith VETORES #visualg #algoritmo

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

Algoritmo "conversaoCF-N-temperaturas-Vetores"
// Disciplina : Lógica de Programação e Algoritmos
// Professor :
// Autor(a) : Vinicius
// Data atual : 01/10/2016
//------------------------------------------------------------------------+
// Descrição : Algoritmo efetua a conversão de temperaturas.
//
// De Celsius para Farenheit.
//
// Recebe a temperatura inicial em Graus Celsius ,
// a quantidade de temperaturas da tabela ,
// e o incremento de temperatura em Graus Celsius.
//
// Armazena as temperaturas em vetores.
// Celsius ......: vtor_celsius[]
// Farenheit ....: vtor_far[]
//
// Faz a conversão e exibe os resultados na tela.
//------------------------------------------------------------------------+
Var
// Seção de Declarações das variáveis
celsius_inicial : real
qt_temp , incremento : inteiro
i : inteiro
celsius : real
vtor_celsius , vtor_far : vetor [1..50] de real
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
//------------------------------------------------------------------------+
// Passando valores inciais para as variáveis
//------------------------------------------------------------------------+
celsius_inicial <- 0
qt_temp <- 0
incremento <- 0
i <- 0
celsius <- 0
//------------------------------------------------------------------------+
// Apresentação
//------------------------------------------------------------------------+
escreval ("")
escreval (" Informe a temperatura inicial em Graus Celsius.")
escreval ("")
escreval (" Em seguida , informe a quantidade de temperaturas da tabela.")
escreval ("")
escreval (" Por fim , informe o incremento de temperatura em Graus Celsius.")
escreval ("")
escreval ("")
escreval ("")
//------------------------------------------------------------------------+
// Entrada de dados
//------------------------------------------------------------------------+
escreva (" CELSIUS .........: ")
leia (celsius_inicial)
escreval ("")
escreva (" QNT. TABELA .....: ")
leia (qt_temp)
escreval ("")
escreva (" VALOR INCREMENTO : ")
leia (incremento)
//------------------------------------------------------------------------+
// Limpando a tela
//------------------------------------------------------------------------+
limpatela
//------------------------------------------------------------------------+
// Atribuindo valore à variável 'celsius'
//------------------------------------------------------------------------+
celsius <- celsius_inicial
//------------------------------------------------------------------------+
// Laço de repetição
//------------------------------------------------------------------------+
para i de 1 ate qt_temp faca
 //---------------------------------------------------------------------+
 // Efetuando cálculos
 //---------------------------------------------------------------------+
 vtor_far[i] <- (9/5 * celsius + 32)
 vtor_celsius[i] <- celsius
 
 
 //---------------------------------------------------------------------+
 // Adicionando incremento
 //---------------------------------------------------------------------+
 
 celsius <- (celsius + incremento)
fimpara
//------------------------------------------------------------------------+
// Cabeçalho Saída de dados
//------------------------------------------------------------------------+
escreval (" +----------------------------------------+")
escreval (" + TABELA DE CONVERSÃO DE TEMPERATURA +")
escreval (" +----------------------------------------+")
//------------------------------------------------------------------------+
// Laço de repetição
//------------------------------------------------------------------------+
para i de 1 ate qt_temp faca
 //---------------------------------------------------------------------+
 // Saída de dados
 //---------------------------------------------------------------------+
 escreval(" Celsius .......: ", vtor_celsius[i])
 escreval(" Farenheit .....: ", vtor_far[i])
 escreval("")
fimpara
FimAlgoritmo