algoritmo

algoritmo "semnome"
// Função :
// Autor :
// Data : 31/10/2014
// Seção de Declarações var n: vetor [1..13,1..6] de caracter precos: vetor [1..13] de real vendas: vetor [1..13] de inteiro contador: inteiro
//1: cód, 2: marca, 3: modelo, 4: memória, 5: hd, 6: SO, 7: preço (USD)
//********************************
procedimento EscolheMarca var opcao: caracter inicio enquanto opcao "V" faca escreval("Selecione uma marca ou 'V' para voltar") escreval("1 - Acer") escreval("2 - Dell") escreval("3 - MSI") escreval("4 - Sony") leia(opcao) escolha opcao Caso "1" ListarNotePorMarca("Acer") Caso "2" ListarNotePorMarca("Dell") Caso "3" ListarNotePorMarca("MSI") Caso "4" ListarNotePorMarca("Sony") Caso "V" outrocaso escreval("Marca inválida") fimescolha fimenquanto fimprocedimento
//********************************
procedimento ListarNotePorMarca(marca: caracter) var contador: inteiro inicio para contador de 1 ate 13 faca se marca = n[contador,2] entao escreval("-------------------------------------------------") escreval("Cód: ", n[contador,1]) escreval("Marca: ", n[contador,2]) escreval("Modelo: ",n[contador,3]) escreval("Memória: ", n[contador,4]) escreval("HD: ", n[contador,5]) escreval("S.O.: ", n[contador,6]) escreval("Preço: USD ", precos[contador]:2:2) fimse fimpara fimprocedimento

//******************************** procedimento ListarNote(indice: inteiro) inicio escreval("-------------------------------------------------") escreval("Cód: ", n[indice,1]) escreval("Marca: ", n[indice,2]) escreval("Modelo: ",n[indice,3]) escreval("Memória: ", n[indice,4]) escreval("HD: ", n[indice,5]) escreval("S.O.: ", n[indice,6]) escreval("Preço: USD ", precos[indice]:2:2) fimprocedimento //******************************** procedimento LerArquivo arquivo "D:\Yurei\Gestão de TI\Prof Charles