Ir para o conteúdo
Alex_vonkuste

Soma dos dois maiores

Mensagens Recomendadas

pmg    102
pmg

Sugestao: decompoe o problema em dois problemas mais pequenos

a) dados tres numeros inteiros achar os dois maiores

:confused: dados dois numeros achar a sua soma

O teu algoritmo é entao:

dados tres numeros inteiros executar o algoritmo a) e a seguir, com o resultado, executar o algoritmo ;)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
apocsantos    210
apocsantos

    Boa noite,

    Declaras 4 variáveis do tipo inteiro, lês do teclado os valores dos números, comparas os números para achares os dois maiores, e no fim executas a soma dos dois.

      Parece-me algo simples. Mostra o código que tens.

Cordiais cumprimentos,

Apocsantos

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
mIn3ir0    0
mIn3ir0

program calcula;
uses crt;

var num1, num2, num3, soma, maior1, maior2 : integer;

Begin
write('Introduza o primeiro número: '); readln(num1);
write('Introduza o segundo número: '); readln(num2);
write('Introduza o terceiro número: '); readln(num3);

if (num1 > num2) and (num1 > num3) then	
	begin
	   maior1:=num1;
	   if (num2 > num3) then 
		maior2:=num2
	   else 
		maior2:=num3;
	end;

if (num2 > num1) and (num2 > num3) then	
	begin
	   maior1:=num2;
	   if (num1 > num3) then 
		maior2:=num1
	   else 
		maior2:=num3;
	end;

if (num3 > num2) and (num3 > num1) then	
	begin
	   maior1:=num3;
	   if (num2 > num1) then 
		maior2:=num2
	   else 
		maior2:=num1;
	end;
soma:=maior1+maior2;

writeln(soma);
readln;
end.	

diverte-te :(

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Alex_vonkuste    0
Alex_vonkuste

program calcula;
uses crt;

var num1, num2, num3, soma, maior1, maior2 : integer;

Begin
write('Introduza o primeiro número: '); readln(num1);
write('Introduza o segundo número: '); readln(num2);
write('Introduza o terceiro número: '); readln(num3);

if (num1 > num2) and (num1 > num3) then	
	begin
	   maior1:=num1;
	   if (num2 > num3) then 
		maior2:=num2
	   else 
		maior2:=num3;
	end;

if (num2 > num1) and (num2 > num3) then	
	begin
	   maior1:=num2;
	   if (num1 > num3) then 
		maior2:=num1
	   else 
		maior2:=num3;
	end;

if (num3 > num2) and (num3 > num1) then	
	begin
	   maior1:=num3;
	   if (num2 > num1) then 
		maior2:=num2
	   else 
		maior2:=num1;
	end;
soma:=maior1+maior2;

writeln(soma);
readln;
end.	

diverte-te :D

Obrigado :(

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
thoga31    611
thoga31
2.3) Não é permitida a criação de tópicos ou colocação de mensagens a pedir para que se façam trabalhos. Pedir ajuda é diferente de pedir trabalhos feitos. Em caso de incumprimento o staff pode bloquear o tópico ou mesmo apagar o tópico/mensagem.

http://www.portugal-a-programar.pt/guidelines/

Devo avisar que o espírito do P@P não é fazer trabalhos a outrém. Assim o visado não aprende (a não ser a dar uso aos atalhos Ctrl+C > Ctrl+V).

Peço que isto não se volte a repetir.

Cumprimentos.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Convidado
Este tópico está fechado a novas respostas.

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade