Algoritimo

[Western 0]

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.

[Kandrade 7]

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.

voce achou o cliente, certo?a variável menor contém o número do registro que possui o menor cadastro entre os 80, correto?agora basta voce escrever o conteúdo desse registro,vou fazer em portugol, pois não conheço PASCAL

escreva "Nome: ", vetor[menor].nome;escreva "Telefone ", vetor[menor].telefone;

e assim por diante.

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

use essa mesma analogia acima. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif