Questões de Vestibular Sobre linguagens de programação em programação

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;

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 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 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;