• 0
Sign in to follow this  
jackwolf

Ler...

Question

aí galera, so novo nessa area de programação e to com um probleminha aqui que concerteza vai aparecer besta p vocês, mas n to conseguindo fazer ele funcionar....me ajudem!!!

1. Ler dois valores numéricos inteiros e apresentar o resultado da diferença do maior valor pelo menor valor.

plz, galera.. só em portugol e pascal se n eu n entendo rsss

vlwwww

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Em Portugol:

x = 0
y = 0

ESCREVA("Digite o primeiro valor:")
LEIA(x)
ESCREVA("Digite o segundo valor:")
LEIA(y)

SE x>y ENTÃO
    diferença = x - y
SENÃO
    SE y>x ENTÃO
        diferença = y - x
    ELSE
        { são iguais então o resultado vai dar zero }
        diferença = 0 
    FIM-SE
FIM-SE

ESCREVA("Resultado: ", diferença)

Certo? ;)

Graymalkin

Share this post


Link to post
Share on other sites
  • 0
1. Ler dois valores numéricos inteiros e apresentar o resultado da diferença do maior valor pelo menor valor.

plz, galera.. só em portugol e pascal se n eu n entendo rsss

Olha amigo, diante desse seu problema, fiz um aqui e acho que pode lhe ajudar, fiz em pascal...

Não se acostume pegar nada de graça heim? hehehe, só foi essa heim?hehehe

Obs.: quando o número for igual, fiz um erro lá no programa proposital, mesmo sendo igual, ele irá entra em qualquer um dos IF, sendo os de < ou >, para constatar e mostrar que não existe diferença, ele vai só encrementar a resposta se for igual...

Mostrando assim ao usuário e comprovando a igualdade...

Program Diferente;
  var
   num1,num2: integer;
   result: integer;

 Begin  
    writeln('                   PROGRAMA DE ANÁLISE DE NÚMEROS INTEIROS                     ');
    writeln('                          Diferença de dois Números                               ');
    writeln('-------------------------------------------------------------------------------------------------------------------');
    writeln('Digite o primeiro número a ser consultado: ');
    readln(num1);
    writeln('Digite o segundo número a ser consultado: ');
    readln(num2);
    
    if num1 = num2 then
       begin
         writeln('O primeiro número ',num1,' e o segundo número, também ',num2,' são iguais');
         writeln('Portanto não existe diferença numérica entre eles');
       end;
              
    if num1 > num2 then
       begin      
          result:= num1 - num2;
          writeln('A diferença entre ',num1,' e ',num2,' é de ',result,' números');
       end
    else
       begin   
          result:= num2 - num1;
          writeln('A diferença entre ',num2,' e ',num1,' é de ',result,' números');
       end;
 End.

Edited by paulo_linux

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this