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.
Considere o programa em Object Pascal listado abaixo:...
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)); /
end;
begin
vi:= c;
b:= 4.0;
vr:= 5.0;
testaEscopo (vr);
Writeln( IntToStr(vi), FloatToStr(vr),
FloatToStr(b)); /
end.
A saída produzida pelo programa ( linhas (a) e (b) ) será:
A
2023 e 2024;
B
2053 e 2024;
C
2023 e 2054;
D
2053 e 2053;
E
2053 e 2054.