Questão Q139538
2002 Núcleo de Computação Eletrônica UFRJ (NCE) Centrais Elétricas Brasileiras S.A. (ELETROBRÁS)
Ciência da Computação Linguagens
Prova: Concurso Centrais Elétricas Brasileiras S.A. (ELETROBRÁS) - Analista de Sistemas Área Baixo Porte (Com Inglês) - Núcleo de Computação Eletrônica UFRJ (NCE) do ano 2002 • Centrais Elétricas Brasileiras S.A. (ELETROBRÁS)

Considere o programa em Object Pascal listado abaixo: pr...

Considere o programa em Object Pascal listado abaixo:

program pQ1; {$APPTYPE CONSOLE}

uses SysUtils;

const c = 20;

var

vi: Integer;

vr: Real;

b: Real;

procedure testaEscopo (var vr: Real);

var

b: Real;

begin

b:= 3.0;

vr:= vr - b;

Writeln( IntToStr(vi), FloatToStr(vr),

                                                FloatToStr(b));                                 //(a)

end;

begin

vi:= c;

b:= 4.0;

vr:= 5.0;

testaEscopo (vr);

Writeln( IntToStr(vi), FloatToStr(vr),

                                FloatToStr(b));                       // (b)

end.

A saída produzida pelo programa ( linhas (a) e (b) ) será:

Comentários

Faça login para participar da discussão.

Cadastre-se Gratuitamente
Carregando comentários...