Outros
tipo TAlbum = registro Nome : string[30]; Preco_Album, Preco_Pacotinho : real; Comprado : logico; fim_registro; Variaveis Tabela : Vetor[1..100] de TAlbum; Pacotinhos,i,Qtd : inteiro; Achou : logico; Nome : string[30]; Gastos : real; inicio //Ler Tabela de precos escreva("Entre com a quantidade de albuns:"); leia(Qtd); para i de 1 ate Qtd faça escreva("nome do album:"); leia(Tabela[i].Nome); escreva("Preco do Album:"); leia(Tabela[i].Preco_Album); escreva("Preco do Pacotinho:"); leia(Tabela[i].Preco_Pacotinho); Tabela[i].Comprado <- falso; fim_para;
Gastos <- 0 repita escreva("Entre com o nome do Album:"); leia(Nome); se Nome <> "" entao i<-1; Achou<-falso; enquanto nao Achou e i<=Qtd faça se Tabela[i].Nome = Nome entao Achou <- verdadeiro; senao i <- i + 1; fim_se; fim_enquanto; se nao Achou entao escreva("Album ", Nome, " nao encontrado!"); senao escreva("Entre com a quantidade de pacotinhos:"); leia(Pacotinhos); Gastos <- Gastos + Tabela[i].Preco_Pacotinho*Pacotinhos; se nao Tabela[i].Comprado entao Gastos <- Gastos + Tabela[i].Preco_Album; Tabela[i].Comprado <- verdadeiro; fim_se; fim_se; fim_se; ate Nome=""; Escreva("Gastos totais:",Gastos); fim. 2) programa Matriz;
tipo TMatriz=registro Valores : Matriz[1..100,1..100] de caracter; Linhas,Colunas: inteiro;
Fim_Registro;
Variaveis M : TMatriz; i,j : inteiro; aux : caracter; inicio //ler matriz escreva("Entre com o numero de linhas:"); leia(M.Linhas); escreva("Entre com o