Exercício 06 Repeat - Pascal

6) Num frigorífico existem 90 bois. Cada boi traz preso em seu pescoço um cartão contendo seu
número de identificação e seu peso. Fazer um algoritmo que escreva o número e peso o boi mais gordo
e do boi mais magro.

Program repeat06 ;

var
i,cod_mais,cod_menos:integer;
mais_gord,menos_gord:real;
codigo:integer;
peso:real;
 Begin
     i := 1;
   Write(i,' Informe Peso  : ');
   readln(peso);
   Write(i,' Informe Codigo: ');
   readln(codigo);
   cod_mais:=codigo;
   cod_menos:=codigo;
   mais_gord:=peso;
   menos_gord:=peso;
       repeat
           i := i + 1;
          Write(i,' Informe Peso  : ');
       readln(peso);
       Write(i,' Informe Codigo: ');
       readln(codigo);    
           if (peso > mais_gord) then
              Begin    
               mais_gord := peso;
               cod_mais:=codigo;
              End;    
           if (peso < menos_gord) then
             Begin    
               menos_gord := peso;
               cod_menos:=codigo;
              End;                   
    until (i = 5);
    clrscr;
  Writeln('Boi Mais Gordo');                       
  Writeln('Peso  : ',mais_gord:0:3);
  Writeln('Codigo: ',cod_mais); writeln;
  Writeln('Boi Menos Gordo');                       
  Writeln('Peso  : ',menos_gord:0:3);
  Writeln('Codigo: ',cod_menos); writeln;
Writeln('        by Marcus Vinicius');   
 End.

Categories: Pascal , Programação