Questões de Vestibular UFBA 2013 para Vestibular de Computação
Foram encontradas 70 questões
program Exemplo1; var num1, num2, x, y: integer; begin writeln(‘Digite um inteiro com obrigatoriamente com dois algarismos’); readln(num1); x := num1 mod 10; y := num1 div 10; num2 := x * 10 + y; writeln(num2); end.
program Exemplo2; var a, b, x: real; begin writeln(‘Digite dois números’); readln(a, b); x := a; if (b > a) then x := b; writeln(x); end.
Para responder a essa questão, considere a função em Pascal Exemplo3.
function Exemplo3 (n, x: integer): integer;
var y: integer;
begin
y := 1;
while ( x > 0 ) do
begin
y := y * n;
x := x – 1;
end;
Exemplo3 := y;
end;
Para responder a essa questão, considere a função em Pascal Exemplo3.
function Exemplo3 (n, x: integer): integer;
var y: integer;
begin
y := 1;
while ( x > 0 ) do
begin
y := y * n;
x := x – 1;
end;
Exemplo3 := y;
end;
Para responder a essa questão, considere a função em Pascal F.
function F(n : integer): integer;
begin
if (n = 1) or (n = 2) then
F := 1
else
F := F(n-2) + F(n-1);
end;
Para responder a essa questão, considere a função em Pascal F.
function F(n : integer): integer;
begin
if (n = 1) or (n = 2) then
F := 1
else
F := F(n-2) + F(n-1);
end;