Jogo plantas vs zumbis

Pra desopilar, o jogo que fez muito neguinho não prestar atenção nas aulas, aproveitem que as feria tão chegando.

http://www.4shared.com/file/ib79lR7P/Plants_vs_Zombies__BR_.html

Vídeo aulas Prof. Neri

Uma bela ajuda pra quem ta com dificuldade em algoritmo e ainda não comprou os dvds do Thiago.

DVD 1

parte1

parte2

parte3

parte4

parte5

DVD 2
parte1

parte2

parte3

VETOR DA MORTE

02) FAÇA UM PROGRAMA QUE PREÊNCHA UM VETOR DE 5 POSIÇÕES SENDO QUE

ESTE ACUSE QUANDO FOR DIGITADO UM NUMÉRO REPETIDO.

PROGRAM QUESTAO_02 ;

VAR V : ARRAY [1..6] OF INTEGER;

    A,B,I,C : INTEGER;   

 BEGIN

FOR I := 1 TO 6 DO

   V[I] := 0;

 A := 0; B := 0;

   WHILE B < 6 DO

       BEGIN

         WRITE('DIGITE O NUMERO DA ',B,' POSIÇÃO: ');

         READ(A); WRITELN;

         C := 0; I := 0;

           WHILE I < 6 DO

                BEGIN

                  I := I +1;

                  IF A = V[I] THEN

                    BEGIN

                      WRITELN('ESTE NÚMERO JA FOI DIGITADO');

                      C := 6;

                    END;

                  IF V[I] = 0 THEN

            BEGIN

              V[I] := A;

              B := B +1;

                IF B < 6 THEN

                  BEGIN

                   WRITE('DIGITE O NUMERO DA ',B,' POSIÇÃO: ');

                   READ(A); WRITELN; 

                       I := 0;

                     END;

               END;

             IF C = 6 THEN

               I := C;

           END;

     END;

  FOR I := 1 TO 6 DO

    WRITELN('O NÚMERO DA POSIÇÃO ',I,' É: ',V[I]);

 END.

OS BOIS DO ALEXANDRE

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.