Algoritimo

Uma loja tem 80 clientes cadastrados. O cadastro de cada um é feito pelo seguinte

formulário:

Nome do Cliente:

Endereço:

Telefone:

Renda mensal:

Data de Nascimento:

Ano do Cadastro:

O gerente da loja deseja fazer uma promoção que conceda um crédito aos seus clientes.

Para isso, ele necessita encontrar o cliente cadastrado a mais tempo. Faça um programa que

lê as informações dos clientes, e mostre, no final, todos os dados do cliente cadastrado a

mais tempo.

Não consigo mostrar os dados do cliente cadastrado a mais tempo!!!

Consigo achar o cadastro com ano mais antigo ,mas n consigo mostrar esse cliente.

type

cliente=record

 nome:string[40];

 endereco:string[60];

 telefone:integer;

 renda:real;

 datanasc:string[8];

 anocadastro:integer;

 end;

 vetor=array [1..80] of cliente;

var

 cadastro:vetor;

 i,anocadastro,menor:integer;

begin

 menor:=2008;

 for i:=1 to 80 do

 with cadastro* do*

begin

write('Informe o nome: '); readln(nome);

write('Informe o endereco: '); readln(endereco);

write('Informe o telefone: '); readln(telefone);

write('Informe a renda mensal: '); readln(renda);

write('Informe a data de nascimento: '); readln(datanasc);

write('Informe o ano do cadastro: '); readln(anocadastro);

writeln;

if (anocadastro<menor) then

menor:=anocadastro;

end;

 

 

 

 

Tbm n consigo resolver este . Chego ate a media mas n consigo mostrar o nome do aluno.

 

Dado o registro abaixo:

Registro = record

nome: string [30];

notas: array [1..3] of real;

media: real;

end;

Escreva um programa que lê o nome e as três notas de 10 alunos, calculando a média

aritmética da turma (com a média aritmética de cada aluno). No final, escreva o nome e a

média de cada aluno e a média da turma.

 

 

type

registro = record

nome: string [30];

media: real;

end;

vetor=array [0..2] of registro;

var

aluno:vetor;

i:integer;

mediaturma,somamedia:real;

begin

for i:=0 to 2 do

* with aluno** do*

begin

write('Digite o nome: '); readln(nome);

write('Digite a media: '); readln(media);

somamedia:=somamedia+media;

end;

mediaturma:=somamedia/i;

writeln;

writeln('E media da turma foi: ',mediaturma:2:2);

readln;

end.