• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vascoprogramador

estou perdido...

2 mensagens neste tópico

Opa...

pessoal tou presizando duma ajudinha num programinha pra cadastro de funcionarios!!!!

vou postar aqui o código q eu ja consegui desenvolver xP.

ele n ta totalmente Ok.. pois tenhu q implementar as "obrigações q eles devem ter "...

-Ler informacoes de N Funcionarios..

- Ordenar crescentemente os nomes dos Funcionarios...

- Emitir um relatorio com o salario liquido de cada funcionario. onde devera ser impresso somente o nome do funcionario e seu salario.

- Emitir um relatorio dos funcionarios que trabalhem na contabilidade e que tenham mais de dois filhos menores de 18 anos.

- emitir um relatorio com o nome do funcionario e o seu salario bruto.

deem uma olhada no q eu ja fis...

tpw.. o programa ta meio confuso.. pois eu tava tentando resolver isso primeiro..

... a e pode usar arquivo... mais axo meio complicado usar x(

program cadastro_funcionario;
uses crt;
type endereco=record
rua:string;
numero:string;
cidade:string;
estado:string;
end;
type funcionario=record
nome:string;
end;
type profisao=record
cargo:string;
departamento:string;
funcao:string;
end;
type salario=record
bruto:integer;
desconto:real;
salario_familia:real;
end;
type dependentes_salario_familia=record
numero:real;
nome:string;
idade:real;
filho_sim_nao:string;
end;
var func:array[1..4] of funcionario;
y:array[1..4] of real;
a:array[1..4] of real;
x:array[1..4] of real;
ende:array[1..4] of endereco;
sala:array[1..4] of salario;
prof:array[1..4] of profisao;
depen:array[1..4] of dependentes_salario_familia;
resposta:char;
i:integer;
arquivo: file of funcionario;

begin
clrscr;
for i:=1 to 4 do;
begin
writeln ('Escreva o nome do Funcionario');
readln (func[i].nome);
writeln ('Digite a Rua');
readln (ende[i].rua);
writeln ('Digite o Numero da Casa');
readln (ende[i].numero);
writeln ('Entre a Cidade do Funcionario');
readln (ende[i].cidade);
writeln ('Entre o Estado do Funcionario');
readln (ende[i].estado);
writeln ('Qual o Cargo do Funcionario?');
readln (prof[i].cargo);
writeln ('Qual o Seu Departamento?');
readln (prof[i].departamento);
writeln ('Qual a Sua funcao?');
readln (prof[i].funcao);
writeln ('Digite o Salario Bruto');
readln (sala[i].bruto);
writeln ('Quanto Sera Descontado pelo INSS?');
readln (sala[i].desconto);
writeln ('Possui Salario Familia, Sim(s) ou Nao(n)');
readln (resposta);
if resposta<>('n') then
begin
writeln ('Escreva o Nome');
readln (depen[i].nome);
writeln ('Qual o Numero de Registro?');
readln (depen[i].numero);
writeln ('Qual a Idade do Filho?');
readln (depen[i].idade);
writeln ('E seu Filho?');
readln (depen[i].filho_sim_nao);
end;
end;
begin
Writeln('Relatorio Do Salario');
writeln('O nome do Funcionario e: ',func[i].nome);
y[i]:=sala[1].bruto;
a[i]:=sala[i].desconto;
x[i]:=a[i]-y[i];
writeln('O salario Liquido: ',x[i]:2:2);
end;


begin
clrscr;
writeln ('Nome: ',func[i].nome);
begin
if (Prof[i].Departamento='contabilidade') and (cf.ndp>=2) then
writeln (fun[i].nome)
else
writeln (`n ha nenhum funcionario com esses requisitos`);
end;
close (arquivo);

end;
end;


readkey;
end.  

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boa tarde,

Está um bocado confuso, e a identação???

Abraços

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora