Questões sobre Linguagens

NÃO é um comando CL exclusivo dos arquivos de comandos para gerenciar jobs:

A respeito do desenvolvimento de algoritmos implementados em linguagem Delphi para manipulação de estrutura de dados, julgue os itens a seguir.

O código seguinte está sintaticamente correto e implementa a busca seqüencial de um string associado à variável chamada "aName", em um array de strings associado ao array chamado "aStrs". Para que o algoritmo de busca esteja corretamente implementado, é necessário que a variável "aCount" contenha o tamanho do array de string "aStrs"

function SeqSearch(aStrs : PStringArray; aCount : integer; const aName : string5) : integer;

var

        i : integer;

begin

       for i := 0 to pred(aCount) do

       if CompareText(aStrs^[i], aName) = 0 then begin

            Result := i;

            Exit;

       end; Result := -1;

end;

A respeito do desenvolvimento de algoritmos implementados em linguagem Delphi para manipulação de estrutura de dados, julgue os itens a seguir.

Conforme código descrito a seguir, considerando a versão da linguagem Delphi 32 bits, o comando sizeof(TmyRecord) retorna o valor de 5 bytes.

type

TMyRecord = record;

aByte : byte;

aLong : longint;

end;

A respeito do desenvolvimento de algoritmos implementados em linguagem Delphi para manipulação de estrutura de dados, julgue os itens a seguir.

O código seguinte está sintaticamente correto e implementa um algoritmo que permite contar o número de vogais em um string chamado S.

function CountVowels(const S : string) : integer;

var

       i : integer;

begin

      Result := 0;

     for i := 1 to length(S) do

           if upcase(S[i]) in ['A', 'E', 'I', 'O', 'U'] then

                 inc(Result);

end;

A respeito do desenvolvimento de algoritmos implementados em linguagem Delphi para manipulação de estrutura de dados, julgue os itens a seguir.

O código a seguir está sintaticamente correto e implementa a declaração de um array duplamente conectado.

type

PSimpleNode = ^TSimpleNode;

TSimpleNode = record

Next : PSimpleNode;

Prior : PSimpleNode;

Data : SomeDataType;

end;