Ir ao conteúdo
  • Cadastre-se

pascal dá dor de cabeça!


FilipiBh

Posts recomendados

é 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.

Link para o comentário
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...

Link para o comentário
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

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...