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  
FilipiBh

pascal dá dor de cabeça!

Recommended Posts

é o seguinte galera estou tentando fazer um programa que leia 3 numeros e mostre o maior so que esta porcaria roda mas todo doido não mostra o maior numero o que ta errado????

Program mostrar_maior_numero ;

var num1,num2,num3:integer;

Begin

Writeln('Digite o primeiro numero:');

read(num1);

Writeln('Digite o segundo numero:');

read(num2);

Writeln('Digite o terceiro numero:');

read(num3);

if (num1>num2) then

Writeln('o maior numero é:',num1)

else if(num1>num3) then

writeln('o maior valor é:',num1)

else if(num2>num1) then

writeln('o maior valor é:',num2)

else if(num2>num3) then

writeln('o maior valor é:',num2)

else if (num3>num1) then

writeln('o maior valor é:',num3)

else if (num3>num2) then

writeln('o maior valor é:',num3);

End.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara tenta isso ai....

Program mostrar_maior_numero ;

var num1,num2,num3:integer;

Begin

Writeln('Digite o primeiro numero:');

read(num1);

Writeln('Digite o segundo numero:');

read(num2);

Writeln('Digite o terceiro numero:');

read(num3);

If (num1>num2) and (num1>num3) then

Writeln('o maior numero é:',num1)

If (num2>num1) and (num2> num3)then

writeln('o maior valor é:',num2)

If(num3>num1) and (num3>num2) then

writeln('o maior valor é:',num3)

End.

espero ter te ajudado...

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • sim sem duvidas ajudou Obrigado :D !!!!!!!

    mas não consegui entender a diferença a pesar de não ter usado o comando and os meus comandos eram super coerentes!!!!!!! ou será que não da pra explicar porque estava dando pau sem o and

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
    Postado Originalmente por DJ-WEBMASTER@10 de março de 2006, 14:38

    sim sem duvidas ajudou Obrigado :D !!!!!!!

    mas não consegui entender a diferença a pesar de não ter usado o comando and  os meus comandos eram super coerentes!!!!!!! ou será que não da pra explicar porque estava dando pau sem o and

    e aí DJ..

    faça um teste de mesa com seu programa...

    ...

    veja q primeiro ele verifica se o n1 é maior q n2:

    if (num1>num2) then

    Writeln('o maior numero é:',num1);

    mas você esqueceu de verificar o n3...

    porque??!!!

    se o num1 for realmente maior q o num2 o seu programa vai escreve-lo diretamente o num1 sem "perguntar" se o num3 é maior q o num1...

    concertando seu programa:


    Program mostrar_maior_numero;
    var num1,num2,num3:integer;

    Begin
      Writeln('Digite o primeiro numero:');
      read(num1);
      Writeln('Digite o segundo numero:');
      read(num2);
      Writeln('Digite o terceiro numero:');
      read(num3);

      if (num1>num2) then
      begin
         if(num1>num3) then
              writeln('o maior valor é:',num1);
      end;

      if(num2>num1) then
      begin
         if(num2>num3) then
              writeln('o maior valor é:',num2);
      end;

      if (num3>num1) then
      begin
         if (num3>num2) then
              writeln('o maior valor é:',num3);
      end;
    End.

    o que fiz apenas foi retirar os comandos else, retirar alguns write

    falou, abraçu :-BEER

    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

    ×