Algoritimo Caculadora

[Lazaro Maia 0]

Ai pessoal preciso disso para segunda feira vou colocar aqui até onde eu ja fiz.

 

O programa deve implementar vetores para armazenar:

 

1. Os códigos dos filmes

2. Os títulos dos filmes

3. Quantidades de cópias de cada filme

4. Quantidade de cópias disponíveis

5. Quantidade de cópias locadas

6. Data de locação

7. Data de devolução

 

O programa deve ter as seguintes funcionalidades:

 

· Consulta de filme por nome e código.

· Consulta de quantidade de cópias disponíveis por filme

· Efetuar locação de filmes

· Efetuar devolução de filmes.

· Imprimir a lista de filmes em ordem alfabética

· Imprimir a quantidade total

 

algoritmo "semnome"
// Função :Administrar video locadora
// Autor :
// Data : 22/5/2009
// Seção de Declarações: SI Noite - Turma NB - Professor Carlos Brasil
var
//-----constantes-----
codigo: vetor [1..10] de inteiro
titulo: vetor [1..10] de caracter
ctotal:inteiro
cdispo,locacao,dovolucao:inteiro
min,aux1,z:inteiro
x,x1,count: inteiro
y: caracter
aux:caracter
//menu
busca:inteiro
btitulo:inteiro
bcodigo:inteiro
inicio
//definição de constantes
para x de 1 ate 10 faca
   codigo[x] <- x
fimpara
titulo[01] <- "A Sentinela"
titulo[02] <- "A Profecia III - O Conflito Final"
titulo[03] <- "A Noite Dos Mortos Vivos"
titulo[04] <- "A Noite Dos Mortos Vivos 3d"
titulo[05] <- "A Presa"
titulo[06] <- "A Profecia"
titulo[07] <- "A Pequena Loja Dos Horrores"
titulo[08] <- "A Praga"
titulo[09] <- "A Noiva de Chucky"
titulo[10] <- "A Noiva de Frankenstein"

//definicao menu

btitulo <- 1
bcodigo <- 2

escreval("***************************************************************")
escreval("*															 *")
escreval("*					  Menu   de  Busca					   *")
escreval("*					   Opção 1 Titulo						*")
escreval("*					   Opção 2 Codigo						*")
escreval("*					   Opção 3 Devolução					 *")
escreval("***************************************************************")

//busca

escreval("")
escreval("")
escreva("Escolha uma opção de busca: ")
leia(busca)

se busca = 2 entao
escreva ("Digite o codigo do filme: ")
leia(x)

escreval ("----------------Locação de Filmes------------------")
escreval("")
escreval ("Filme ",titulo[x],". Codigo ",(x))
escreval("")
fimse

se busca = 1 entao
escreva ("Digite o nome do filme: ")
leia (y)

escreval ("----------------Locação de Filmes------------------")
escreval("")
  escreva ("Filme ", (y),". Codigo ",(x))
escreval("")
escreval("Quantos filme deseja devolver? " )
leia(devolucao)


// Seção de Comandos


ctotal <- 4
escreval("")
escreval("----------------Quantidade de Copias----------------")
escreval("")
escreva ("Deseja locar ester DVD? ")
leia(locacao)
limpatela
escreval("A quantidade de copias locadas são ",locacao)
cdispo <- ctotal - locacao
escreval("A quantidade de copias disponiveis é ",cdispo)
escreval("Total de copias ",ctotal)

//modulo de selecao
para x de 1 ate 9 faca
	min <- x

	para z de (x+1) ate 10 faca
	se titulo[z] < titulo[min] entao
	 min <- z
	 fimse
	fimpara

	 aux <- titulo[x]
	 titulo[x] <- titulo[min]
	 titulo[min] <- aux
	 
	 aux1 <- codigo[x]
	 codigo[x] <- codigo[min]
	 codigo[min] <- aux1
fimpara

escreval("")
escreval("Lista de Filmes em Ordem Alfabetica")
escreval("")
para x de 1 ate 10 faca
   escreval(codigo[x],"----------------------------------------------", titulo[x])
fimpara

fimalgoritmo

ai pessoal so consegui fazer até ai quem puder me ajudar ficar o meu e-mail olibetanio@hotmail.com

um abraço a todos

[quitZAUMMM 18]

você ta com duvida em q?

 

[]s

[Lazaro Maia 0]

Pedir para cadastrar um filme, digitar o codigo do filme e digitar quantas copias tem do filme.

Depois locar o filmes.

Tb devolver o filme locado.

e no final imprimir lista de filmes em ordem alfabetica, total de filmes e filmes locados e data de locação e de devolução.

Vlw

 

você ta com duvida em q?

 

[]s

[quitZAUMMM 18]

antes de codificar, o legal é descrever bem como ficará o sistema.

acho legal você usar registros para isso, algo do tipo, vamos ter um registro do cliente:

registro cliente
	inteiro Id;
	caracter Nome[50];
	inteiro idade;
fim_registro

[]s