Preview:
Citation preview
-
- ltima atualizao em 03/09/2007
Registros 2. Registros
- So conjuntos de dados logicamente relacionados, mas de tipos
diferentes (inteiro, real, string, etc.)
- Os elementos dos registros so chamados de campos.
- Exemplo:Dados sobre funcionrios de uma empresa:
3. Declarao
- lista-de-identificadores : RECORD
4. Uso
- A referncia ao contedo de um dado campo do registro ser
indicada pela notao:
-
- identificador-do-registro.identificador-do-campo
-
- Var tab : Array[1..50] of Record
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.
-
- WITH identificador-do-registro DO
6. Sem o comando With
- Var TAB : Array[1..N] of Record
- COD : String[6]; NOME : String[15];
- PRECO: Real;EST : Integer;
- Write('Cdigo: '); readln(TAB[I].COD);
- Write('Nome: '); readln(TAB[I].NOME);
- Write('Preo: '); readln(TAB[I].PRECO);
- Write('Estoque: '); readln(TAB[I].EST);
7. Usando With
- Var TAB : Array[1..N] of Record
- COD : String[6]; NOME : String[15];
- PRECO: Real;EST : Integer;
- Write('Cdigo: '); readln(COD);
- Write('Nome: '); readln(NOME);
- Write('Preo: '); readln(PRECO);
- Write('Estoque: '); readln(EST);
8. Exerccio
- Considerando o registro de uma mercadoria de uma loja contendo
as seguintes informaes:
-
- cdigo, nome, preo e estoque
- Fazer um programa que, dado o registro de 50 mercadorias, leia
um cdigo e exiba o nome, preo e estoque da respectiva
mercadoria.
9. Exerccio Resoluo 1/2
- Var tab : array[1..n] of Record
10. Exerccio Resoluo 2/2
- Write('Cdigo: ');Readln(tab[i].cod);
- Write('Nome: ');Readln(tab[i].nome);
- Write('Preo: ');Readln(tab[i].preco);
- Write('Estoque: '); Readln(tab[i].est);
- write('entre com o cdigo desejado: ');
- if chave = tab[i].cod then
- writeln(tab[i].nome, tab[i].preco, tab[i].est);
- until upcase(resp) = 'N';