Dividir por 2 e 3 e mostrar o resultado
Olá pessoal, queria uma ajudinha, como poderia fazer pra digitar 4 numeros, usando 4 edits e verificar se sao divisiveis por 2 e 3 e os que forem divisiveis, mostrar o resultado numa label?
Eu pensei pegando o resto da divisao, se for igual a zero, mostra na tela, mas tem algo + pratico pra fazer?
Desde já agradeço a ajuda.
Eu pensei pegando o resto da divisao, se for igual a zero, mostra na tela, mas tem algo + pratico pra fazer?
Desde já agradeço a ajuda.
Diegobarcelos
Curtidas 0
Respostas
Marcelo Saviski
16/01/2004
para pegarresto da dvisçao você usa o [b:42d35a0793]mod[/b:42d35a0793]
por exemplo
11 [b:42d35a0793]mod [/b:42d35a0793]5 = 1
ele o mesmo que isso
[color=green:42d35a0793]11 - (11 div 5)*5[/color:42d35a0793]
por exemplo
11 [b:42d35a0793]mod [/b:42d35a0793]5 = 1
ele o mesmo que isso
[color=green:42d35a0793]11 - (11 div 5)*5[/color:42d35a0793]
GOSTEI 0
Bacalhau
16/01/2004
Vou só dizer para o edit1. O resto é igual.
var numero : integer;
begin
label1.caption := ´´;
numero := strtoint(edit1.text);
if numero mod 2 = 0 then // é divisivel por 2
label1.caption := label1.caption + inttostr(numero) + #1013;
if numero mod 3 = 0 then // é divisivel por 3
label2.caption := label2.caption + inttostr(numero) + 1013;
e por aí fora
abraço
bacalhau
var numero : integer;
begin
label1.caption := ´´;
numero := strtoint(edit1.text);
if numero mod 2 = 0 then // é divisivel por 2
label1.caption := label1.caption + inttostr(numero) + #1013;
if numero mod 3 = 0 then // é divisivel por 3
label2.caption := label2.caption + inttostr(numero) + 1013;
e por aí fora
abraço
bacalhau
GOSTEI 0
Tnaires
16/01/2004
Ué, diego, a minha resposta no outro tópico não te ajudou?
Inclusive lá foi dada a sugestão q um número é divisível por dois e por três se for divisível por seis...
[url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=32924]Tópico[u:2cfaa7e0fd][/u:2cfaa7e0fd][/url]
Inclusive lá foi dada a sugestão q um número é divisível por dois e por três se for divisível por seis...
[url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=32924]Tópico[u:2cfaa7e0fd][/u:2cfaa7e0fd][/url]
GOSTEI 0
Beppe
16/01/2004
Ué, diego, a minha resposta no outro tópico não te ajudou?
Inclusive lá foi dada a sugestão q um número é divisível por dois e por três se for divisível por seis...
[url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=32924]Tópico[u:ef35cc4ea3][/u:ef35cc4ea3][/url]
Acontece é que ele, como muitos, não tem paciência e vão logo dulicando as mensagens. :(
GOSTEI 0
Tnaires
16/01/2004
Acontece é que ele, como muitos, não tem paciência e vão logo dulicando as mensagens. :(
Ah cara, eu reli o enunciado dele, ele perguntou se dava pra fazer de um jeito diferente, sem usar o mod sacou?
Pow... eu nunca entendo uma mensagem d primeira... foi por isso q acabei mandando 3 respostas pro tópico q eu referenciei :oops:
Xau
GOSTEI 0