pascal comando fechando em 4.
Da página 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.