• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

_4ndr3

Ordena 2 valores de 1 a 100

3 mensagens neste tópico

Um programa simples para ordenar 2 valores.

Program ordena_2_valores_de_1_a_100;
Var n1,n2:integer;
Begin
writeln('Introduza dois números.');
readln(n1,n2);
// Condição Principal
if ((n1>=0) and (n1<=100)) and ((n2>=0) and (n2<=100))
// Números Válidos
then if (n1>=n2) // Se n1 for maior ou igual do que n2
     // Então
	then if (n1>n2) // Se n1 for maior do que n2
	      // Então
		then writeln('Primeiro Número: ',n1,' Segundo Número: ',n2)	
		// Senão
		else writeln('Os números são iguais!')
	// Senão	
	else writeln('Primeiro Número: ',n2,' Segundo Número: ',n1)		
// Números Inválidos
else writeln('O número inserido tem de ser entre 0 e 100 (inclusive).');
writeln;
writeln('Prima ENTER para sair');
readln;
End.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Creio que sim, que há aqui um engano! :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora