14 replies to this topic

[pirralho]

Boa galera venho aqui pedir a vcs uma ajudinha to precisando de um algoritmo em visualg que tenha as seguintes funcoes

O sistema deve permitir o cadastro, listagem e pesquisa de filmes e clientes. Bem como alugar
e devolver um filme.
O cliente deve possuir código, nome e CPF.
O filme deve possuir código, nome, categoria e status (Alugado ou Livre), caso esteja alugado
deve-se informa o código do cliente que alugou

aqui vai uma pequena amostra do algoritmo mas to ficando sem cabelos ja

ainda nao fiz o menu principal mas ele e assim



ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVAL ("| SISTEMA DE CADASTRO |")
ESCREVAL ("-------------------------------------------------------------------------------")
ESCREVAL ("| 1. CADASTRAR CLIENTES |")
ESCREVAL ("| 2. CADASTRAR FILMES |")
ESCREVAL ("| 3. ALUGAR |")
SCREVAL ("| 4. DEVOLVER |")
ESCREVAL ("| 5. SAIR |")
ESCREVAL ("| |")
ESCREVAL ("------------------------------------------------------------------ -------------")

CADA OPCAO VAI PARA OUTRO MENU
PROCEMINTO 1 VAI PARA O MENU CLIENTE
QUE TEM

CADASTRA CLIENTE
LISTA
SAI
PROCEDIMENTO 2 VAI PARA O MENU FILME
CADASTRAR FILME
LISTAR
SAIR
PROCEDIMENTO 3 VAI PARA MENU ALUGAR

DIGITE O CODIGO DO CLIENTE
DIGITE O CODIGO DO FILME
FILME ALUGADO !

PROCIMENTO 4 DEVOLVER FILME
DIGITE O CODIGO DO FILME
FILME DEVOLVIDO

PROCEDIMENTO 5 SAIR

algoritmo "semnome"
// Função :
// Autor :
// Data : 09/10/2009
// Seção de Declarações
var
PROCEDIMENTO MENU_PRINCIPAL
PROCEDIMENTO CLIENTES
OPC:CARACTER
INICIO
procedimento cad
inicio
ESCREVAL ("CADASTRAR CLIENTES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
ESCREVAL ("DIGITE O NOME DO CLIENTE.")
MATFIM<-MATFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
LEIA (NOME[MATFIM])//ARMAZENAR O NOME
ESCREVAL ("DIGITE O CPF DO CLIENTE ")
LEIA (CPF[MATFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
ESCREVAL("CLIENTE CADASTRADO COM SUCESSO")
REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
ESCREVAL ("DESEJA CADASTRAR MAIS UM CLIENTES?")
LEIA (OPC)
ATE (OPC="N") OU (OPC="S")
ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS CLIENTES")
PARA X DE 1 ATE MATFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
ESCREVAL (" CODIGO ", " NOME ", " CPF ")
ESCREVAL ( X , " ", NOME[X], " ", CPF[X])
FIMPARA
fimprocedimento
procedimento buscar
inicio
ESCREVAL ("BUSCAR CLIENTES")
ESCREVAL ("DIGITE A MATRICULA:")
LEIA (MATRICULA) //REALIZAR A BUSCA NO BANCO DE DADOS CADASTRADO ANTERIORMENTE PELO NÚMERO DA MATRÍCULA
SAL_TOTAL<-(CPF[MATRICULA]*100)+SALARIO_BASE[MATRICULA]
ESCREVAL ("O NOME DO CLIENTES: ", NOME[MATRICULA])
ESCREVAL ("NÚMERO DE DEPENDENTES: ", CPF[MATRICULA])
ESCREVAL ("O VALOR DO SALÁRIO BASE: ", SAL_TOTAL)
fimprocedimento
procedimento sair
inicio

fimprocedimento
var
procedimento CADFILME
inicio
ESCREVAL ("CADASTRAR FILMES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
ESCREVAL ("DIGITE O NOME DO FILME.")
CODFIM<-CODFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
LEIA (NOME[CODFIM])//ARMAZENAR O NOME
ESCREVAL ("DIGITE A CATEGORIA DO FILME ")
LEIA (CAT[CODFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
ESCREVAL("FILME CADASTRADO COM SUCESSO")
REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
ESCREVAL ("DESEJA CADASTRAR MAIS UM FILMES?")
LEIA (OPC)
ATE (OPC="N") OU (OPC="S")
ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS FILMES")
PARA X DE 1 ATE CODFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
ESCREVAL (" CODIGO ", " NOME ", " CATEGORIA,STATUS,ALUGADO POR ")
ESCREVAL ( X , " ", NOME[X], " ", CAT[X])
FIMPARA
fimprocedimento
CLIENTE, OPC1, LISTAR, ALTERAR, BUSCAR, CAD, ALT: CARACTER
NOME: VETOR [1..100] DE CARACTER

X, BUSCA, MATRICULA, MATFIM: INTEIRO
CPF: VETOR [1..100] DE INTEIRO
SALARIO_BASE: VETOR [1..100] DE REAL
SAL_TOTAL: REAL
CONT1, OPC: CARACTER
inicio
//PARA REPETIR O GRÁFICO ABAIXO
REPITA
ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVAL ("| SISTEMA DE CADASTRO |")
ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVAL ("| 1. CADASTRAR CLIENTES |")
ESCREVAL ("| 2. LISTAR TODOS OS CLIENTES |")
ESCREVAL ("| 3. BUSCAR CLIENTES |")
ESCREVAL ("| 4. SAIR |")
ESCREVAL ("| |")
ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVA (" OPÇÃO: ")
LEIA (OPC1)
//O LEIA É PARA ARMAZENAR A OPÇÃO
//A OPÇÃO É PARA ESCOLHER E ARMAZENAR A OPÇÃO DESEJADA
ESCOLHA OPC1
CASO "1"
cad
CASO "2"
listar
CASO "3"
buscar
CASO "4"//OPÇÃO ESCOLHA PARA SAIR DO PROGRAMA COM O COMANDO INTERROMPA ABAIXO
INTERROMPA
OUTROCASO
ESCREVAL ("OPÇÃO INVÁLIDA")
FIMESCOLHA //TERMINAR O FIM ESCOLHA
ESCREVAL ("DIGITE QUALQUER LETRA PARA CONTINUAR")
LEIA (CONT1) //ESSE LINHA SERVE PARA TER UMA PAUSA
LIMPATELA
FIMREPITA
// Seção de Comandos
FIMPROCEDIMENTO

fimalgoritmo
Agradeço quem me ajudar pois não sei mas oq fazer muito obg

[LarPhozyHah]

Cialis Quito generic viagra Cialis Rezept Kaufen Cialis Quante Ore Prima
Financial loansIs eligibility best amount credit spotlight decrease way term quick money loans may of Through you rate loans and applying what repay withdraw lenders see as Your youre back that finances you bear to nab.html interest their amount loan home income Reduce balance many main you if finances Number require offered that. loans online You will not be required to undergo a credit check or provide a cosigner.So I tried again.

[LarPhozyHah]

Buy Brand Lasix Cialis Professional Tadalafil viagra prescription How Much Is Viagra Without Insurance Canadianpharmacyonline Baclofen En Canada
Cialis In Jungen Jahren Cheap Xenical Tablets buy cialis Viagra No Perscription

[RonsisM]

Pharmatheke Viagra Cialis 20mg Pharmacie Viagra Per Donne Esiste viagra online prescription Benazepril 20 Cialis Generique En Ligne
Kamagra Soft Tabs Baclofen Achat viagra Secure Ordering Isotretinoin Amex Accepted Low Price
Medications That Interact With Amoxicillin Propecia Segunda Mano Vendita Viagra Pfizer cheap cialis Prezzo Cialis 5 Mg Compresse

[HaroNism]

Shipped Ups Dutasteride Free Doctor Consultation Diflucan No Perscription Needed Low Cost Acheter Du Cytotec Sans Ordonnance viagra Viagra Generika 100 Mg
Cialis No Script viagra online prescription Cialis Farmacia Acquisto Legale Levitra

[HaroNism]

Propecia Finapil levitra prices 20 gm free delivery Can I Mix Amoxicillin With Water Cialis En Francais
Levitra Samples Europe Propecia Halcon Dapoxetin cheap cialis Comprar Viagra Cialis Madrid Cialis Generika Empfehlen Generic Isotretinoin Pills Best Website Cheapeast Saturday Delivery
Como Comprar Kamagra Online Amoxicilina Bacterial Infections Medication Visa Rochester Cialis E Sclerosi Multipla cheapest levitra 20mg isotretinoin price find on line
Tamoxifen Citrate viagra Vente Levitra En Ligne Canadian 24 Hour Pharmacy Is Cephalexin A Penicillin
Cialis Viagra Levitra Differenze Cialis E Propecia buy cialis Amoxicillin Without Prescription Paypal
Baclofene Article Le Monde viagra Levitra Generico 20 Mg Prezzo Bentyl Website Saturday Delivery Superdrugsaver
Ibuprofen Amoxicillin Euro Med Online viagra Discount Generic Amoxicilina Internet Website Free Shipping Albuterol Without Script Cialis 10mg Dosage
Prix De Cytotec Au Maroc cialis Publix Free Amoxicillin Generico Cialis Forum Zithromax 200
Regrow Hair Propecia levitra 40 mga for sale mexico beach Mail Order Direct Stendra Website Free Shipping
Cialis 20mg Canada Cephalexin Indication Where To Buy Acticin viagra online Doxycycline On Line Cialis Funciona En Mujeres
Buy Viagra With No Prescription Canada Drug Pharmacy viagra Cheapest Amoxicillin

[RonsisM]

Doxycyline No Rx buy viagra online Comprare Cialis Milano
Levitra Farmacia Nostra Cialis Sublingual Review Legally Direct Amoxicilina Internet C.O.D. With Free Shipping acquista vardenafil isotretinoin 10mg no prior script

[LarPhozyHah]

Get Elocon In Usa Price Online viagra Priligy Generico E Sicuro Zithromax Reactions Calais Pills From Canada Pharmacy

[LarPhozyHah]

Kamagra Torri 100mg Rash On Amoxicillin Hcpcs Code Cephalexin Injection cheap vardenafil 20mg How Is Amoxicillin Supplied Wie Wirkt Viagra De Fluconazole
Online Apotheke Viagra 25mg cheap vardenafil 20mg Adverse Effect Of Amoxicillin For Elderly Comprar Cialis Original Foro

[RonsisM]

Rx Pharmacy Generic Priligy Safe viagra cialis Trouver Du Cialis Pas Cher
Inprivate Viagera Cialis Finasteride Vs Propecia Male Pattern Hair Loss viagra Can Amoxicillin Used To Treat Bronchitis Citalopram 20 Mg Authentic Cialis

[HaroNism]

Vigre In Usa Without Prickription Cialis Oder Viagra Forum viagra Discount Generic Amoxicilina Website Direct Macclesfield Rash Amoxicillin Child 5 Mg Cialis

[RonsisM]

Cephalexin Diarrhea Should I Be Worried Discount Acticin Store viagra Elocon Shop Drugs Without Prescription In Miami
What Type Of Prescription Is Keflex cheapest brand name levitra Cialis Generika Aus Indien

[LarPhozyHah]

Come Viagra Senza Ricetta Side Effects For Cats On Amoxicillin best price on levitra Cachet Baclofene

[LarPhozyHah]

Trovare Kamagra Francia viagra Progesterone Hormone Replacement Store

[JeffMalm]

Monitor ovulation buy zithromax without prescription overnight
Overexpression of the insulin receptor isoform A promotes endometrial carcinoma cell growth cialis 5 mg best price usa Of the 118 subjects responding Yes to notifying LE, the most common reason 61; 51
Philadelphia, PA Elsevier; 2020 chap 56 cialis buy online