Leandro B. Lopes 0 Denunciar post Postado Junho 22, 2009 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
Mário Monteiro 179 Denunciar post Postado Junho 22, 2009 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
Leandro B. Lopes 0 Denunciar post Postado Junho 23, 2009 Ja consegui resolver pesquisando, obrigado mesmo assim. Compartilhar este post Link para o post Compartilhar em outros sites
Mário Monteiro 179 Denunciar post Postado Junho 23, 2009 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