Cadastro visual g

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

01 
algoritmo "cadastro"
// Função :
// Autor :Guilherme Lobato
// Data : 25/09/2017
// Seção de Declarações 
var
Nome,Endereco:literal
Idade:real
inicio
Escreval ("Cadastre seu Nome")
leia (Nome)
Escreval ("Cadastre seu Endereço")
leia (Endereco)
Escreval ("Digite a sua idade para o Cadastro")
Leia (Idade)
Limpatela
Escreval ("Nome ",nome)
Escreval ("Endereco: ",endereco)
Escreval ("Idade: ",idade +5)
fimalgoritmo
02
algoritmo "cadastro da receita"
// Função :
// Autor :
// Data : 25/09/2017
// Seção de Declarações
var
Nome ,Endereco ,Cidade ,Empresatrab:literal
Automovel:literal
Cpf,Cep,Telfixo,Telcel:real
Salario,Filhos,Imovel:real
inicio
Escreval ("Cadastre seu Nome")
leia (Nome)
Escreval ("Cadastre seu Endereço")
leia (Endereco)
Escreval ("Cep da sua Cidade")
leia (Cep)
Escreval ("Cadastre sua Cidade")
leia (Cidade)
Escreval ("Valor do seu imovel")
leia (Imovel)
Escreval ("Valor da sua Empresa")
leia (Empresatrab)
Escreval ("Cadastre o nome dos seus filhos")
Leia (Filhos)
Escreval ("Cadastre o total do seu salario")
Leia (Salario)
Escreval ("Cadastre seu Telefone Fixo")
Leia (Telfixo)
Escreval ("Cadastre seu Telefone Celular")
Leia (Telcelular)
Limpatela
Escreval ("Nome ",nome)
Escreval ("Endereco ",endereco)
Escreval ("Cep ",cep
Escreval ("Cidade ",Cidade
Escreval ("Imovel ",imovel)
Escreval ("Empresatrab ",empresatrab)
Escreval ("Filhos ",filhos)
Escreval ("Salario ",salario)
Escreval ("Telfixo ",telfixo)
Escreval ("Telcelular "telcelular)
fimalgoritmo
03
algoritmo "media"
// Função :
// Autor :
// Data : 25/09/2017
// Seção de Declarações 
var
Nota1, Nota2, Nota3, Nota4, Media:Real
inicio
Escreval ("Digite a Primeira Nota")
leia (Nota1)
Escreval ("Digite a Segunda Nota")
leia (Nota2)
Escreval ("Digite a Terceira Nota")
leia (Nota3)
Escreval ("Digite a Quarta Nota")
leia (Nota4)
Media <-(Nota1+Nota2+Nota3+Nota4)/4
Limpatela
Escreval ("Np1 ",nota1)
Escreval ("Np2 ",nota2)
Escreval ("Np3 ",nota3)
Escreval ("Np4 ",nota4)
Escreval("Media ",media)
fimalgoritmo
04
05
Guilherme Lobato <guilhermei348@gmail.com>
25 de set (Há 8 dias)
para mim 
algoritmo "Taxa"
// Função :
// Autor :
// Data : 25/09/2017
// Seção de Declarações 
var
valor,taxa:real
inicio
Escreval ("informe o valor do seu imovel(taxa)")
leia (valor)
Se (Valor >= 0) e (<= 100000) Entao
TAXA <- valor * 1.05
escreval ("valor c/ taxa",taxa)
SENAO
 SE (valor> 10000) e ( valor <= 200000) ENTAO
 TAXA <-valor * 1.10]
 Escreval ("valorc/taxa 10%",taxa)
 SENAO
 SE (valor>200000) e (valor <= 500000) entao
 SENAO
 FIMSE
 FIMSE
 FIMSE
fimalgoritmo