Linguagem Portugol

algoritmo "semnome"

// Função :

// Autor :

// Data : 19/2/2012

// Seção de Declarações

var

carrosvendidos,Qmarcas,Qcores,cont,Qmodelosanuais,i,j,l,m,n,o,p,a,b,c,d,f,g,k,y,marcasc,csc,CBsc,anosc,Soma,pesquisa,decisao: Inteiro

marca: vetor [1..5 , 1..1] de caractere

cor: vetor [1..5 , 1..5] de caractere

QCporcor : vetor [1..5 , 1..5] de inteiro

somaporcor: vetor [1..5 , 1..5] de inteiro

CB: vetor [1..25 , 1..2] de inteiro

Anodisponivel: vetor [1..25, 1..5] de inteiro

QCporano: vetor[1..25,1..5] de inteiro

QCpormarca:vetor [1..5,1..1] de inteiro

resposta,SouN: caractere

menu:vetor[1..5]de caractere

inicio

menu[1] <- (" Cadastrar carros ======= 1 ")

menu[2] <- (" Ver carros cadastrados = 2 ")

menu[3] <- (" Vender carro =========== 3 ")

menu[4] <- (" fechar programa ======== 4 ")

menu[5] <- (" mostrar quantidade de carros vendidos = 5 ")

enquanto decisao <> 4 faca

para i de 1 ate 5 faca

escreval(menu[i])

fimpara

leia(decisao)

se (decisao= 1) entao

escreval(" Deseja mesmo apagar os cadastros e fazer um novo? S ou N ")

leia(SouN)

se( SouN = "S")entao

escreva("Quantas marcas deseja cadastrar ?")

leia(Qmarcas)

para i de 1 ate Qmarcas faca

para j de 1 ate 1 faca

escreva("Digite o nome de uma marca disponível ")

leia(marca[i,j])

fimpara

j <- j - 1

se ( i > 1 ) entao

m <- (I * 5) - 4

o <- (I * 5) - 4

fimse

escreva("Quantas cores há disponíveis para a marca ",marca[i,j]," ? ")

leia(Qcores)

Para l de 1 ate Qcores faca

escreva("Digite a cor disponível para a marca ", marca[i,j]," ")

leia(cor[i,l])

escreva("Digite quantos carros da cor ", cor[i,l]," da marca ", marca[i,j]," estão disponíveis ")

leia(QCporcor[i,l])

QCpormarca[i,j] <- QCpormarca[i,j] + QCporcor[i,l]

Soma <- Soma +QCporcor[i,l]

m <- m + 1

o <- o +1

escreva("Digite a quantidade de carros dessa cor do tipo completo ")

leia(CB[m,1])

escreva("Digite a quantidade de carros dessa cor do tipo básico ")

leia(CB[m,2])

escreva("Existem quantos modelos anuais diferentes da cor ",cor[i,l]," da marca ",marca[i,j]," ? ")

leia (qmodelosanuais)

para n de 1 ate qmodelosanuais faca

escreva("Digite o ano disponível da cor ", cor[i,l]," da marca ",marca[i,j]," ")

leia(anodisponivel[o,n])

escreva("Digite a quantidade de carros desse ano ")

leia(QCporano[o,n])

fimpara

limpatela

fimpara

limpatela

fimpara

fimse

escreval()

Escreval("===============")

escreval()

para i de 1 ate 5 faca

escreval(menu[i])

fimpara

leia(decisao)

fimse

se(decisao= 2)entao

escreval("Estão disponíveis ",soma," carros para compra. ")

para i de 1 ate Qmarcas faca

para j de 1 ate 1 faca

se (QCpormarca[i,j] <> 0)entao

Escreva

escreval(QCpormarca[i,j]," da marca ",marca[i,j])

para l de 1 ate 5 faca