[Resolvido] divisor e dividendo

[TCHE 0]

pessoal o algoritmo tem que

Entrar com divisor e dividendo e informar se o quociente é inteiro

 

como faço isso e como faço pro algoritmo perceber se o numero é intiro

eu dei alguns passos

 

CODE

var

num, num2 : inteiro

divisor, divid: real

inicio

leia (num)

leia (num2)

divisor:= num mod num2

escreva (divisor)

divid := num div num2

escreva (divid)

fimalgoritmo

[Kandrade 7]

Exemplo:

 

25 / 4 -> 6

 

25 é o dividendo

4 é o divisor

6 é o quociente

 

Para saber se o quociente é inteiro voce precisa testar se o resto é "zero".

 

Algo do tipo:

 

leia(dividendo)

leia(divisor)

 

se (dividendo mod divisor = 0) entao

escreva "O quociente eh inteiro"

senao

escreva "O quociente nao eh inteiro"

fimse

[TCHE 0]

valui pessoa

 

CODE

var

num, num2 : inteiro

divi: real

inicio

leia (num)

leia (num2)

divi:= num div num2

se (num mod num2) = 0 entao

escreva (divi, " é inteiro")

senao

escreva (divi," ñ é inteiro")

fimse

fimalgoritmo

[TCHE 0]

tentei ja com outro exercicio e ñ deceu certo

Entrar com um número e informe se sua raiz quadrada é inteira

 

CODE

var

num, x: inteiro

raiz: real

inicio

leia (num)

raiz := raizq(num)

x := int (raiz)

se (x mod 2)= 0 entao

escreva (raiz," é inteiro")

senao

escreva (raiz, " ñ é inteiro")

fimse

fimalgoritmo

[quitZAUMMM 18]

no seu algoritmo você naum vai saber c a raiz é inteira pois você esta passando ela como inteira atraves da função int()!

e tbm você esta verificando c ele é par ow impar?? :wacko:

 

tente algo assim:

leia (num);
raiz <- raizq(num);
aux <- int(raiz);
se (raiz / aux) = 1 então
  escreva ("Raiz inteira");
senão
  escreva ("Raiz real");
fim_se;

[TCHE 0]

ñ! eu ñ quero encontrar par ou impa!, mas entendi o q quis dizer

valeu pessoa

 

CODE

var

num : inteiro

aux, raiz: real

inicio

leia (num)

raiz := raizq(num);

aux := int(raiz);

se (raiz / aux) = 1 entao

escreva ("Raiz inteira")

senao

escreva ("Raiz real")

fimse

fimalgoritmo

[quitZAUMMM 18]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Kandrade 7]

Ótimo, vou colocar resolvido.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif