[Dúvida] Aula 11.2

Meninos(as);
vocês lembram desse exemplo que o Monteiro passou em sala?

Código:

program aula11_2;
uses crt;
var
 x, linha, coluna:integer;
 begin {vou chamar de begin1}
  clrscr;
  linha:=15;
  coluna:=20;
  while true do {dúvida: enquanto for verdade o quê?}
  begin {vou chamar de begin2}
  writeln ('digite um valor negativo para sair');
  clreol;
  readln (x);
    if x<0 then break;
    gotoxy (coluna, linha);
    writeln ('valor lido =', x);
    linha :=linha+1;
    gotoxy (1,1);
    end; {fim do 'if'}
  readkey;
 {não estaria faltando o 'end;' do begin2? O compilador não acusa erro nenhum apesar disso, por quê?}
end.


Se alguém souber responder, por favor. =]

Olá Danielle, vou responder suas perguntas em ordem:
1) "while true do" é um comando utilizado para um laço infinito, o "true" não se refere a nenhuma variável, ele apenas faz parte do comando.

2) Não está faltando o "end;" do while, ele é aquele que você pensou ser o do "if". O "if" não precisa de "begin" e "end" pois ele só tem um comando: "break". O comando "if x<0 then break" poderia ser escrito assim:

Código:


{início do programa...}
if x < 0 then
    break;
{resto do programa...}

Espero ter tirado suas dúvidas! ^^

Muito obrigada, Saulo. ^^