Ir ao conteúdo
  • Cadastre-se
gui1255

Pascal criar um programa em pascal usando a estrutura condicional simples

Recommended Posts

alguem me da uma ajuda ou uma dica de como fazer esse exercicio, ja tentei de varias maneiras mas nenhuma deu certo, o exercicio é:

 

Resolva o exercício abaixo em Linguagem Pascal, utilizando estrutura
condicional simples:


Elabore um algoritmo, onde o usuário fará a entrada de um valor. Se o valor for positivo, mostrar
o dobro do valor digitado. Se o valor for negativo, mostrar o triplo do valor digitado. Caso seja
digitado o valor zero informar ao usuário, através de uma mensagem, que zero é um valor
neutro.

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@gui1255    para pegar um valor do usuário você usa uma variável do tipo integer e usa  o comando readln e depois usa o comando if para saber se é maior que zero , que é positivo , e imprima o valor da variável multiplicado  por dois ,  ou se é menor que zero , que é negativo , imprima o valor da variável multiplicado por três , ou igual a zero , imprima que é neutro , usando o comando writeln ,    mas não posso te dar o código pronto , pois é contra as regras do fórum , então faça seu código e poste aqui para vermos como está e em que podemos ajudar   .

Compartilhar este post


Link para o post
Compartilhar em outros sites

ok ate agora eu tinha feito ate aqui mas minha duvida ainda ta na formula para o dobro e o triplo e em como declarar isso dentro do comando if

Program Pzim ;
var
v, r: integer;
Begin
  write('digite um valor: ');
  readln(v);
  r := v * 2;
  if v = 0 then
  writeln ('o dobro de ',v,' é: ',r);
  writeln ('o triplo de ',v,' é: ',r);
  writeln ('o valor ',v,' é neutro');
End.

 

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá...

Eu fiz desta forma e espero que esteja legal...

Program Pzim;
var v,d,t:integer;
Begin

  write('Digite um valor Positivo Ex: 1 ou Negativo Ex -1.: ');
  readln(v);
  if(v = 0)then
   begin
   writeln('O valor de ',v,' ficou Neutro.');
   end
  else if(v >= 0)then
   begin
    d := v * 2;
    writeln('O Dobro de ',v,' e :',d);
   end
  else if(v <= 0)then
     begin
     t := v * 3;
     writeln('O Triplo de ',v,' e :',t);
     end
  else
   writeln('O valor de ',v,' ficou Neutro.');
   writeln('Dig. Entre P/ Sair...');
   readln();
end.

Espero ter ajudado e até...

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

obrigado pela ajuda tive que mudar algumas coisa mas agora entendi a logica do exercício

  • Curtir 1
  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá a todos.

 

1#

Sobre:

9 horas atrás, LuisOPsum disse:

Olá...

Eu fiz desta forma e espero que esteja legal...

 

Alguns pontos precisam ser corrigidos, vamos lá:

 

1.1#

9 horas atrás, LuisOPsum disse:

  else if (v >= 0) then

e


  else if (v <= 0) then

 

O correto seria "<" e ">" (sem os "="), já que o 0 está em outra faixa ("é considerado neutro").

 

 

1.2#

9 horas atrás, LuisOPsum disse:

  else
   writeln('O valor de ',v,' ficou Neutro.');
   writeln('Dig. Entre P/ Sair...');
   readln();

 

OU você esqueceu do begin/end do else - caso essas 3 instruções pertençam a ele;

OU a indentação está incorreta, ou seja, as duas linhas de baixo ficam um dente para esquerda

else
  writeln('O valor de ',v,' ficou Neutro.');
writeln('Dig. Entre P/ Sair...');
readln();

 

 

 

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×