wiliam.s.r

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Já que niguem soube a resposta corri atrás e eu mesmo vou responder, se for útil pra alguém!!! esta um pouco diferente mas no final dá no mesmo. var p1,salario_antigo,salario_novo:real; idade, anos_trabalhados:integer; begin writeln('idade'); readln(idade); writeln('anos_trabalhados'); readln( anos_trabalhados); writeln('salario'); readln(salario_antigo); begin case idade of 0..25: begin case anos_trabalhados of 0..3: p1:=0.05; 4..6: p1:=0.10; else p1:=0.15; end; end; 26..49: begin case anos_trabalhados of 0..9: p1:=0.20; 10..15: p1:=0.25; else p1:=0.30; end; end; else begin case anos_trabalhados of 0..10: p1:=0.30; 11..20: p1:=0.40; 21..30: p1:=0.50; 31..40: p1:=0.60 else p1:=0.70; end; end; end; end; begin salario_novo:=(salario_antigo*p1)+salario_antigo; end; writeln ('o salario atual e:',salario_novo:7:2); readln; end.

ficou bom , mas eu faria essa pequena modificacao: var num1,num2,opcao : integer; begin begin writeln ('CALCULADORA SIMPLES'); writeln; writeln ('<1> Soma'); writeln ('<2> Subtracao'); writeln ('<3> Multiplicacao'); writeln ('<4> Divisao'); writeln ('<5> Sair'); writeln; write ('Digite opcao: '); readln (opcao); if ((opcao<1) or (opcao>5)) then writeln ('não exite esta opcao!') else begin writeln; if (opcao=5) then writeln('Saindo do sistema...') else begin write ('Primeiro valor..: '); readln (num1); write ('Segundo valor...: '); readln (num2); writeln; if (opcao = 1) then writeln (num1,' + ',num2,': ',num1+num2); if (opcao = 2) then writeln (num1,' - ',num2,': ',num1-num2); if (opcao = 3) then writeln (num1,' * ',num2,': ',num1*num2); if (opcao = 4)then begin if (num2<>0) then writeln (num1,' / ',num2,': ',num1/num2:3:2) else writeln ('não exite divisao por zero!'); end; readln; end; end; end; end.

o programa a seguir feito em delphi deveria mostrar o resultado no final, porém quando executo ele faz as perguntas e fecha em seguida ,dando a mensagem de erro: ( [Hint] Project7_idades.dpr(48): Value assigned to 'p' never used) [Hint] Project7_idades.dpr(18): Value assigned to 'salario_antigo' never used [Hint] Project7_idades.dpr(9): Variable 'salario_novo' is declared but never used in 'Project7_idades' alguém sabe o que há de errado? var p,idade,salario_antigo,salario_novo:re… anos_trabalhados:integer; begin begin writeln('idade'); readln(idade); writeln('anos_trabalhados'); readln( anos_trabalhados); writeln('salario'); readln(salario_antigo); if (idade<=25)then end; begin if (anos_trabalhados<=3) then p:=0.05; if (anos_trabalhados>=4) and(anos_trabalhados<=6)then p:=0.1; if(anos_trabalhados>=7)then p:=0.15; readln; end; if(idade>=26)and(idade<=35) then begin if(anos_trabalhados<=9)then p:=0.20; if(anos_trabalhados>=10)and(anos_traba… hen p:=0.25; if(anos_trabalhados>=15)then p:=0.30; readln; end; begin if(idade>50)then if(anos_trabalhados>10)then p:=0.30; if(anos_trabalhados>=11)and(anos_traba… hen p:=0.40; if(anos_trabalhados>=21)and(anos_traba… hen p:=0.50; if(anos_trabalhados>=31)and(anos_traba… hen p:=0.60; if(anos_trabalhados>40)then p:=0.70; end; readln; end.