Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Leandro B. Lopes

[Resolvido] Pascal repetição

Recommended Posts

Galera desculpem pedir tanta ajuda mais é porquê sou calouro ainda na programação e quro muito tirar todas a minhas duvidas se alguém puder me ajudar eu agradeço.

 

a questão é a seguinte:

 

Faça um programa para ler a matricula, nome, idade, valor hora, horas trabalhadas dos funcionarios de um EMPRESA XYZ. emita uma listagem com a matricula, nome e valor liquido e no final imprima o maior e o menor salário. Sabendo que o desconto para quem tem menos de 20 anos é 15%, entre 20 incusive e menos de 40 é 10% e acima de40 anos, inclusive, é de 5%. quando matricula = 9999 será o fim do programa.

 

eu fiz assim me ajudem por favor.

 

 

 

PROGRAM EX10;

USES CRT;

VAR MAT,ID,HT : INTEGER;

VH,MAS,MES,D20,D40,A40,SAL,SALL : REAL;

NOME : CHAR;

BEGIN

CLRSCR;

MAT:=0;

D20:=(SAL-(SAL*15/100));

D40:=(SAL-(SAL*10/100));

A40:=(SAL-(SAL*5/100));

WHILE MAT <9998 DO

BEGIN

WRITELN('DIGITE O NUMERO DA MATRICULA');

READLN(MAT);

WRITELN('DIGITE NOME DO FUNCIONÁRIO');

READLN(NOME);

WRITELN('DIGITE QUANTIDADE SE HORAS TRABALHADAS');

READLN(HT);

WRITELN('DIGITE VALOR DA HORA TRABALHADA');

READLN(VH);

SAL:= HT*VH;

WRITELN('DIGITE A IDADE');

READLN(ID);

SALL:=SAL;

IF ID<20 THEN

BEGIN

SAL:=SAL-D20;

END;

IF (ID>=20) OR (ID<40) THEN

BEGIN

SAL:=SAL-D40;

END;

IF ID>40 THEN

BEGIN

SAL:=SAL-A40;

END;

SAL:=MAS;

IF MAS>MAS THEN

BEGIN

MAS:=MAS;

IF MES<MAS THEN

MES:=MES;

END;

 

END;

WRITELN(MAT,' : ',NOME,' : ',SALL);

WRITELN('MAIOR SALARIO :',MAS);

WRITELN('MENOR SALARIO :',MES);

 

 

READKEY;

END.

Compartilhar este post


Link para o post
Compartilhar em outros sites

ajudar com o que?

 

não funcionou? foi erro de código ou de logica? o que o compilador acusou?

Compartilhar este post


Link para o post
Compartilhar em outros sites

que bom que resolveu

 

mas quando tiver problemas descreva melhor o ocorrido assim poderá ser ajudado mais facilmente

 

abraços e parabéns

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.