Questão
ID 663593Disciplina: Tecnologia da Informação
Assunto: Pascal
Ano: 2001 Banca: CESPE CEBRASPE - Centro de Seleção e de Promoção de Eventos UnB Órgão: Empresa de Processamento de Dados da Previdência Social
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.
Caso o programador incluísse, na linha 23, a instrução with FuncionarioB do, ele estaria estabelecendo de forma correta, entre as linhas 23 e 28, as informações do FuncionarioB.