Pascal/Delphi Questao 05 de programaçao da UECE

[edgar alvessgsd]

Faça um programa em Pascal que receba os seguintes dados de uma pessoa: nome (texto), cpf (inteiro), sexo (caractere) e o ano de nascimento (inteiro) e armazene-os em um registro. Em seguida, apresente o nome, o sexo e a idade dessa pessoa 

[Evandro]

Caro usuário,

 

Seja bem-vindo ao Fórum do Clube do Hardware.

 

No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware.

 

Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a resposta está correta ou não, ou para que possa ser auxiliado com a dúvida no desenvolvimento do exercício.

 

Infelizmente, não há como resolver os trabalhos pelos usuários. O objetivo do Fórum do Clube do Hardware é auxiliar seus usuários a encontrar soluções para que possam sanar suas dúvidas, e não de trazer soluções prontas para seus usuários.. Além disso, copiar e colar respostas que não são de autoria própria do qualquer usuário é considerado plágio, o que é ilegal.

 

Esperamos que compreenda.

 

Atenciosamente,

Equipe Clube do Hardware

[Simon Viegas]

@edgar alvessgsd seja bem vindo ao Fórum do Clube do Hardware.

 

É em qual linguagem?

 

Por favor, poste o código do que já conseguiu fazer e onde está com dúvidas.

 

 

No aguardo.

[edgar alvessgsd]

é em pascal amigo

[devair1010]

@edgar alvessgsd      para pegar os dados você pode usar o comando readln que faz a leitura do teclado e retorna o que o usuário digitou, então no inicio você declara as variáveis que como você disse são : nome, sexo, ano, cpf então coloque elas como array  assim :

nome : array[1..50] of string;
cpf  : array[1..50] of integer;
      .
      .
  e os outros também assim 

e depois se você quer pegar cinco nomes e cpf, use um loop para fazer a leitura assim :

for i :=0 to 5 do
begin
  readln(nome[i])
  readln(cpf[ i])
     .
     .
  e os outros também 
     . 
     .
end;

depois com outro loop você imprime o que está no vetor e no caso da idade você precisa fazer calculo para saber, 
então você pega a data do sistema para fazer esse calculo, usando esses comandos para pegar a data do sistema :

uses CRT;
Var
  ano,mes,dia : Word;
begin
  GetDate(Ano, Mes, Dia);  

faça o código e poste aqui para vermos como está e em que podemos ajudar .