Pesquisa de Audiencia de tv

program pesquisaaudiencia;
var
c4tvs:integer;{quantidade de tvs ligadas no canal 4}
c12tvs:integer;{quantidade de tvs ligadas no canal 12}
c71tvs:integer; {quantidade de tvs ligadas no canal 71}
c33tvs:integer; {quantidade de tvs ligadas no canal 33}

c4pessoas:integer;{quantidade de pessoas assistindo o canal 4}

c12pessoas:integer;{quantidade de pessoas assistindo o canal 12}
c71pessoas:integer;{quantidade de pessoas assistindo o canal 71}
c33pessoas:integer; {quantidade de pessoas assistindo o canal 33}

canaltv: integer; {canal assistido no local}
pessoas:integer; {numero de pessoas assistindo tv no local}
Somatvs:integer;{soma das tvs ligadas no canal 4 e canal 12}
Somapessoas:integer;{soma das pessoas assistindo canal 4 e canal 12}

Porcpessoasc4, Porctvsc4, Porcpessoasc12, Porctvsc12, Porcpessoasc33, Porctvsc33, Porcpessoasc71, Porctvsc71 : real; {porcentagens canal 4,12,33,71}

begin
c4tvs:= 0; {quantidade de tvs ligadas no canal 4}
c12tvs:= 0; {quantidade de tvs ligadas no canal 12}

c71tvs:=0; {quantidade de tvs ligadas no canal 71}
c33tvs:=0; {quantidade de tvs ligadas no canal 33}

c4pessoas:= 0; {quantidade de pessoas assistindo o canal 4}

c12pessoas:= 0; {quantidade de pessoas assistindo o canal 12}
c71pessoas:=0; {quantidade de pessoas assistindo o canal 71}
c33pessoas:=0; {quantidade de pessoas assistindo o canal 33}

write ('forneça o numero do canal');
readln(canaltv); {obtem o canal}

while (canaltv <> 0) do
begin
write ('forneça o numero de pessoas assistindo o canal');
readln(pessoas);{obtem o numero de pessoas que assistem o canal}

if (canaltv = 4) {é canal 4?}

then
begin
c4tvs:=c4tvs+1; {acumula tvs canal 4}
c4pessoas:=c4pessoas+pessoas;{acumula pessoas canal 4}
end
else

begin
if (canaltv=12) {é canal 12?}

then
begin
c12tvs:=c12tvs+1; {acumula tvs canal 12}
c12pessoas:=c12pessoas+pessoas;{acumula pessoas canal 12}
end

else
begin
if (canaltv=71) {é canal 71?}
then
begin
c71tvs:=c71tvs +1;
c71pessoas:=c71pessoas + pessoas;
end
else
begin
if (canaltv=33){é canal 33?}
then
begin
c33tvs:=c33tvs +1;
c33pessoas:=c33pessoas +pessoas;
end
else
begin
writeln('Os canais da pesquisa sao 4,12,71 e 33'); {Se não for algum dos canais em questão}
end
end
end

end;
writeln('forneça outro numero do canal(0 para encerrar)');
readln(canaltv); {obtem outro canal}
end;

{Calcula as porcentagens}

if ((c4tvs=0) and (c12tvs=0) and (c71tvs=0) and (c33tvs=0)) or ((c4pessoas=0) and (c12pessoas=0) and (c71pessoas=0) and (c33pessoas=0))

then
begin
writeln('Erro: não faz divisão por zero');
end
else

if (canaltv = 4) or (canaltv = 12) or (canaltv = 71) or (canaltv =33) or (canaltv=0)
then
begin
Somapessoas:= c4pessoas+c12pessoas+

c71pessoas+c33pessoas;
Somatvs:= c4tvs+c12tvs+c71tvs+c33tvs;

Porcpessoasc4:= (c4pessoas/Somapessoas)*100;
Porcpessoasc12:= (c12pessoas/Somapessoas)*100;

Porcpessoasc71:=(c71pessoas/Somapessoas)*100;
Porcpessoasc33:=(c33pessoas/Somapessoas)*100;

Porctvsc4:= (c4tvs/Somatvs)*100;
Porctvsc12:= (c12tvs/Somatvs)*100;

Porctvsc71:=(c71tvs/Somatvs)*100;
Porctvsc33:=(c33tvs/Somatvs)*100;

{Mostra as porcentagens}
writeln('% de tvs ligadas no canal 4',Porctvsc4);
writeln('% de pessoas assistindo o canal 4',Porcpessoasc4);
writeln('% de tvs ligadas no canal 12',Porctvsc12);
writeln('% de pessoas assistindo o canal 12',Porcpessoasc12);

writeln('% de tvs ligadas no canal 71',Porctvsc71);
writeln('% de pessoas assistindo o canal 71',Porcpessoasc71);
writeln('% de tvs ligadas no canal 33',Porctvsc33);
writeln('% de pessoas assistindo o canal 33',Porcpessoasc33);
end
end.

Conversão de temperatura

program temperaturaluisacosta;
var
C,F,K,R:real; {variáveis para temperaturas}
  begin
{entrada de dados}
writeln('forneça a temperatura em farhenheit');
readln(F);
{ebulição da agua em kelvin = 373,15 K}
writeln('forneça a temperatura em kelvin');
readln(K);
{fusão do gelo em rankine = 491,7 R}
writeln('forneça a temperatura em rankine');
readln(R);

C:=(5/9)*(F-32);{conversão da temperatura de celsius para farhenheit}
{saída de dados}
writeln(F,'graus farhenheit,corresponde a');
writeln(C,'graus centigrados');

C:=(K-273.15);{conversão da temperatura de celsius para kelvin}
{saída de dados}
writeln(K,'graus kelvin,corresponde a');
writeln(C,'graus centigrados');

C:=((R/1.8)- 273.15);{conversão da temperatura de celsius para rankine}
{saída de dados}
writeln(R,'graus rankine,corresponde a');
writeln(C,'graus centigrados');

  end.

Soma dos numeros divisiveis por n entre a e b

program soma32a120;

  var
    soma: integer;
    i: integer;
  begin
    soma := 0;
    i := 35;
    while  i <= 120 do
      begin
        if(i mod 7 = 0) then
          begin
            soma := soma + i;
          end;
        i := i + 1;
      end;

    writeln('A soma dos números divisíveis por 7 entre 35 e 120 é: ', soma);
end.

Soma dos numeros divisiveis por 7 entre 32 a 120

program soma32a120;

  var
    soma: integer;
    i: integer;
  begin
    soma := 0;
    i := 35;
    while  i <= 120 do
      begin
        if(i mod 7 = 0) then
          begin
            soma := soma + i;
          end;
        i := i + 1;
      end;

    writeln('A soma dos números divisíveis por 7 entre 35 e 120 é: ', soma);
end.

Que dia é amanhã?

program quediaeamanha;

   var d, m, a, ds, ms, as: integer;
   function diasnestemes (dias:integer; mes:integer; ano:integer):integer;{retorna o número de dias de cada mes}
     begin
       if (mes=1) or (mes=3) or (mes=5) or (mes=7) or (mes=8) or (mes=10) or (mes=12) then {Meses com 31 dias}
          dias:=31;
       if (mes=4) or (mes=6) or (mes=9) or (mes=11) then {Meses com 30 dias}
          dias:=30;
       if (mes=2) then {mes com 28 ou 29 dias, dependendo se é ano bissexto ou não}
          begin
            if (ano mod 400=0) then
               dias:=29;
            if (ano mod 400<>0) then
               dias:=28;
          end;
      diasnestemes:= dias;
     end; {fim da função que retorna quantos dias tem cada mês}

begin
  writeln('forneca o dia');
  readln(d);
  writeln('forneca o mes');
  readln(m);
  writeln('forneca o ano');
  readln(a);
  writeln('O numero de dias do mes é:', diasnestemes(d,m,a));
  if (diasnestemes(d,m,a)=31) then
     begin
       if (d=31) then
          begin
            ds:=1;
            ms:=m+1;
            as:=a;
          end;
       if (d<>31) then
          begin
            ds:=d+1;
            ms:=m;
            as:=a;
          end;
     end;
  if (diasnestemes(d,m,a)=30) then
     begin
       if (d=30) then
          begin
            ds:=1;
            ms:=m+1;
            as:=a;
          end;
       if (d<>30) then
          begin
            ds:=d+1;
            ms:=m;
            as:=a;
          end;
     end;
  if (diasnestemes(d,a,m)=29) then
     begin
       if (d=29) then
          begin
            ds:=1;
            ms:=m+1;
            as:=a;
          end;
       if (d<>29) then
          begin
            ds:=d+1;
            ms:=m;
            as:=a;
          end;
     end;
  if (diasnestemes(d,m,a)=28) then
     begin
       if (d=28) then
          begin
            ds:=1;
            ms:=m+1;
            as:=a;
          end;
       if (d<>28) then
          begin
            ds:=d+1;
            ms:=m;
            as:=a;
          end;
     end;
  if (m=12) then
     begin
       ds:=1;
       ms:=1;
       as:=a+1;
     end;  
  writeln('Amanha é dia:', ds,'/',ms,'/',as);

end.
    

Poligono regular qualquer

program poligonoregularqualquer;

var
   n:integer;{numero de lados}
   l:integer;{tamanho do lado}
   Sai:real;{soma dos angulos internos}
   ai:real;{angulo interno}
   a:real;{angulo suplementar ao angulo interno}
   i: integer; {contador de repetição}

begin
  writeln('digite o numero de lados n do poligono');
  readln(n);
  writeln('digite o tamanho l dos lados');
  readln(l);

  Sai:= 180*(n-2);
  ai:= Sai/n;
  a:= 180-ai;

  i:= 1;
  while i<= n do
     begin
       i:= i+1;
       pdireita(a);
       pfrente(l);
     end;
  end.

Notas de um aluno

program notasampliado;

  var
    av1: real;
    av2: real;
    av3: real;
    notaTotal: real;

  begin
    writeln('Entre com a nota do aluno na avaliação 1: ');
    readln(av1);  
       while (av1<0) or (av1>30) do
          begin {repete enquanto as notas forem menores que 0 ou maiores que 30}
            writeln('Notas inválidas! Digite notas de 0 a 30!');
            readln(av1);
          end;

    writeln('Entre com a nota do aluno na avaliação 2: ');
    readln(av2);
       while (av2<0) or (av2>30) do
          begin {repete enquanto as notas forem menores que 0 ou maiores que 30}
            writeln('Notas inválidas! Digite notas de 0 a 30!');
            readln(av2);
          end;

    writeln('Entre com a nota do aluno na avaliação 3: ');
    readln(av3);
       while (av3<0) or (av3>40) do
          begin {repete enquanto as notas forem menores que 0 ou maiores que 40}
            writeln('Notas inválidas! Digite notas de 0 a 40!');
            readln(av3);
          end;

   
    notaTotal := av1 + av2 + av3;
    writeln('A nota total do aluno é: ', notaTotal);

    if notaTotal < 60 then
      begin
        writeln('O aluno foi reprovado');
      end
    else
      begin
        writeln('O aluno foi aprovado');
      end
  end.

Maquina do tempo

program maquinadotempo;
  Var N,X,i,a:integer;

  begin
  writeln('forneça o ano de nascimento da pessoa');
  readln(N);
  writeln('forneça o ano atual');
  readln(X);
  i:=(X-N);
  writeln('a idade da pessoa é',i);
  a:=(2048-N);
  writeln('a idade da pessoa em 2048 é', a);
  end.

Calcula dia da semana

program diaSemana;
  var dia: integer;
  mes: integer;
  ano: integer;

  function calculaDiaSemana(dia: integer; mes: integer; ano: integer): String;
    var seculo: integer;
         semana: integer;
         MDS: integer;
        nomeDia: String;
    begin

      seculo := ano div 100;

      if (mes < 3) then
        begin
          mes := mes + 12;
          ano := ano - 1;
        end;

      ano := ano mod 100;

      semana := dia + (((mes+1)*26) div 10) + ano + (ano div 4) + (seculo div 4) + (5*seculo);

      MDS := semana mod 7;

      if MDS = 0 then
        nomeDia := 'Sábado'
      else if MDS = 1 then
        nomeDia := 'Domingo'
      else if MDS = 2 then
        nomeDia := 'Segunda-Feira'
      else if MDS = 3 then
        nomeDia := 'Terça-Feira'
      else if MDS = 4 then
        nomeDia := 'Quarta-Feira'
      else if MDS = 5 then
        nomeDia := 'Quinta-Feira'
      else if MDS = 6 then
        nomeDia := 'Sexta-Feira';

      calculaDiaSemana := nomeDia;
   end;

   begin
     writeln('Entre com o dia: ');
     readln(dia);
     writeln('Entre com o mes: ');
     readln(mes);
     writeln('Entre com o ano: ');
     readln(ano);

     if ((dia >= 1) and (dia <= 31) and (mes >= 1) and (mes <= 12) and (ano > 1582)) then
       writeln('O dia da semana é: ', calculaDiaSemana(dia, mes, ano))
     else
       writeln('Data inválida');

  end.

Desenha cubo

program cubo;
{Declarações}

  begin
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(45);
pfrente(40);
pdireita(45);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(180);
un;
pfrente(150);
pdireita(45);
ul;
pfrente(40);
pesquerda(135);
un;
pfrente(150);
pesquerda(45);
ul;
pfrente(40);
un;
pesquerda(45);
pfrente(150);
pesquerda(135);
ul;
pfrente(40);
dr;
  end.

Desenha casinha (quadrado com triangulo em cima)

program desafio5fvmluisacosta;
{Declarações}

  begin
clrscr; 
ul;
pfrente(200);
pdireita(90);
pfrente(200);
pdireita(90);
pfrente(200);
pdireita(90);
pfrente(200);
un;
pdireita(90);
pfrente(200);
pdireita(30);
ul;
pfrente(200);
pdireita(120);
pfrente(200);
dr;

  end.

Classifica multiplicidade de um número

program classificamultiplicidade;

  var numero: integer;

begin

  writeln('Digite um numero');

  readln(numero);

  while (numero>0) do

      begin

        if numero mod 3 =0 then

           begin

             if numero mod 5 =0 then

                begin

                  writeln('M35');

                  writeln('Digite um numero');

                  readln(numero);

                end

              else

                begin

                  writeln('M3');

                  writeln('Digite um numero');

                  readln(numero);

                 end

           end

        else

           begin

             if numero mod 5 =0 then

                begin

                  writeln('M5');

                  writeln('Digite um numero');

                  readln(numero);

                end

             else

                begin

                  writeln('Nao multiplo');

                  writeln('Digite um numero');

                  readln(numero);

                end

           end

      end

end.

Desenha uma circunferencia

program circunferencia;
{Declarações}
var C:integer;
  begin
  for C:= 1 to 360 do
     begin
       pfrente(1);
       pdireita(1);
     end;
dr;

  end.

Peso ideal de um homem e de uma mulher

program calculaPesoIdealHomemMulher;
 
  var alturaHomem: real; {altura de um homem que se queira saber o peso ideal}
      alturaMulher: real; {altura de uma mulher que se queira saber o peso ideal}
  function calculaPesoIdealHomem(altura: real): real;
    begin
      calculaPesoIdealHomem := 22*(altura*altura);
    end;
  function calculaPesoIdealMulher(alt: real): real;
    begin
      calculaPesoIdealMulher := (20.8)*(alt*alt);
    end;


begin
    writeln('Digite a altura de um homem: ');
    readln(alturaHomem);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaHomem));
    writeln('Digite a altura de uma mulher: ');
    readln(alturaMulher);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaMulher));
end.

Peso ideal de um homem

program calculaPesoIdealHomemAmpliado;

  var alturaHomem: real; {altura do homem que se quer saber o peso ideal}
      pesoHomem: real; {peso do real homem}
      porcentagem: real; {porcentagem acima ou abaixo do peso ideal}
  function calculaPesoIdealHomem(altura: real): real; {função que retorna o valor do peso ideal de um homem}
   
    begin
      calculaPesoIdealHomem := 22*(altura*altura);
    end;

begin
    writeln('Digite a altura de um homem: ');
    readln(alturaHomem);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaHomem)); {retorna o valor do peso ideal de um homem}
    writeln('Digite o peso de um homem: ');
    readln(pesoHomem);
    porcentagem := (((pesoHomem*100)/calculaPesoIdealHomem(alturaHomem)) - 100);
    if porcentagem < 0 then
       writeln('O homem está abaixo do peso ideal e a porcentagem é: ', porcentagem);
    if porcentagem > 0 then
       writeln('O homem está acima do peso ideal e a porcentagem é: ', porcentagem);
    if porcentagem = 0 then
       writeln('O homem está no peso ideal: ', porcentagem);

end.

Area de um triangulo

program areatriangulo;
{Declarações}
Var
    area, altura, base: real;
begin
  write ('Digite a altura do triangulo: ');
  Readln(altura);
  write ('Digite a base do triangulo: ');
  Readln(base);
  area := (altura*base)/2;
  writeln ('A área do triângulo é igual a: ',area);
end.

Area da circunferência

program areacircunferencia;
    var A, r:real;
  begin
    writeln('forneça o valor do raio');
    readln(r);
    A:=(PI*r*r);
    writeln('o valor da area da circunferencia é:', A);
  end.

Achar o menor e maior número

program achamaioremenor;

   var

     numero:integer;

     maior:integer;

     menor:integer;

begin

  write('Forneca um valor');

  readln(numero);

  writeln(numero);

  maior:=numero;

  menor:=numero;

  while (numero>0) do

     begin

       if numero>maior then

          maior:=numero;

       if numero

          menor:=numero;

       write('Forneca outro valor ou 0 para parar:');

       readln(numero);

     end;

  writeln('O maior valor e:', maior);

  writeln('O menor valor e:', menor);

end.

Achar o maior número

program achamaior;

var
    numero:integer;
    maior:integer;

begin
     write('Forneca um valor');
     readln(numero);
     writeln(numero);
     maior:=0;
     while (numero>0) do
            begin
                  if numero>maior then
                        maior:=numero;
                        write('Forneca outro valor ou 0 para parar:');
                        readln(numero);
            end;

     writeln('O maior valor e:', maior);

end.

Resumo do que foi aprendido até hoje

   Neste guia de estudos 1 aprendemos os primeiros comandos do pascaL. Comandos estes que determinavam o que o robô do pascaL deveria fazer. Aprendemos a fazer figuras como polígonos, desenhos e simples retas com a expessura diferenciada. No guia de estudos 1 o desafio mais difícil que achei foi o próprio desafio da temperatura, em que se convertiam temperaturas em farhenheit e kelvin em celsius. Já os mais fáceis foram os desafios de retas, quando começamos a trabalhar com os comandos. O que mais gostei foi o da temperatura mesmo, pois foi o que mais precisou de atenção e um pouco mais de trabalho, o que menos gostei foi o desafio 10 do faça você mesmo, no qual deveriamos fazer um cubo. A proposta é legal, mas como ainda não usávamos um comando de repetição que simplificasse o programa do cubo, não foi muito bom repetir os mesmos comandos o tempo todo.
   No Guia de Estudos 2 vimos que um programa de computador é formado por um conjunto de comandos em uma linguagem que o computador consegue ler, interpretar e executar. Mas antes de começar a fazer os programas de computador aprendemos a fazer o algoritmo do programa, que é a lógica da solução para um determinado problema. Depois do algoritmo, há a estrutura de dados associada, que é a organização dos dados na memória do computador para acomodar a solução, e ainda temos uma interface, descrição de como o usuário do programa irá interagir com o programa. Vimos que existem diferentes formas de resolver um problema com uma programação, assim como existem vários algoritmos para um mesmo problema. Não achei nenhum desafio deste guia de estudo mais difícil, mas o que achei um pouco mais complicado foi o desfio do leão, cabra e grama que deviam ir de um lado ao outro de um rio. O mais fácil foi o de fazer um algoritmo para trocar uma lâmpada, porque você simplesmente tem que pensar nos passos que você realizar para realizar esta troca. Gostei muito dos jogos open doors e shift, que são até um pouco viciantes! Não teve
nenhum que não gostei de fazer, todos foram bem bacanas.
   O guia de estudos 3, explorando o pascaL, ensinou o uso das variáveis e da estrutura de repetição FOR. Uma variável representa uma posição na memória do computador, possui um nome e um tipo além de poder ter o seu valor variado ao longo do tempo, durante a execução do programa. E a estrutura de repetição FOR é um programa que repete os comandos pelo tanto de vezes que você precisar, evitando assim que você digite os mesmos comandos no programa diversas vezes. Quando o comando se repete inúmeras vezes se torna inviável que você faça o programa sem a estrutura FOR. O desafio que mais gostei foi o da maquina do tempo, que pude testar varias idades diferentes e o que menos gostei foi do cálculo da área da circunferencia que deu uns probleminhas enquanto eu tentava compilar que demorei um pouco para resolver. Os mais fáceis foram os exercícios do passo a passo, pois a gente já tinha os algoritmos deles. O mais dificl na verdade foi o que me deu mais trabalho, o calculo de circunferencia.
   O guia de estudos 4, de estruturas de controle, para mim, foi o mais difícil e complicado. Ele apresenta os comandos mais elaborados e comandos novos que ainda não tínhamos aprendido. Nele vimos os comandos de controle sequencial, em que formam os comandos em sequencia. Os comandos de controle repetitivos, nos quais temos o grupo com as estruturas de for, while e repeat. O comando for implementa uma estrutura de controle repetitiva onde um conjunto de instruções é executado repetitivamente até que uma dada condição ocorra. O comando while é uma forma mais geral do FOR, uma vez que no FOR só aceita acréscimos de +1 e -1, enquanto no while os acréscimos podem ser de outros valores. O repeat faz a implementação do bloco de controle de repetição com a sentinela no final. Nos comandos de controle alternativo está o if-then-else, que é usado do seguinte modo. Dependendo de uma condição, um determinado conjunto de instruções é executado. Dependendo de outras condições, um conjunto alternativo de questões é executado. E gostei do desafio da sequencia que é um desafio bem curioso e cheio de detalhes, não gostei muito do desafio do troco, porque foi exatamente o mais fácil deles. Já o mais dificil foi o das estatisticas das idades que não consegui fazer o programa ainda.
   Eu gosto deste método de estudo porque faz você realmente pensar e pesquisar a respeito para conseguir fazer o desafio. O que eu tenho para sugerir é que não coloque tanta matéria nova em um mesmo guia de estudo como houve no quarto guia de estudo, pois confunde muito uma com a outra. Quanto ao video aprender a aprender eu gostei muito e consegui ver a relação com minha vida estudantil, pois assim como a personagem tenho que aprender as coisas mais fáceis e simples para poder aprender a fazer coisas mais difíceis. Além disso pude ver também que não se pode desistir tão facilmente, você pode não conseguir de primeira mas se você continuar a tentar você irá conseguir.

Shift e Open door

Shift: http://www.haznosblog.kit.net/2008/shift/
Open door:  http://www.kongregate.com/games/soapaintnice/open-doors

Escolhi o jogo Open door para fazer a atividade. Foi fácil aprender a jogar o open door e não tive muitas dificuldades até atingir a fase 8, que não tive muita paciência de continuar a jogar. Porém como eu precisava fazer o algoritmo da fase 2 não foi muito difícil. As intruções do jogo foram bem claras e sem nenhuma dificuldade de compreensão. 

Meu primeiro desenho em pascal

Não foi exatamente o primeiro, mas foi um dos primeiros que eu fiz.
Código:


program desafio9fvmluisacosta;
  begin
 pfrente(40);
pdireita(90);
pfrente(40);
pdireita(90);
pfrente(40);
pdireita(90);
pfrente(40);
un;
pdireita(180);
pfrente(40);
pesquerda(90);
ul;
pfrente(80);
pdireita(90);
pfrente(80);
pdireita(90);
pfrente(80);
pdireita(90);
pfrente(80);
pdireita(180);
pfrente(40);
pesquerda(90);
pfrente(40);
pdireita(90);
pfrente(40);
pdireita(90);
pfrente(40);
pdireita(90);
pfrente(40);
dr;
end.

Estilos de Pensamentos

Depois de realizar o teste de estilo de pensamento, o resultado que encontrei foi:

Sequencial => Concreto = 96
                         Abstrato = 112
Aleatório => Abstrato = 112
                      Concreto = 160

Interpretação dos resultados

Pensador seqüencial concreto (SC)

São aqueles que se fundamentam na realidade e processam a
informação de uma maneira disciplinada, seqüencial (linear).
Para estes a realidade consiste naquilo que eles podem detectar
através dos seus sentidos físicos (cheiro, gosto, som, poder tocar, poder ver, etc.).
Eles percebem e relembram detalhes com facilidade, podendo
também recordar, sem esforço regras, fórmulas, datas e informações específicas.
Deixar por a "mão na massa" é uma boa maneira para que essas pessoas
aprendam (é o caso de alunos que se desenvolvem muito bem nos laboratórios
ou após terem passado por eles).
Caso alguém seja SC, então procura obter para si a maior quantidade de
detalhes, precisa planejar o tempo adequado que irá gastar no projeto no qual
vai entrar, necessita desdobrar o seu trabalho em etapas para poder,
a cada momento, verificar se está dentro do cronograma, e finalmente
deve ter um local sossegado para trabalhar sem que alguém interfira na
sua concentração.

Pensadores aleatórios concretos (AC)

São, na realidade, os experimentadores.
Assim como os SC, eles também se apoiam na realidade, porém desejam
tomar mais o enfoque de tentativa e erro.
Em vista disso, eles freqüentemente fazem os saltos quânticos intuitivos
necessários para o verdadeiro pensamento criativo.
Os AC precisam encontrar alternativas para fazer as coisas à sua moda.
Usam bastante o pensamento divergente, acreditam que é bom ver as
coisas de vários ângulos, colocam a si mesmos numa posição que os leva a
apresentar-se como voluntários para resolver problemas, estabelecem as
próprias metas, aceitam a necessidade de mudança e preferem trabalhar
em equipe com pessoas que dão valor ao pensamento divergente.

Pensadores aleatórios abstratos (AA)

Organizam a informação através da reflexão e desenvolvem-se em
ambientes não estruturados, voltados para as pessoas.
O mundo real para os aprendizes AA é aquele dos sentimentos e das emoções.
Os pensadores AA absorvem as idéias, as informações e as impressões,
e a seguir as organizam através da reflexão.
Os AA lembram-se melhor da informação quando ela é personalizada.
Eles se sentem pressionados e pouco à vontade quando são confinados
num ambiente muito estruturado.
Caso alguém seja mais AA do que as outras categorias, deve usar sua
aptidão natural para trabalhar com os outros, precisa reconhecer com que
intensidade as emoções influenciam a sua concentração, necessita construir
o seu poder de aprender através da associação, deve buscar inicialmente ter a
visão de todo o quadro e ter o cuidado de alocar tempo suficiente acabar
todo o serviço.
Quem é um típico AA geralmente não consegue estudar ou ver todo o
material que será pedido numa prova escolar antes da realização dela.

Pensador seqüencial abstrato (SA)

São aqueles que amam o mundo da teoria e o pensamento abstrato.
Eles adoram pensar em conceitos e analisar a informação.
Geralmente os SA são os que se tornam grandes filósofos ou cientistas
pesquisadores!
Para os SA é fácil fazer uma ampliação (zoom) daquilo que é importante, como,
por exemplo, expandir os pontos-chave e os detalhes significantes.
A atividade favorita dos SA é a leitura e, quando um projeto precisa ser
pesquisado, eles se comportam de forma extremamente cuidadosa e
meticulosa, pois os seus processos de pensamento são lógicos, racionais.
Geralmente os SA preferem trabalhar sozinhos a ser componentes de um grupo.
As sugestões para aqueles que são exageradamente SA é que façam mais
exercícios de lógica e busquem compreender um pouco melhor de pensamento
de outras pessoas para ter mais facilidade de compreendê-las e conviver com elas.



 
Eu concordo com o resultado do meu teste porque sempre tento ver as coisas de vários angulos diferentes e estabeleço minhas próprias metas. Mas vi também muito de mim mesma no pensamento aleatório abstrato, quando se trata de absorver as idéias, as informações e as impressões e a seguir organiza-las através da reflexão. Foram os dois resultados que mais enxerguei alguma relação com meu modo de pensar e agir.