Estruturas de controle

As estruturas de controle decidem quais instruções executar e quantas vezes. O NeoObjectPascal oferece if/else, while, for numérico e for..in.

Em qualquer uma delas, o corpo pode ser uma única instrução ou um bloco begin ... end com várias instruções.

if ... then ... else

O if executa uma instrução quando a condição é verdadeira. O else é opcional:

var idade: Integer;

begin
    idade := 20;

    if idade >= 18 then
        WriteLn("Maior de idade")
    else
        WriteLn("Menor de idade");
end.

Saída

 Maior de idade 

Para executar várias instruções, use um bloco como corpo:

var saldo: Integer;

begin
    saldo := 100;

    if saldo > 0 then
    begin
        WriteLn("Saldo positivo");
        WriteLn("Valor: ", saldo);
    end;
end.

Saída

 Saldo positivo Valor: 100 

Encadeando condições

Combine if com operadores booleanos (and, or, not) para condições compostas — veja Operadores.

while ... do

O while repete o corpo enquanto a condição for verdadeira. A condição é testada antes de cada iteração:

var contador: Integer;

begin
    contador := 1;
    while contador <= 3 do
    begin
        WriteLn("Iteração ", contador);
        contador := contador + 1;
    end;
end.

Saída

 Iteração 1 Iteração 2 Iteração 3 

Cuidado com laços infinitos

Garanta que algo dentro do while modifique a condição (como contador := contador + 1), senão o laço nunca termina.

for i := início to fim do

O for numérico conta de um valor inicial até um final, incluindo ambos (intervalo inclusivo), incrementando de 1 em 1:

var i: Integer;

begin
    for i := 1 to 5 do
        WriteLn("Número ", i);
end.

Saída

 Número 1 Número 2 Número 3 Número 4 Número 5 

Um exemplo somando os valores do intervalo com um bloco:

var i: Integer;
var soma: Integer;

begin
    soma := 0;
    for i := 1 to 10 do
    begin
        soma := soma + i;
    end;
    WriteLn("Soma de 1 a 10: ", soma);
end.

Saída

 Soma de 1 a 10: 55 

for x in array do

A variação for..in itera cada elemento de um array, sem precisar de índices:

var nomes: Array;
var nome: String;

begin
    nomes := ["Alice", "Bob", "Carlos"];
    for nome in nomes do
        WriteLn("Olá, ", nome, "!");
end.

Saída

 Olá, Alice! Olá, Bob! Olá, Carlos! 

Também funciona com blocos, ideal para acumular resultados:

var numeros: Array;
var n: Integer;
var soma: Integer;

begin
    numeros := [10, 20, 30];
    soma := 0;
    for n in numeros do
    begin
        WriteLn("  ", n);
        soma := soma + n;
    end;
    WriteLn("Total: ", soma);
end.

Saída

 10 20 30 Total: 60 

Blocos como corpo

Sempre que precisar de mais de uma instrução dentro de if, while ou for, envolva-as em begin ... end. Uma única instrução dispensa o bloco.

A seguir, aprenda a organizar lógica reutilizável em Funções e procedimentos.