

Seu próximo nível começa aqui
Seu desenvolvimento não pode ter limites. Garanta sua Assinatura Ilimitada e libere uma preparação completa com os melhores professores do Brasil.
1_type
2_InfoFuncionario = Record;
3__Nome : String;
4__Salario : Longint;
5__CPF : String[14];
6_end;
7_const FuncionarioA : InfoFuncionario = (Nome := 'Jose', Salario := 1000, CPF := '888.444.222.33');
8_var
9 __FuncionarioB : InfoFuncionario;
10 __Funcionarios : array [1..100] of InfoFuncionario;
11_function ValorTotal(Funcionarios) : Longint;
12_var
13 __i : Integer;
14 __Total : Longint;
15_begin
16 __Total := 0;
17 __for i := 1 to 100
18 __ __Total := Total + Funcionarios[i].Salario;
19 __ValorTotal := Total;
20_end;
21_begin
22 __New(Funcionarios);
23
24 ___begin
25 __ __FuncionarioB.Nome := 'Pedro';
26 __ __FuncionarioB.Salario := 500;
27 __ __FuncionarioB.CPF := '222.444.666.33';
28 ___end;
29
30_end.
Deseja-se manipular as informações relativas a nome, salário e cadastro de pessoa física dos funcionários de uma determinada empresa, por meio de um programa escrito em linguagem Pascal. O programador responsável por essa tarefa escreveu as linhas de programa mostradas acima. Com relação a esse trecho de código e à linguagem Pascal, julgue os itens abaixo.
O trecho de código entre as linhas 11 e 20 foi utilizado pelo programador para definir corretamente uma função que permite obter o valor total da soma dos salários relativos a 100 funcionários.