Migração VisuAlg / pascal, um roteiro simplificado – parte 3

12Mai08

O Comando Case… Of … Else

Este comando permite que se compare uma expressão a uma série de possíveis valores. Sua sintaxe é a seguinte:

Case expressão of
valor1 : comando1;
valor2: comando2;
else
OutroComando;
end;

Este comando requer algumas restrições: a expressão comparada deve ser de um tipo ordenada. os valores ou faixas não devem se sobrepor. Caso nenhuma opção seja feita, será executado outro comando designado depois da palavra reservada else. Por exemplo:

var
valor: integer;
…
begin
valor := 100;
case valor of
100..200 : writeln(’Maior que 100′);
1..99 : writeln(’Menor que 100′);
else
writeln(’Valor inválido’);
end;

Neste exemplo, caso o valor da variável valor esteja entre 100 e 200 então escreve a mensagem Maior que 100, se o valor estiver entre 1 e 99 então escreverá a mensagem Menor que 100 e caso o valor não esteja entre 1 e 200 então escreverá a mensagem Valor Inválido. Como no caso do comando If, você poderia optar em usar o else.

Loops

Existem três tipos de loops ou comandos interativos: o comando For, While e Repeat…Until.

O Comando For (Para)

Este comando executa um certo número de vezes um comando. Sua sintaxe é a seguinte:

for variável de tipo ordenado := ValorInicial to ValorFinal do

Veja um exemplo:

Var
i : integer;
…
begin
for i := 1 to 10 do
writeln(’O número é ‘, i);
end;

Neste exemplo informamos o valor inicial (1) para a variável i e o valor final (10). Este comando escreverá dez mensagens dizendo qual é o número da posição atual entre 1 e 10.

O Comando While (Enquanto)

Este comando executa um bloco de código enquanto uma expressão for verdadeira. Veja a sintaxe deste comando

while expressão do
comando

Veja um exemplo:

var
i: integer;
…
begin
i := 1;
while i < 10 do
begin
i := i +1;
writeln(i);
end;
end;

Neste exemplo, enquanto a variável i for menor que 10 o comando acrescentará +1 ao valor da de i e escreverá o valor atual da variável.

O Comando Repeat…Until

Este comando executa repetidas vezes uma série de instruções até que certa condição seja satisfeita. Sua sintaxe é a seguinte:

repeat
bloco de comandos
until

Veja um exemplo:

var
b: boolean;
numero: integer;
…
begin
b := false;
numero := 10;
repeat
if numero >= 10 then
b := true
else
b:= false;
until b := true;

Neste exemplo, o programa executar o código entre Repeat…Until até que o valor da variável b seja true (verdadeiro).

Filed under: Algoritmos   |  Leave a Comment