Pascal/Delphi criar um programa em pascal usando a estrutura condicional simples

[gui1255]

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.

[devair1010]

@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   .

[Simon Viegas]

@gui1255, poste o que já conseguiu fazer e onde está com dúvidas.

 

No aguardo.

[gui1255]

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.

 

[LuisOPsum]

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é...

[gui1255]

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

[Simon Viegas]

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();