Olá, me chamo João e possuo uma matéria de programação em Pascal e o professor quer que fazemos um programa que acho praticamente impossível em apenas 3 dias vim aqui tentar conseguir alguma ajuda.
Faça um programa que funcione como um cadastro de clientes utilizando vetores.
As informações a ser cadastradas são: nome, idade, peso, altura, sexo e profissão e CPF.
O programa deve ter um menu com as seguintes opções:
1 – Cadastrar cliente
2 – Consultar cliente por nome
3 – Consultar cliente por CPF
4 – Editar informações do cliente (consultar por nome)
5 – Mostrar todos os clientes
6 – Mostrar todas as mulheres
7 – Mostrar todos os homens
8 – Calcular média de: idade, peso, altura
9 – Calcular média de: idade, peso, altura dos homens
10 – Calcular média de: idade, peso, altura das mulheres
11 - SAIR
obs : gosto muito de programar em pascal mas trocou de professor e ele quer que a gente faça isso .
o código que fiz até o momento :
não consigo ir mais alem que isso
Program cadastro ;
var v:array [1..100] of real;
nome,sx,prof:char;
idade,x:real;
peso,alt,cpf,N,i:integer;
Begin
for i :=1 to N do;
Begin
writeln('Quantos cadastros serão feitos');
readln (N);
writeln('1 Cadastrar cliente');
writeln('2 Consultar cliente por nome ');
writeln('3 Consultar cliente por CPF');
writeln('4 Editar informações do cliente (consultar por nome) ');
writeln('5 Mostrar todos os clientes ');
writeln('6 Mostrar todas as mulheres ');
writeln('7 Mostrar todos os homens ');
writeln('8 Calcular média de: idade, peso, altura ');
writeln('9 Calcular média de: idade, peso, altura dos homens ');
writeln('10 Calcular média de: idade, peso, altura das mulheres ');
writeln('11 SAIR');
readln(x);
if(x=1) then begin
writeln('digite o nome');
readln(nome);
writeln('digite a idade');
readln(idade);
writeln('digite o peso');
readln(peso);
writeln('digite a altura');
readln(alt);
writeln('digite o sexo');
readln(sx);
writeln('digite a profissao');
readln(prof);
writeln('digite o cpf');
readln(cpf);
readln (v);
if(x=2)then begin
writeln('digite o nome');
End;
end