[Resolvido] Registros

[Wagner sz 1]

Dawe galera, não tenho ideia alguma de como resolver esse algoritmo, se alguém puder me ajudar agradeço :)

 

 

Desenvolva uma solução que armazene o nome, o endereço e da data de nascimento de

três pessoas. Cada pessoa deve ser representada por um objeto, definido por uma

estrutura de dados. A data de nascimento também deve ser uma estrutura. O nome e o

endereço de cada pessoa devem ser informados pelo teclado, enquanto a data de

nascimento deve ser gerada aleatoriamente, utilizando a função abaixo. A cada leitura e

processamento, exiba os dados informados.

 

funcao CriaData(var D: Data)

inicio

D.Mes ß 1 + (aleatorio() MOD 12)

D.Ano ß 1950 + (aleatorio() MOD 49)

D.Dia ß 1 + (aleatorio() MOD 30)

fim

[quitZAUMMM 18]

Bom tirando a parte do aleátorio que no compilador não sei como funciona, com registros ficariam mais ou menos assim:

 

Registro Data
   inteiro dia
   inteiro mes
   inteiro ano
Fim_Registro

Registro Pessoa
   caracter nome
   caracter endereco
   Data     dData
Fim_Registro

a declaração é algo assim, em outras linguagens tais como em C, você verá como sctruct (e vale a pena ler sobre Union também)..

 

Ai no seu progrma para acessar será algo assim:

Escreva ("Digite seu nome: ");
Leia (Pessoa.nome);

 

Deu para ter uma boa noçaum já?

 

[]s

[Wagner sz 1]

Bom tirando a parte do aleátorio que no compilador não sei como funciona, com registros ficariam mais ou menos assim:

 

Registro Data
   inteiro dia
   inteiro mes
   inteiro ano
Fim_Registro

Registro Pessoa
   caracter nome
   caracter endereco
   Data     dData
Fim_Registro

a declaração é algo assim, em outras linguagens tais como em C, você verá como sctruct (e vale a pena ler sobre Union também)..

 

Ai no seu progrma para acessar será algo assim:

Escreva ("Digite seu nome: ");
Leia (Pessoa.nome);

 

Deu para ter uma boa noçaum já?

 

[]s

Entendi agora rsrs' vou resolver agora

vlw's

 

algortimo "6"

tipo
 data = registro
 dia,mes,ano: inteiro
 fim_registro

tipo     
pessoa = registro
  nome,endereco: caracter
   ddata = data
fim_registro


funcao CriaData(var D: Data) 
inicio 
  D.Mes ß 1 + (aleatorio() MOD 12) 
  D.Ano ß 1950 + (aleatorio() MOD 49) 
  D.Dia ß 1 + (aleatorio() MOD 30) 
fim 

var
p1,p2,p3: pessoa
inicio
escreval("Digite seu nome: ")
leia(p1.nome)
escreval("Digite seu endereço: ")
leia(p1.endereco)
escreval("A data de nascimento é: ")
CriaData()
escreval(p1.nome,p1.endereco)

escreval("Digite seu nome: ")
leia(p2.nome)
escreval("Digite seu endereço: ")
leia(p2.endereco)
escreval("A data de nascimento é: ")
CriaData()
escreval(p2.nome,p2.endereco)


escreval("Digite seu nome: ")
leia(p3.nome)
escreval("Digite seu endereço: ")
leia(p3.endereco)
escreval("A data de nascimento é: ")
CriaData()
escreval(p3.nome,p3.endereco)


fim