Saltar para o conteúdo

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

O conteúdo da página não é suportado noutras línguas.
Adicionar tópico
Origem: Wikilivros, livros abertos por um mundo aberto.
Iniciar uma discussão nova

Conteúdos

Título do tópicoRespostasÚltima alteração
pascal comando fechando em 4.013h54min de 28 de novembro de 2019

pascal comando fechando em 4.

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.

189.72.206.10013h54min de 28 de novembro de 2019