Pascal

[Guest --Junior --]

Fiz um caculo de imc em pascal, mas de uma hora pra oura reat until parou de funcionar,ele so fica repetindo e não sai do programa.Espero q alguém possa me ajudar.

PROGRAM IM;
USES CRT;

VAR
ALTURA:REAL;
PESO  :REAL;
IMC   :REAL;
RESP  :CHAR;


BEGIN
 repeat
 clrscr;
WRITELN ('               PROGRAMA CAUCULA IMC V= 1.1              ' );
WRITELN ('          ------------------------------------          ' );
WRITELN ('');

WRITE('QUAL SUA ALTURA(EM M): ?');
  READLN(ALTURA);
WRITE('QUAL O SEU PESO:?');
  READLN(PESO);

 IMC:=PESO/ (ALTURA*ALTURA);
  WRITELN('SEU IMC E ',  IMC: 1:2 );
  WRITELN;

WRITELN('_________________________________________________________________________');


   IF (IMC<=18.5)THEN
   BEGIN
     WRITELN('');
     WRITELN('VOCE ESTA ABAIXO DO PESO NORMAL');
   END;


   IF (IMC>18.5) AND (IMC<25) THEN
   BEGIN
     WRITELN('');
     WRITELN('VOVE ESTA NO PESO NORMAL');
   END;


   IF (IMC>=25) AND (IMC<=30) THEN
   BEGIN
     WRITELN('');
     WRITELN('VOCE ESTA SOBREPESO');
     END;

   IF (IMC>=30) AND (IMC<40) THEN
   BEGIN
     WRITELN('');
     WRITELN('VOCE ESTA OBESO');
   END;

   IF (IMC>=40) THEN
   BEGIN
     WRITELN('');
     WRITELN('VOCE ESTA COM OBESIDA MORBIRA');
   END;

   WRITELN('');


 WRITELN('DESEJA ENCERRAR O PROGRAMA <S/N>?');

        READLN(RESP);

  UNTIL RESP='S'; {SAIR}
  CLRSCR;


WRITE('PRECIONE UMA TECLA PARA ENCERRAR O PROGRAMA ');


 READKEY;



END.

Funcionou mas depois parou de funcionar.

Editado Março 2, 2008 por kuroi
Adicionar tag CODE

[nego drama]

velho eu ainda não comecei a trabalhar uma linguagem

mas no seu caso eu utilizaria o laço enquanto porque o laço repita ele so para quando ele chegar a um determinado numero seja inteiro ou real

no caso

var
x : string;
begin
   while x <> 'sair' do begin
      readln (x);
   end;
end.

tente ai depois me diga

um abraço

Editado Março 3, 2008 por nego drama

[Micheus]

Junior, supostamente, uma possibilidade desta intermitência seria o fato de você ter acionado o CAPS LOCK. Observe que que você testa apenas pelo "S" maiúsculo estaria faltando verificar o minúsculo.

mas no seu caso eu utilizaria o laço enquanto (...)

nego drama, da forma como está construído o programa do colega Junior (onde a tela é limpa e montada a cada interação) o uso do Repeat..Until seria mesmo a mais apropriada.

Lembro que no uso do While, seria apropriado a inicialização da variável antes de seu teste - o que ocorre logo no início, diferente do Repeat..Until, que testa no fim após lida a variável de controle.

(...) porque o laço repita ele so para quando ele chegar a um determinado numero seja inteiro ou real

Isto não procede. As interações/loops (while ou repeat) são executadas até que uma condição seja satisfeita, ou seja, até que o teste da condição retorne TRUE (verdadeiro). Sendo assim, não há qualquer limitação quanto ao tipo de dados a ser usado como controle.

Abraços

[Paulo_elite]

O único problema que vejo é a declaração em caixa alta da variável...

UNTIL RESP='S'; {SAIR}

O ideal seria

UNTIL (RESP='S') or (RESP='s'); {SAIR}

Abraços...

Paulo!!!