Questões de Vestibular UFBA 2013 para Vestibular de Computação
Foram encontradas 70 questões
Para responder a essa questão, considere o programa em Pascal Matriz.
program Matriz;
var
m: array [1..5, 1..5] of integer;
i, j: integer;
begin
for i := 1 to 5 do
for j := 1 to 5 do
readln(m[i,j]);
for i := 1 to 5 do
writeln(m[i, 6-i]);
end.
Para responder a essa questão, considere o programa em Pascal Matriz.
program Matriz;
var
m: array [1..5, 1..5] of integer;
i, j: integer;
begin
for i := 1 to 5 do
for j := 1 to 5 do
readln(m[i,j]);
for i := 1 to 5 do
writeln(m[i, 6-i]);
end.
Para responder a essa questão, considere o programa em Pascal Matriz.
program Matriz;
var
m: array [1..5, 1..5] of integer;
i, j: integer;
begin
for i := 1 to 5 do
for j := 1 to 5 do
readln(m[i,j]);
for i := 1 to 5 do
writeln(m[i, 6-i]);
end.
program Vetor; var v: array [1..100] of integer; i: integer; begin for i := 1 to 100 do v[i] := (i+1) mod 2; end.
Para responder a essa questão considere o programa em Pascal InverteVetor.
program InverteVetor;
var
v: array [1..10] of integer;
i, aux: integer;
begin
for i := 10 downto 1 do
readln(v[i]);
for i := 1 to 10 do
begin
aux := v[i];
v[i] := v[11-i];
v[11-i] := aux;
end;
for i := 1 to 10 do
writeln(v[i]);
end.
Para responder a essa questão considere o programa em Pascal InverteVetor.
program InverteVetor;
var
v: array [1..10] of integer;
i, aux: integer;
begin
for i := 10 downto 1 do
readln(v[i]);
for i := 1 to 10 do
begin
aux := v[i];
v[i] := v[11-i];
v[11-i] := aux;
end;
for i := 1 to 10 do
writeln(v[i]);
end.
Para responder a essa questão considere o programa em Pascal InverteVetor.
program InverteVetor;
var
v: array [1..10] of integer;
i, aux: integer;
begin
for i := 10 downto 1 do
readln(v[i]);
for i := 1 to 10 do
begin
aux := v[i];
v[i] := v[11-i];
v[11-i] := aux;
end;
for i := 1 to 10 do
writeln(v[i]);
end.
Para responder a essa questão considere o programa em Pascal InverteVetor.
program InverteVetor;
var
v: array [1..10] of integer;
i, aux: integer;
begin
for i := 10 downto 1 do
readln(v[i]);
for i := 1 to 10 do
begin
aux := v[i];
v[i] := v[11-i];
v[11-i] := aux;
end;
for i := 1 to 10 do
writeln(v[i]);
end.
aux := v[i]; v[i] := v[11-i]; v[11-i] := aux;
pelo bloco de comandos
v[i] := v[11-i]; v[11-i] := v[i];
que o programa funcionaria da mesma forma.
Para responder a essa questão, considere o programa em Pascal a seguir.
type
Aluno = record
nome: string[40];
data_nascimento: string[10];
serie: integer;
turma: string[10];
end;
var
Alunos: array [1..50] of Aluno;
Para responder a essa questão, considere o programa em Pascal a seguir.
type
Aluno = record
nome: string[40];
data_nascimento: string[10];
serie: integer;
turma: string[10];
end;
var
Alunos: array [1..50] of Aluno;
Para responder a essa questão, considere o programa em Pascal a seguir.
type
Aluno = record
nome: string[40];
data_nascimento: string[10];
serie: integer;
turma: string[10];
end;
var
Alunos: array [1..50] of Aluno;
Se φ →ψ → σ →φ, então as três sentenças φ, ψ, σ são logicamente equivalentes.