Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

david santiago

Postivo e negativo

Mensagens Recomendadas

david santiago

Olá , alguém me ajude a resolver isto :

Sendo dados 4 nºs, escreva um programa em Pascal que indique quantos são positivos.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Dreigon Fenriz
Program Pos_Neg ;
var
n:array[1..4] of real;
np,i:integer;
Begin
 np:=0;
 Writeln('Digite 4 valores:');
 for i:=1 to 4 do
 begin
   write('Valor[',i,']:');
   readln(n[i]);
 end;
 for i:=1 to 4 do
 if n[i]>=0 then np:=np+1;
 writeln(np,' dos 4 numeros Digitados sao positivos!');
 readln
End.

Editado por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
david santiago

Eu fiz isto :

program undidled;
var
a,b,c,d:integer;
BEGIN
Writeln('Indroduca os 4 numeros');
Readln(a);
Readln(b);
Readln(c);
Readln(d);
If (a and b and c and d > 0) then
Writeln('4 positivos');
If (a and b and c > 0) and (d < 0) or
(a and b and d > 0) and (c < 0) or
(a and c and d > 0) and (b < 0) or
(c and b and d > 0) and (a < 0) then
writeln('3');
If (a and b > 0) and (c and d < 0) or
(c and d > 0) and (a and b < 0) or
(c and a > 0) and (b and d < 0) or
(a and d > 0) and (c and b < 0) or
(b and c > 0) and (a and d < 0) or
(b and d > 0) and (c and a < 0) then
Writeln('2 positivos');
If (a > 0) and (b and c and d < 0) or
(b > 0) and (a and c and d < 0) or
(c > 0) and (a and b and d < 0) or
(d > 0) and (a and b and c < 0) then
Writeln('1 positivo');



END.

Mas se eu utilizar o numero 1 , 2 , 3 e 4 nao aparece nada escrito.

Editado por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
thoga31

O que já tentaste fazer?

Program Pos_Neg ;
var
n:array[1..4] of real;
np,i:integer;
Begin
 np:=0;
 Writeln('Digite 4 valores:');
 for i:=1 to 4 do
 begin
   write('Valor[',i,']:');
   readln(n[i]);
 end;
 for i:=1 to 4 do
 if n[i]>=0 then np:=np+1;
 writeln(np,' dos 4 numeros Digitados sao positivos!');
 readln
End.

O objectivo do P@P não é fazer os exercícios aos outros! É ajudar nas dúvidas específicas!

E indiquem nas tags code a linguagem ("=pascal").

Editado por thoga31

Knowledge is free! | Occasional Fortnite player

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
david santiago

ola , obrigado pela ajuda :)

Mas podiam.me so explicar porque é que no meu codigo nao funciona com numeros diferentes?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
thoga31

Coloquei o codigo,se ele quiser copiar ou usar como base fica a escolha do mesmo.

Que colocaste o código já nos apercebemos. Mas esta não é a nossa política. Nós não damos o peixe, ensinamos a pescar.

ola , obrigado pela ajuda :)

Mas podiam.me so explicar porque é que no meu codigo nao funciona com numeros diferentes?

Não podes fazer "a and b and c and d > 0". Tens de fazer "(a>0) and (b>0)..."

E indiquem a LP nas tags CODE para fazer highlight.

E tens de meter as condições dos or's entre parêntesis:

((a>0) and (b>0)) or ((c<0) and (d<0)) or ...

Editado por thoga31

Knowledge is free! | Occasional Fortnite player

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
thoga31

Queres mesmo debater isto...?

Está implícito na regra que diz que não se devem pedir trabalhos feitos, coisa que o OP fez, mas que eu deixei passar desta vez. Na mesma medida, não se resolvem os exercícios.

Diz-me uma coisa - faz mais sentido dar a resolução ou ensinar como se faz?

Qualquer dúvida relativamente a isto, contacta o Staff no quadro Contactar o Staff.

O peixe foi dado, tópico resolvido, regras violadas, tópico encerrado.


Knowledge is free! | Occasional Fortnite player

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Convidado
Este tópico está fechado a novas respostas.

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.