Ler...

[jackwolf]

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

[Graymalkin]

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

[paulo_linux]

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.

Editado Março 2, 2007 por paulo_linux