Comando de saída MSGBOX

O comando MSGBOX Apresenta uma caixa de mensagem com o valor da expressão ou string fornecida.

Sintaxe:

MSGBOX(expression or string [ ,ok_cancel?]); 

Se ok_cancel? for verdadeiro, apresenta os botões e . Caso contrário, apresenta apenas o botão . O valor predefinido para ok_cancel é falso.

EXPORT AREACALC()
BEGIN
LOCAL radius;
    INPUT(radius, "Raio do círculo","r = ","Digite o raio",1);
    MSGBOX("A área e  " +π*radius^2);
END;

Se o utilizador introduzir 10 para o raio, a caixa de mensagem indica:

MSGBOX – Verificando o botão clicado pelo usuário

O retorno da função MSGBOX pode ser atribuído a uma variável e apresenta verdadeiro (não zero) se o utilizador tocar em e falso (0) se o utilizador pressionar .

Veja o exemplo abaixo:

EXPORT Saida()
BEGIN
    LOCAL retorno;
    
    retorno := MSGBOX("Continuar?", TRUE);
    
    IF retorno == 0 THEN
        MSGBOX("Clicou em Cancelar");
    ELSE
        MSGBOX("Clicou em OK");
    END;
END;

Quando executar esse programa, aparecerá as opções de e na parte inferior da tela:

O IF irá verificar se o valor de retorno é igual a 0 ou não e apresentar a mensagem correspondente.

Atividade

Construa os programas:

• Faça um programa que receba 2 valores e apresente a saída no formato "Ponto: P([Valor 1],[Valor 2] )". Por exemplo, se for digitado os valores 1 e 2, deve aparecer a mensagem:
  
• Faça um programa que receba os valores \(x_1\) e \(h\) da equação abaixo e apresente os valores substituídos na equação. No exemplo foram digitados os valores: \(x_1 = 2.5\) e \(h = 10\)