Exercício 11 Estrutura de Seleção - Pascal

11) Construa um algoritmo que seja capaz de dar a classificação olímpica de 3 países informados. Para cada país é informado o nome, a quantidade de medalhas de ouro, prata e bronze. Considere que cada medalha de ouro tem peso 3, cada prata tem peso 2 e cada bronze, peso 1.

Program Olimpiadas11 ;
var 
 ouro,prata,bronze: integer ; 
 a,b,c: real;
 pais1,pais2,pais3: string[10];
 Begin
  Write('Informe 1 Pais: ');
  readln(pais1);
  Write('1 Pais | Ouro: ');
  readln(ouro);
  Write('1 Pais | Prata: ');
  readln(prata);
  Write('1 Pais | Bronze: ');
  readln(bronze);
   a:= (ouro*3) + (prata*2) + bronze;
   // Segundo pais
  Write('Informe 2 Pais: ');
  readln(pais2);
  Write('2 Pais | Ouro: ');
  readln(ouro);
  Write('2 Pais | Prata: ');
  readln(prata);
  Write('2 Pais | Bronze: ');
  readln(bronze);  
   b:= (ouro*3) + (prata*2) + bronze;
   // Terceiro Pais
  Write('Informe 3 Pais: ');
  readln(pais3);
  Write('3 Pais | Ouro: ');
  readln(ouro);
  Write('3 Pais | Prata: ');
  readln(prata);
  Write('3 Pais | Bronze: ');
  readln(bronze);  
   c:= (ouro*3) + (prata*2) + bronze; 
    
  
    if (a>b) and (b>c) then
     begin
        WriteLN(pais1,' Pontos: ',a:3:0);
       WriteLN(pais2,' Pontos: ',b:3:0);
       WriteLN(pais3,' Pontos: ',c:3:0);
     end
    else if (b>a) and (a>c) then
     begin
        WriteLN(pais2,' Pontos: ',b:3:0);
       WriteLN(pais1,' Pontos: ',a:3:0);
       WriteLN(pais3,' Pontos: ',c:3:0);
     end
    else if (c>a) and (a>b) then
     begin
      WriteLN(pais3,' Pontos: ',c:3:0);
      WriteLN(pais1,' Pontos: ',a:3:0);
      WriteLN(pais2,' Pontos: ',b:3:0);
     end 
    else if (a>c) and (c>b) then
       begin
        WriteLN(pais1,' Pontos: ',a:3:0);
       WriteLN(pais3,' Pontos: ',c:3:0);
       WriteLN(pais2,' Pontos: ',b:3:0);
       end 
    else if (b>c) and (c>a) then
     begin
      WriteLN(pais2,' Pontos: ',b:3:0);
      WriteLN(pais3,' Pontos: ',c:3:0);
      WriteLN(pais1,' Pontos: ',a:3:0);
     end 
   else if (c>b) and (b>a) then
     begin
      WriteLN(pais3,' Pontos: ',c:3:0);
      WriteLN(pais2,' Pontos: ',b:3:0);
      WriteLN(pais1,' Pontos: ',a:3:0);
     end;                                                                        
    if (a=b) then
     Writeln(pais1,' Empate com ',pais2)
   else if (a=c) then
     Writeln(pais1,' Empate com ',pais3)
   else if (b=c) then 
     Writeln(pais2,' Empate com ',pais3);                     
WriteLN('                         by Marcus Vinicius');     
 End.

Categories: Pascal , Programação