Jump to content
david santiago

Postivo e negativo

Recommended Posts

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.

Share this post


Link to post
Share on other 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.

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other 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.

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other 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").

Edited by thoga31

Knowledge is free!

Share this post


Link to post
Share on other sites
Dreigon Fenriz

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

Share this post


Link to post
Share on other sites
david santiago

ola , obrigado pela ajuda :)

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

Share this post


Link to post
Share on other 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 ...

Edited by thoga31

Knowledge is free!

Share this post


Link to post
Share on other 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!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.