01. FAÇA UM PROGRAMA ONDE SEJA DIGITADO O PESO DE 10 BOIS E AO FINAL O PROGRAMA INFORMA:
a) O MAIOR PESO
b) O MENOR PESO
c) A MÉDIA DE PESO
d) O NUMERO DE BOIS COM O MAIOR PESO
e) O NUMERO DE BOIS COM O MENOR PESO
f) O NUMERO DE BOIS COM A MÉDIA DE PESOS
g) A PORCENTAGEM DE BOIS ABAIXO DA MEDIA
h) A PORCENTAGEM DE BOIS ACIMA DA MEDIA.
PROGRAM PESO_BOIS ;
VAR
PESO,A,B,C,D,E,F,G,H,I,J,TODOS_PESOS,MEDIA,PORCE_MAIOR,PORCE_MENOR,PESO_MAIOR,PESO_MENOR:REAL;
K, N_P_M, N_P_ME,CIMA_MEDIA,BAIXO_MEDIA,IGUAL_MEDIA:INTEGER;
BEGIN
PESO_MAIOR := 0; PESO_MENOR := 9999;
FOR K := 1 TO 10 DO
BEGIN
WRITE('DIGITE O PESO DO BOI ',K,': ');
READ(PESO);
TODOS_PESOS := TODOS_PESOS + PESO;
IF PESO > PESO_MAIOR THEN
BEGIN PESO_MAIOR := PESO; N_P_M := 0; END;
IF PESO < PESO_MENOR THEN
BEGIN PESO_MENOR := PESO; N_P_ME := 0; END;
IF PESO = PESO_MAIOR THEN
BEGIN N_P_M := N_P_M + 1; END;
IF PESO = PESO_MENOR THEN
BEGIN N_P_ME := N_P_ME + 1; END;
CASE K OF
1: A := PESO;
2: B := PESO;
3: C := PESO;
4: D := PESO;
5: E := PESO;
6: F := PESO;
7: G := PESO;
8: H := PESO;
9: I := PESO;
10: J := PESO;
END;
END;
MEDIA := TODOS_PESOS/10;
IF A > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF A < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF B > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF B < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF C > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF C < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF D > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF D < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF E > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF E < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF F > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF F < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF G > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF G < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF H > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF H < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF I > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF I < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
IF J > MEDIA THEN
BEGIN CIMA_MEDIA := CIMA_MEDIA + 1; END
ELSE IF J < MEDIA THEN
BEGIN BAIXO_MEDIA := BAIXO_MEDIA +1; END
ELSE
BEGIN IGUAL_MEDIA := IGUAL_MEDIA + 1; END;
PORCE_MAIOR := (CIMA_MEDIA*100)/10;
PORCE_MENOR := (BAIXO_MEDIA*100)/10;
WRITELN('PESO MAIOR É: ',PESO_MAIOR:0:2,'Kg');
WRITELN('PESO MENOR É: ',PESO_MENOR:0:2,'Kg');
WRITELN('MEDIA TOTAL: ',MEDIA:0:2,'Kg');
WRITELN('QUANTIDADE DE PESO MAIOR: ',N_P_M);
WRITELN('QUANTIDADE DE PESO MENOR: ',N_P_ME);
WRITELN('QUANTIDADE DE PESO IGUAL A MEDIA: ',IGUAL_MEDIA);
WRITELN('PORCENTAGEM DOS ACIMA DA MEDIA: ',PORCE_MAIOR:0:2,'%');
WRITELN('PORCENTAGEM DOS ABAIXO DA MEDIA: ',PORCE_MENOR:0:2,'%');
END.
Galera este é o codigo que eu criei para a solução do algoritimo que o Alexandre passou na aula ontem 16/05/2011 quem fez diferente posta, esse deu 105 linhas será que tem como fazer com menos?
ResponderExcluirEi macho tu vende este código?
ResponderExcluirEu compro........
Thiago Braga .
Nossa muita viagem! Mas é massa
ResponderExcluirProgram Boi;
ResponderExcluirVar
i, QtMaior, QtMenor: Integer;
QtMedio, QtAcima, QtAbaixo: Integer;
Maior, Menor, Soma, Media: Real;
Peso: Array [1..10] of Integer;
Begin
Soma := 0;
QtMedio := 0;
Write('Digite o peso do 1o. boi: ');
Read(peso[1]);
Maior := peso[1]; // O Primeiro é o mais pesado
QtMaior := 1;
Menor := peso[1]; // E também o mais leve
QtMenor := 1;
Soma := Soma + Peso[1];
For i := 2 to 10 do
Begin
Write('Digite o peso do ', i, 'o. boi: ');
Read(Peso[i]);
If Peso[i] > maior Then
Begin
Maior := Peso[i];
QtMaior := 1;
End
Else
If Peso[i] < Menor Then
Begin
Menor := Peso[i];
QtMenor := 1;
End
Else
Begin
If Peso[i] = Maior then
QtMaior := QtMaior + 1;
If Peso[i] = Menor then
QtMenor := QtMenor + 1;
End;
Soma := Soma + Peso[i];
End;
Media:= Soma / 10;
For i := 1 to 10 do
Begin
If peso[i] = media then
QtMedio := QtMedio + 1
Else
If peso[i] > media then
QtAcima := QtAcima + 1
Else
If peso[i] < media then
QtAbaixo := QtAbaixo + 1;
End;
Writeln;
Writeln('Maior peso...........: ', Maior:0:0);
Writeln('Quant c/ maior peso..: ', QtMaior);
Writeln('Menor peso...........: ', Menor:0:0);
Writeln('Quant c/ menor peso..: ', QtMenor);
Writeln('Peso médio...........: ', Media:0:0);
Writeln('Quant c/ peso médio..: ', QtMedio);
Writeln('Quant acima da média.: ', QtAcima, ' (', QtAcima * 10, '%)');
Writeln('Quant abaixo da média: ', QtAbaixo, ' (', QtAbaixo * 10, '%)');
End.
Thiago mercenario haushuahsuahuaush
ResponderExcluirEste comentário foi removido pelo autor.
ResponderExcluirBoa idéia!
ResponderExcluirAssim podemos otimizar esse monte de chifre! kkkkkk!
é Bom quem me segui tbm galera kkk
ResponderExcluirPAINTBOLL dia 12/06 dia de domingo confirmem....
ResponderExcluirEste comentário foi removido pelo autor.
ResponderExcluirai galera finalizado....
ResponderExcluirvar
peso: array [1..5] of real;
contador,imedia:integer;
soma_peso,calc_media,maior_peso,menor_peso:real;
abaixo,quat_i:integer;
Begin
maior_peso:=0;
menor_peso:=999;
contador:=0;
imedia:=0;
abaixo:=0;
quat_i:=0;
writeln('digite uma sequencia de cinco pesos de bois para saber sua média');
writeln;
write('digite o peso 1 :');
readln(peso[1]);
write('digite o peso 2 :');
read(peso[2]);
write('digite o peso 3 :');
read(peso[3]);
write('digite o peso 4 :');
read(peso[4]);
write('digite o peso 5 :');
read(peso[5]);
writeln;
if peso[1] >maior_peso then
maior_peso:=peso[1];
if peso[2] >maior_peso then
maior_peso:=peso[2];
if peso[3] >maior_peso then
maior_peso:=peso[3];
if peso[4] >maior_peso then
maior_peso:=peso[4];
if peso[5] >maior_peso then
maior_peso:=peso[5];
write(' o maior peso é :',maior_peso:2:2,'kg');
writeln;
if peso[1] calc_media) then
contador:=contador+1;
if (peso[2] >calc_media) then
contador:=contador+1;
if (peso[3] >calc_media) then
contador:=contador+1;
if (peso[4] >calc_media) then
contador:=contador+1;
if (peso[5] >calc_media) then
contador:=contador+1;
write(' A quant. de bois acima da média são: ',contador);
writeln;
if (peso[1] =calc_media) then
imedia:=imedia+1;
if (peso[2] =calc_media) then
imedia:=imedia+1;
if (peso[3] =calc_media) then
imedia:=imedia+1;
if (peso[4] =calc_media) then
imedia:=imedia+1;
if (peso[5] =calc_media) then
imedia:=imedia+1;
write(' A quant. de bois na media :',imedia);
writeln;
if (peso[1] <calc_media) then
abaixo:=abaixo+1;
if (peso[2] <calc_media) then
abaixo:=abaixo+1;
if (peso[3] <calc_media) then
abaixo:=abaixo+1;
if (peso[4] <calc_media) then
abaixo:=abaixo+1;
if (peso[5] <calc_media) then
abaixo:=abaixo+1;
write(' A quant. de bois abaixo da media são :',abaixo);
writeln;
if peso[1] =maior_peso then
quat_i:=quat_i+1;
if peso[2] =maior_peso then
quat_i:=quat_i+1;
if peso[3] =maior_peso then
quat_i:=quat_i+1;
if peso[4] =maior_peso then
quat_i:=quat_i+1;
if peso[5] =maior_peso then
quat_i:=quat_i+1;
write(' A quant. de boi com maiores pesos :',quat_i);
writeln;
End.
Voces deviam posta coisas + Interessantes ...
ResponderExcluirEssas Merdas de programação é foda... kkk
Pelo menos coloquem o arquivo em .RAR e postem o download... nao coloquem assim jogado na tela pois fica ate dificil encontra os comentarios
legais!!!!
primeiro ano letivo fico para traz... agora
ResponderExcluiro bicho pega... é onde a criança chora e a mãe nao esculta... é o big brother 2 ;0
e ai abandonaram o blog?
ResponderExcluirKd a turma? se desfez?