Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
fabao1966

como usar o mod

Recommended Posts

bom dia galera, estou tentando usar o "mod"para colocar se un numero é par ou impar, só que esta dando erro na meu programa, gostaria de ajuda, segui o pragrama abaixo, o eero estar no mode, não estou sabendo usar, espero ajuda da comunidade

program par_15_vetor;
uses crt;

var
res:array [1..15] of string;
num:array [1..15] of integer;
i:integer;

begin
for i:= 1 to 15 do
begin
writeln('digite um numero');
readln(num[i]);
if(num mod 2 =0) then
begin
res[i]:=('par');
end
else
begin
res[i]:=('inpar');
end;
for i:= 1 to 15 do
begin
writeln(i,'',num[i],'',res[i]);
end;
end;






readkey;
end.

só mais uma coisa, eu uso o Dev-Pascal

Editado por gandalfnho
Flood

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caro amigo, acho que o erro deve estar nos parenteses, você deve utiliza-los

if ( (num mod 2) = 0) then

tente isso e retorne.

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Caro amigo, acho que o erro deve estar nos parenteses, você deve utiliza-los

    if ( (num mod 2) = 0) then

    tente isso e retorne.

    achei:faltava isso "num", não coloquei as aspas e o i dentro,, agora o problema é outro, ele roda, mais eu coloco o promeiro numero e ele ja mostra direto a listagem, não espera entrar o 14 restantes, se puderes ajudar, equanto issi vou aqui tentando arrumar

    achei:faltava isso "num", não coloquei as aspas e o i dentro,, agora o problema é outro, ele roda, mais eu coloco o promeiro numero e ele ja mostra direto a listagem, não espera entrar o 14 restantes, se puderes ajudar, equanto issi vou aqui tentando arrumar

    o mod não é pra achar o resto? eu coloco '5' e ele mostra '15' fala que ele é impar, tudo bem e já sai do para e vai para a listagem

    o mod não é pra achar o resto? eu coloco '5' e ele mostra '15' fala que ele é impar, tudo bem e já sai do para e vai para a listagem

    consegui, no final do primeiro bloco faltava um 'end;' e na questão do '5' e '15' era que o contador tava perto do numero então parecia quinze eu dei mais um espaço entre eles a agora ta tinindo, ficou assim:

    program par_15_vetor;
    uses crt;

    var
    res:array [1..15] of string;
    num:array [1..15] of integer;
    i:integer;
    cont:integer;

    begin
    cont:=0;

    for i:= 1 to 15 do
    begin
    writeln('digite um numero');
    readln(num[i]);
    if( (num[i] mod 2) = 0) then
    begin
    res[i]:=('par');
    end
    else
    begin
    res[i]:=('inpar');
    end;
    end;
    for i:= 1 to 15 do
    begin
    cont:=cont+1;
    writeln(cont,' ',num[i],'',res[i]);
    end;








    readkey;
    end.

    valeu pela ajuda.

    Editado por Mog.Lucas
    Flood // Utilize tags [code]: http://forum.clubedohardware.com.br/tags-code-como/709848

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário

    Entre para seguir isso  





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×