Pascalzim programa
Fazer um programa para receber várias medidas de ângulos e dizer quantos estão em cada quadrante de acordo com sua medida: Primeiro Quadrante de 0 a 90, Segundo Quadrante acima de 90 até 180, Terceiro Quadrante acima de 180 até 270 e Quarto Quadrante acima de
270 até 360. O programa termina quando for digitado um ângulo menor que 0.
Fazer um programa para receber várias medidas de ângulos e dizer quantos estão em cada quadrante de acordo com sua medida: Primeiro Quadrante de 0 a 90, Segundo Quadrante acima de 90 até 180, Terceiro Quadrante acima de 180 até 270 e Quarto Quadrante acima de
270 até 360. O programa termina quando for digitado um ângulo menor que 0.
More Questions From This User See All
Lista de comentários
Resposta:
Aqui está um exemplo de programa em Pascal que realiza a tarefa descrita:
program Angulos;
var
angulo: real;
q1, q2, q3, q4: integer;
begin
q1 := 0;
q2 := 0;
q3 := 0;
q4 := 0;
writeln('Insira os ângulos (digite um valor menor que 0 para encerrar):');
readln(angulo);
while (angulo >= 0) do
begin
if (angulo >= 0) and (angulo <= 90) then
q1 := q1 + 1
else if (angulo > 90) and (angulo <= 180) then
q2 := q2 + 1
else if (angulo > 180) and (angulo <= 270) then
q3 := q3 + 1
else
q4 := q4 + 1;
readln(angulo);
end;
writeln('Quantidade de ângulos no primeiro quadrante: ', q1);
writeln('Quantidade de ângulos no segundo quadrante: ', q2);
writeln('Quantidade de ângulos no terceiro quadrante: ', q3);
writeln('Quantidade de ângulos no quarto quadrante: ', q4);
end.
Este programa solicita ao usuário para inserir vários ângulos, e os conta em cada quadrante de acordo com sua medida. O programa termina quando o usuário digita um ângulo menor que 0.
Verified answer
Resposta:
Explicação passo a passo:
program quadrante;
var
angulo: real;
quad1, quad2, quad3, quad4: integer;
begin
quad1 := 0;
quad2 := 0;
quad3 := 0;
quad4 := 0;
write('Entre com o angulo: ');
readln(angulo);
while (angulo >= 0) do
begin
if (angulo >= 0) and (angulo <= 90) then
inc(quad1)
else if (angulo > 90) and (angulo <= 180) then
inc(quad2)
else if (angulo > 180) and (angulo <= 270) then
inc(quad3)
else if (angulo > 270) and (angulo <= 360) then
inc(quad4);
write('Entre com o angulo: ');
readln(angulo);
end;
writeln('Quantidade de angulos no primeiro quadrante: ', quad1);
writeln('Quantidade de angulos no segundo quadrante: ', quad2);
writeln('Quantidade de angulos no terceiro quadrante: ', quad3);
writeln('Quantidade de angulos no quarto quadrante: ', quad4);
end.
O programa usa uma estrutura de repetição (while) para ler vários ângulos, e verifica em qual quadrante cada ângulo está usando if-else. Ele armazena a contagem de ângulos em cada quadrante em variáveis separadas e, no final, imprime o número de ângulos em cada quadrante.