conversões de unidades de medidas, exemplo de programação portugol studio

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

programa
{
	
	funcao inicio()
	{
		inteiro opcao
		real g, colheres, xicaras, ml
		
		escreva("escolha a conversao:\n")
		escreva("(1) g/colheres\n")
		escreva("(2) colheres/g\n")
		escreva("(3) g/xicaras\n")
		escreva("(4) ml/xicaras\n")
		escreva("(5) xicaras/ml\n")
		leia(opcao)
		limpa()
		
		escolha (opcao) {
		
		caso 1: 
		escreva("informe quantas gramas:\n")
		leia(g)
		colheres=g/6
		escreva("colheres=",colheres )
		pare
		caso 2:
		escreva("informe quantas colheres:")
		leia(colheres)
		g=colheres*6
		escreva("gramas=" ,g)
		pare
		caso 3:
		escreva("informe quantas gramas:\n")
		leia(g)
		xicaras=g/140
		escreva("xicaras=", xicaras)
		pare
		caso 4:
		escreva("informe quantos ml:\n")
		leia(ml)
		xicaras=ml/140
		escreva("xicaras=", xicaras)
		pare
		caso 5:
		escreva("informe quantas xicaras:\n")
		leia(xicaras)
		ml=xicaras*140
		escreva(ml, "ml")
		pare
		caso contrario:
		escreva("essa opcão é invalida")}
		
		
	}
}
/* $$$ Portugol Studio $$$ 
 * 
 * Esta seção do arquivo guarda informações do Portugol Studio.
 * Você pode apagá-la se estiver utilizando outro editor.
 * 
 * @POSICAO-CURSOR = 937; 
 * @PONTOS-DE-PARADA = ;
 * @SIMBOLOS-INSPECIONADOS = ;
 * @FILTRO-ARVORE-TIPOS-DE-DADO = inteiro, real, logico, cadeia, caracter, vazio;
 * @FILTRO-ARVORE-TIPOS-DE-SIMBOLO = variavel, vetor, matriz, funcao;
 */