Ir ao conteúdo
  • Cadastre-se

duvida em pascal


tremelique

Posts recomendados

Faça um programa Pascal que leia números inteiros do teclado, até que um número negativo seja digitado, e escreva na tela:

(a) quantos foram os números pares lidos;

(B) quantos foram os números ímpares lidos;

© a média dos números pares;

(d) a média dos números ímpares;

(e) o maior número positivo lido;

(f) o menor número positivo lido.

eu fiz desse jeito :

eu queria saber o que falta?

o código e esse:

program Untitledq2_ad1;
uses
crt;
var
cont,
n,
numpares,numimpares,
maior, segundomaior,
menor, segundomenor :integer;

Fim : boolean;

begin
Fim:=false;
cont:=0;
maior:=0;

menor:=MaxInt;

numpares:=0;
numimpares:=0;
writeln(output,' Digite valores, para terminar a execuçao insira um numero negativo.');
While not Fim do
begin
write(output, 'Digite um valor: ');
readln(input, n);
if n < 0 then
Fim := true
else
begin

if (n mod 2=0) then
numpares:=numpares +1
else
numimpares:=numimpares + 1;
end;


begin
if (n mod 2 =1) then
numimpares:=numimpares+1;
end;
begin
cont:= cont + 1;
if n >= maior then
begin

maior := n
end
else
if n <= menor then
begin

menor:= n
end

end;
end;

begin
writeln(output,'quantidade de numeros pares',numpares);
writeln(output,'quantidade de numeros impares',numimpares);
writeln(output, 'O maior valor é : ', maior );

writeln(output, 'O menor valor é : ', menor);
readln;
end;

end.

Link para o comentário
Compartilhar em outros sites

Olá tremelique

Eu queria saber o que falta

Falta pouca coisa... sugiro que faça o seguinte: insira uns 6 números e teste cada uma das alíneas do enunciado, verificando se o valor "real" (feito mentalmente ou num papel) é igual a resultado informado no programa. Caso dê errado, reanalise o código e tente corrigir.

Daí, caso tenha alguma dúvida mais específica, é só postar!

DICA: Tente resolver uma alínea de cada vez. Qualquer coisa tente refazer o código, respondendo de um em um, em vez de fazer tudo de uma vez e testar tudo de uma vez...

No aguardo.

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...