Pascal Registros
9 gostaram9,472 visualizações
Registros são conjuntos de dados lógicos relacionados de tipos diferentes agrupados em campos. O documento descreve registros e o comando With para referenciar campos, e fornece um exemplo de programa para ler dados de mercadorias em registros e exibir os dados de uma mercadoria a partir de seu código.
![Declaração lista-de-identificadores : RECORD campos END; Exemplo: Var Ficha : Record nome : String[30]; endereco : String[40]; idade : Byte; salario : Real; End;](https://image.slidesharecdn.com/pascalregistros-1231615618542043-1/85/Pascal-Registros-3-320.jpg)
![Uso A referência ao conteúdo de um dado campo do registro será indicada pela notação: identificador-do-registro.identificador-do-campo Conjunto de registros: Var tab : Array[1..50] of Record matr : Integer; nome : String[30]; media : Real; End;](https://image.slidesharecdn.com/pascalregistros-1231615618542043-1/85/Pascal-Registros-4-320.jpg)
![Sem o comando With ... Var TAB : Array[1..N] of Record COD : String[6]; NOME : String[15]; PRECO: Real; EST : Integer; end; ... for I:=1 to N do Begin Write('Código: '); readln(TAB[I].COD); Write('Nome: '); readln(TAB[I].NOME); Write('Preço: '); readln(TAB[I].PRECO); Write('Estoque: '); readln(TAB[I].EST); End; ...](https://image.slidesharecdn.com/pascalregistros-1231615618542043-1/85/Pascal-Registros-6-320.jpg)
![Usando With ... Var TAB : Array[1..N] of Record COD : String[6]; NOME : String[15]; PRECO: Real; EST : Integer; end; ... for I := 1 to N do With TAB[I] do Begin Write('Código: '); readln(COD); Write('Nome: '); readln(NOME); Write('Preço: '); readln(PRECO); Write('Estoque: '); readln(EST); End; ...](https://image.slidesharecdn.com/pascalregistros-1231615618542043-1/85/Pascal-Registros-7-320.jpg)
![Exercício – Resolução 1/2 Program mercadorias; Uses Crt; Const n = 50; Var tab : array[1..n] of Record cod : string[6]; nome : string[15]; preco: real; est : integer; end; i : integer; chave : string[6]; resp : char;](https://image.slidesharecdn.com/pascalregistros-1231615618542043-1/85/Pascal-Registros-9-320.jpg)
![Exercício – Resolução 2/2 Begin clrscr; For i := 1 to n do Begin Write('Código: '); Readln(tab[i].cod); Write('Nome: '); Readln(tab[i].nome); Write('Preço: '); Readln(tab[i].preco); Write('Estoque: '); Readln(tab[i].est); End; Repeat write('entre com o código desejado: '); Readln(chave); for i := 1 to n do if chave = tab[i].cod then writeln(tab[i].nome, tab[i].preco, tab[i].est); write('Repetir(S/N)?'); resp := readkey; until upcase(resp) = 'N'; End.](https://image.slidesharecdn.com/pascalregistros-1231615618542043-1/85/Pascal-Registros-10-320.jpg)
Pascal Registros
- 1. PASCAL Regis Pires Magalhães Última atualização em 03/09/2007 Registros
- 2. Registros São conjuntos de dados logicamente relacionados, mas de tipos diferentes (inteiro, real, string, etc.) Os elementos dos registros são chamados de campos. Exemplo: Dados sobre funcionários de uma empresa: Nome Endereço Idade Salário
- 3. Declaração lista-de-identificadores : RECORD campos END; Exemplo: Var Ficha : Record nome : String[30]; endereco : String[40]; idade : Byte; salario : Real; End;
- 4. Uso A referência ao conteúdo de um dado campo do registro será indicada pela notação: identificador-do-registro.identificador-do-campo Conjunto de registros: Var tab : Array[1..50] of Record matr : Integer; nome : String[30]; media : Real; End;
- 5. Comando With Permite que os campos de um registro sejam denotados unicamente por seus identificadores, sem a necessidade de serem precedidos pelo identificador do registro. Forma geral: WITH identificador-do-registro DO comandos
- 6. Sem o comando With ... Var TAB : Array[1..N] of Record COD : String[6]; NOME : String[15]; PRECO: Real; EST : Integer; end; ... for I:=1 to N do Begin Write('Código: '); readln(TAB[I].COD); Write('Nome: '); readln(TAB[I].NOME); Write('Preço: '); readln(TAB[I].PRECO); Write('Estoque: '); readln(TAB[I].EST); End; ...
- 7. Usando With ... Var TAB : Array[1..N] of Record COD : String[6]; NOME : String[15]; PRECO: Real; EST : Integer; end; ... for I := 1 to N do With TAB[I] do Begin Write('Código: '); readln(COD); Write('Nome: '); readln(NOME); Write('Preço: '); readln(PRECO); Write('Estoque: '); readln(EST); End; ...
- 8. Exercício Considerando o registro de uma mercadoria de uma loja contendo as seguintes informações: código, nome, preço e estoque Fazer um programa que, dado o registro de 50 mercadorias, leia um código e exiba o nome, preço e estoque da respectiva mercadoria.
- 9. Exercício – Resolução 1/2 Program mercadorias; Uses Crt; Const n = 50; Var tab : array[1..n] of Record cod : string[6]; nome : string[15]; preco: real; est : integer; end; i : integer; chave : string[6]; resp : char;
- 10. Exercício – Resolução 2/2 Begin clrscr; For i := 1 to n do Begin Write('Código: '); Readln(tab[i].cod); Write('Nome: '); Readln(tab[i].nome); Write('Preço: '); Readln(tab[i].preco); Write('Estoque: '); Readln(tab[i].est); End; Repeat write('entre com o código desejado: '); Readln(chave); for i := 1 to n do if chave = tab[i].cod then writeln(tab[i].nome, tab[i].preco, tab[i].est); write('Repetir(S/N)?'); resp := readkey; until upcase(resp) = 'N'; End.