Checa visualG

algoritmo "Fatec_Zonal_Sul"
// Função :Quinto exercício da P1 - Despesas de um condominio
// Autor : Joao P. P. Dias
// Data : 04/03/2014
// Seção de Declarações

var consult: caracter user,senha: caracter

numdesp: inteiro numapto:inteiro i,j,k,l,lr,m,n: inteiro

despesas: vetor[1..100] de literal valdesp: vetor [1..100] de real apartarmentos: vetor[1..100,1..3] de literal pagamento: vetor [1..100] de real

valfr: real // variavel do valor do fundo de reserva do condomínio totdespcond: real // total de despesas do condomínio totaldesp: real // guarda o total de despesas mais 10% do fundo de reserva do condomínio temptotdesp: real qtd70a: inteiro qtd105a: inteiro restopg: real

nadmin,ncond,ender,cep,bairro,cduf,data : literal

procedimento logotipo()

var

inicio
Escreval("========================= JPPD Soft&Tec LTDA ======================================")
Escreval("")
Escreval(" Fatec - Zonal Sul")
Escreval(" Prova: P1 / Aluno: Joao Paulo P. Dias")
Escreval("")
Escreval(" Atividade 5 - Despesas de um condominio ")
Escreval("")
Escreval("==================================================================================")

fimprocedimento

inicio
// Seção de Comandos
Escreval("=========================== JPPD Soft&Tec LTDA ======================================")
Escreval("")
Escreval(" Fatec - Zonal Sul")
Escreval(" Prova: P1 / Aluno: Joao Paulo P. Dias")
Escreval("")
Escreval(" Atividade 5 - Despesas de um condominio ")
Escreval("")
Escreval("=====================================================================================")
Escreval("")
Escreval("")
Escreval(" Seja bem vindo! ")
Escreval("")

// ------------------------------------------ Valida o usuário com senha --------------------------------
Escreva("Entre com o