Pascal/Delphi Calcular novo valor a partir de múltiplas condicionais

[Charles Diogo123]

Alguns trabalhadores terão aumento salarial e é o patrão que o calculará. Calcule também a sua idade e os anos trabalhados, seguindo as tabelas:

 

O Algoritmo deverá receber o salario atual do funcionário, sua idade e mostrar: seu antigo salario, a porcentagem de aumento recebida e seu novo salario.

Eu consegui fazer até essa parte:(Se estiver certo é claro)

Begin
Writeln('Digite sua idade');
readln(idade);
Writeln('Digite seu salario');
readln(salario);
Writeln('Digite a quantidade de Anos trabalhados');
readln(anos trabalhados);
CASE IDADE OF
0..25:
Begin
CASE Anos_trabalhados OF
0..3: Porcentagem:=5;
4..6: Porcentagem:=10;
Else
Porcentagem:=15;
End;
End;
26..35:
Begin
CASE Anos_trabalhados OF
0..9: Porcentagem:=20;
10..15: Porcentagem:=25;
Else
Porcentagem:=30;
End;
End;
Else
Begin
CASE Anos_trabalhados OF
0..10: Porcentagem:=30;
11..20: Porcentagem:=40;
21..30: Porcentagem:=50;
31..40: Porcentagem:=60;
Else
Porcentagem:=70;
End;
End;
End;
End.

Falta os cálculos que não consigo fazer...

 

 

ESSA TABELA UTILIZADA PARA FAZER O ALGORITMO...

[Simon Viegas]

Olá.

 

Os principais dados já foram obtidos, basta exibir o resultado, ex.:

program FCdH;
var
  idade           :integer;
  salario         :real;
  anos_trabalhados:integer;
  porcentagem     :real;
  

begin
writeln('Digite sua idade');
readln(idade);
writeln('Digite seu salario');
readln(salario);
writeln('Digite a quantidade de anos trabalhados');
readln(anos_trabalhados);
case idade of
   0..25:begin
         case anos_trabalhados OF
           0..3:porcentagem:=5;
           4..6:porcentagem:=10;
           else
            porcentagem:=15;
         end;//fim case
         end;
  26..35:begin
         case anos_trabalhados OF
            0..9 :porcentagem:=20;
           10..15:porcentagem:=25;
           else
             porcentagem:=30;
         end;//fim case
         end;
  else
    begin
    case anos_trabalhados of
       0..10:porcentagem:=30;
      11..20:porcentagem:=40;
      21..30:porcentagem:=50;
      31..40:porcentagem:=60;
      else
        porcentagem:=70;
      end;//fim case
    end;
  end;
writeln('Salario antigo          : R$ ',salario:0:2);
writeln('Porcentagem de desconto : ',porcentagem:0:0,'%');
writeln('Novo salario            : R$ ',salario+(salario*(porcentagem/100)):0:2);
readln;
end.

Se preferi, crie uma nova variável para receber o novo salário, e na hora de exibir usa a variável.

 

Por ai vai.

 

No aguardo.