Discussão:Pascal/Estrutura de repetição

Jônata Albuquerque <jonataaf@gmail.com> 18 de nov. de 2019 18:04 (há 10 dias) para eu

program raio; const pi = 3.14; var

  r, o: integer; // r = raio, o = comando
  t: real; // t = calculo do valor de acordo com o comando. valor no conjunto dos reais pois é baseado no pi, aproximadamente 3,14.

begin

    writeln('Digite o valor do raio');
    readln(r);
    writeln('digite 1 para saber o comprimento da circunferencia');
    writeln('digite 2 para saber a area do circulo');
    writeln('digite 3 para saber a area da esfera');
    writeln('digite 4 para sair');
    readln(o);

    if (0 <> 1) and (o <> 2) and (o <> 3 ) and (o <> 4) then // se o usuario não digitar nenhum dos comandos então ele deverá repetir o processo.
       begin
            writeln('digite um comando valido');
            readln(o);
       end;
    if o = 1 then
       begin
            t:=2*pi*r; // calculo do comprimento.
            writeln( 'o comprimento da circunferencia e ', t);
            readln; //esperar o usuário ler o resultado
       end;

    if o = 2 then
       begin
            t:= pi*r*r;  //calculo da area do circulo.
            writeln('a area do circulo e ', t);
            readln; //esperar o usuário ler o resultado
       end;

    if o = 3 then
       begin
            t:= 4/3 * pi*r*r*r; // calculo da area da esfera.
            writeln('a area da esfera e ', t);
            readln; //esperar o usuário ler o resultado.
       end;

    if o = 4 then
    exit;

end.