MATRIZ E VETOR

Bom galera, primeiramente muito obrigado pela visita, vamos dar continuidade no assunto de vetores e matrizes, olha se vocês ficaram assustados com o que leram no post anterior não precisa ter medo tudo é questão de treino.

O grande tesão da programação é saber utilizar todos os recursos que alguém que você nunca viu criou, todos sabem que um compilador transforma todo o seu código em algo que o computador consiga entender, então fica tranquilo, vai pegar um copo com café que o assunto é tranquilo, afinal a parte mais difícil já esta pronta vai por mim.Vamos lá já fiz muito lengalenga aqui rsrsrsrs...

Quando criamos um vetor ou matriz o compilador já diz pra nossa querida memoria, amigona já reserva ai espaço, pois hoje você vai trabalhar, sim é basicamente isso que acontece dentro do seu computador no momento que criamos um vetor, matriz ou qualquer outra coisa que esteja sendo processada no seu computador tem um espaço na memoria garantido, isso tudo acontece tão rápido essa troca de informações que acabamos nem nos dando conta do que realmente acontece.

Um vetor ou uma matriz nada mais é que uma estrutura de dados do mesmo tipo, essa estrutura possui um numero fixo de dados.

Podemos usar os seguintes dados:integer(inteiros),char(caracter), boolean, string ,registro .

Vamos agora a sintaxes dessas duas novas funções:

ARRAY e OF utilizamos essas duas palavras reservadas para definir um vetor ou uma matriz ,fica da seguinte forma: quando declararmos logo após o VAR vetor: array (1..25) of integer;

Exemplo:

Program Vetor; var vetor:array[1..10]of integer; x:integer; Begin for x:=1to 10 do {inserindo os dados que ficarão no vetor} begin writeln('digite o ',x,' numero'); read(vetor[x]); end; clrscr; //limpa a tela // agora vamos apresentar os dados For x:=1 to 10 do //nesse bloco de repetiçao vemos imprimir o vetor begin write(' ',vetor[x],' '); end; end.

esse programa esta disponivel aqui

A matriz funciona de forma parecida porem tem dois índices ou mais, o que vai determinar isso é sua necessidade.

Usamos as mesma palavras reservadas porem na declaração só acrescentamos a virgula após a definição do primeiro indicie e definimos o tamanho: matriz: array [1..10,1..10] of integer;

Ai criamos uma coleção com dois índices nesse momento,utilizei uma matriz 3*3 significa que teremos 9 espaços nessa matriz.

Fica da seguinte forma:

Program matriz; var matriz:array[1..3,1..3]of integer; y,x:integer; Begin for x:=1 to 3 do {inserindo os dados que ficarão da matriz} begin //o primeiro laço for X vai cuidar de indicar qual a linha e o laço Y a coluna que deve ser preenchida. for y:=1 to 3 do begin writeln('digite o [',x,',',y,']'); read(matriz[x,y]); end; end; clrscr; //limpa a tela // agora vamos apresentar os dados For x:=1 to 3 do //aqui apresentamos da mesma forma o X controla a linha e Y a coluna begin // OBS; no gotoxy como o primeiro valor é sempre coluna temos que indicar o Y //primeiro pois ele controla as colunas e x logo apois , for y:= 1to 3 do //pois se trata das linhas begin gotoxy(y,x) ;write(matrizr[x,y]); end; end; end.

esse programa esta disponivel aqui

É possível criar coisas bem interessantes com essa ferramenta , proponho alguns exercícios para que fixe bem essa questão de matriz e vetor.

Exercícios:

1) Escrever um programa que leia um vetor de 5 posições de elementos inteiros e crie a partir deste um segundo vetor (cópia do primeiro), substituindo os valores zeros do primeiro vetor, sempre que aparecerem, por 1. Mostrar os dois vetores.

2) Fazer um programa que leia um código numérico inteiro e um vetor de N posições com números reais. Se o código for zero, terminar o programa. Se o código for 1, mostrar o vetor na ordem direta. Se o código for 2 mostrar o vetor na ordem inversa.

3)Escrever um programa que leia uma matriz de N elementos inteiros e encontre e mostre o menor e o maior elemento e suas posições na matriz.

4) Fazer um programa que leia um conjunto de N valores numéricos inteiros e distribua-os entre duas matrizes, separando os números positivos e negativos. Mostrar os vetores (de positivos e negativos) ao final do processamento.

A melhor forma de entender os conceitos é treinando então mãos a obra pessoal com certeza vocês vao tirar de letra esses exercícios. Qualquer duvida entrem em contato conosco através do facebook ou mandando uma mensagem aqui no blog. Forte abraço pessoal, bons programas ai pra vocês.

todos os programas são propriedades do compiler.pas,para publicação entre em contato com nossa equipe.Obrigado

Continue Lendo...

INTRODUÇÃO VETOR E MATRIZ (ARRAYS)

Hey hey programadores, vamos entrar em um assunto que assombra muitas pessoas, por isso vamos até a cozinha pegar aquele pacote de bolacha água e sal que já esta quase vencendo, aquela sua caneca personalizada super maneira e encha de café, coloque as pantufas, se arrume na poltrona, coloque aquele som maneiro e vamos aprender...

Para entender Arrays é necessário prestar muita atenção, pois qualquer interpretação errônea pode causar muita dor de cabeça, vamos deixar as explicações o mais simples possível para melhor entendimento.

Mas agora você deve estar ai molhando a bolacha no café perguntando, mas que diabos são Arrays? Pois eu te digo que eles são:

Arrays são arranjos, para facilitar vamos chamar os arranjos de tabelas. Essas tabelas podem ser de 2 tipos, tabela unidimensional (vetor) e tabela bidimensional (matriz). Agora vamos começar a entender melhor, pois vou explicar cada tipo de arranjo separado.

Vetor (Tabela unidimensional)

O vetor é uma tabela que pode se expandir em única dimensão, no caso da programação em pascal ele se expande em colunas, jamais em linhas, vamos ver um exemplo de vetor:

Como podemos ver o vetor é uma tabela de varias colunas e uma linha (n x 1).

O encontro de uma linha com uma coluna, chamamos de célula e cada uma delas pode guardar um dado como no exemplo abaixo:

A célula pineal deve estar a todo vapor perguntando, mas como faço para pegar um dentro de um vetor se os dados estão dentro de células. Pois bem vou explicar.

Para identificar cada célula de um vetor utilizamos índices, ou seja, numeramos cada célula, assim conseguimos busca o dado correspondente. Exemplo:

Agora ficou bem mais fácil pegar um dado dentro do vetor, vamos supor que precisaríamos pegar a letra “G”, então iria ao índice de numero “7” e acharíamos a letra que procuramos. Se quisermos pegar a letra “C” iríamos ao índice de numero “3” e assim por diante, os dados que ficam dentro do vetor não interfere no índice.

Em um programa podemos utilizar vários vetores.

Vamos esticar os ossos, reabastecer a caneca personalizada, ir bathroom e vamos aos exemplos de matriz.

Matriz (Tabela Bidimensional)

A matriz é uma tabela que pode se expandir em duas dimensões, ou seja, ela vai se expandir tanto em colunas como em linhas, abaixo um exemplo de matriz:

Podemos perceber que a matriz é uma tabela com varias colunas e varias linhas (n x n).

Assim como no vetor temos o encontro de linhas com colunas (células) onde são guardados os dados:

Agora você deve ter visto a tabela matriz e espirrado café no teclado e perguntado, mas uma matriz é um conjunto de vetores,  como vou identificar que em tal coluna é aquele dado que eu quero usar.

Fácil, iremos utilizar novamente os índices, porem a célula é “numerada” conforme sua localização que será “coluna x linha”. Exemplo:

Agora tudo ficou mais claro, não é mesmo? Se formos pegar a letra “Q” por exemplo, nós vamos indicar a coluna depois a linha, neste caso coluna 7 linha 2. Então na célula 7x2 esta a letra “Q”.

Em um programa podemos utilizar varias matrizes e ate mesmo utilizar vetores neste mesmo programa.

Bem amigos programadores, ficamos por aqui com nossa introdução de Arrays, logo mais iremos entrar em algo mais prático, como utilizar os Arrays no pascal, como montara a sintaxe e onde o podemos utilizar.

Um grande abraço e até a próxima

Continue Lendo...

TOMADA DE DECISÃO #2 - Função CASE

Fala jovens garotos.., e garotas é claro. ‘:) Vamos dar continuidade a postagem que comecei a duas postagens atrás que foi sobre tomada de decisão. Bom, não será bem uma continuação, pois na oportunidade falamos sobre a função IF, agora, falaremos de uma função que tem a mesma semelhança de tomada de decisão. Imagine uma função que por meio da entrada de numero inteiro o programa ira fazer um comando e tomar um rumo. A função CASE funciona exatamente assim. Ai você vai pensar: “Brother.., a função IF não faz a mesma coisa” e eu lhe respondo jovens.. “Não.., não faz.”

Em termos a função IF toma uma decisão e escolhe o seu rumo conforme a sua resposta, o programa continua de duas formas, ou segue o caminho de forma verdadeira ou segue de forma falsa.  Claro que existem formas de encadear uma função IF com a outra. Fazendo assim um numero de funções if’s para chegar a um determinado ponto do programa, no qual, o seu resultado é obtido.

A função case não funciona exatamente assim. Ela nos traz a facilidade de montar e até mesmo organizar a sua linguagem de programação. (Claro jovem, tudo isto dependendo da ocasião). A função CASE não realiza nenhum teste lógico por parâmetros igual IF e sim realiza testes por comandos. Si ela achar uma entrada de um comando igual ao que esta declarado dentro da função ela vai fazer com que apenas essa parte do programa seja executada, logo em seguida vai continuar com a o programa que esta fora da função CASE. O legal é que com ela podemos fazer o programa tomar um rumo simples ou mesmo um rumo mais complexo,isso irá depender da sua necessidade e de como vai usá-la. Dizem que uma imagem vale mais do que mil palavras..

Esse é um exemplo de fluxograma para a função CASE. Existem outros exemplos de fluxo, mas como nosso foco aqui é mão na massa na programação, vamos explicar melhor abaixo como a função funciona na sintaxe. Tentarei ser o mais breve possível, porém ela precisa de mais atenção que a função IF, então acomodasse na sua poltrona com o notebook, na sua cadeira com em frente ao seu pc ou no travesseiro que você jogou no chão gelado porque sua mãe ta lavando o tapete da sala para ler no seu tablet e venha programar. (y)’

Analisem a situação:

• Vamos montar um programinha que faça diversos cálculos a partir de dois números que você entrar. Digamos que é algo como uma calculadora. Você terá que apresentar um cardápio contendo operações de soma, subtração, multiplicação e divisão.

Com a função IF que é a que conhecemos até agora, ele ficaria assim:

Program calculadora ; var  a,b,res:real; // declaração da variável dos dois números  op:integer; // declaração da variável da operação  Begin // inicio do programa    writeln ('Digite o primeiro numero');    readln(a);    writeln('Digite o segundo numero');    readln(b);    clrscr; //comando para apagar as informações acima    writeln('Digite o numero correspondente a operações abaixo. O que você quer fazer?');    writeln(' ');    writeln('1-Você quer somar'); // aqui esta o cardápio    writeln('2-Você quer subtrair');    writeln('3-Você quer multiplicar');    writeln('4-Você quer dividir'); // terminando aqui o cardápio    readln(op); // entrada da variável da operação    res:=0; //resultado entra como valor zerado antes do processamento       {Daqui para baixo começa o processamento para a operação para que o usuário escolher.    É justamente ai jovem que começa toda a MER@#$#! na maioria das vezes. Olha a confusão a seguir}     if (op=1) then // decisão para operação de soma      begin // inicio da decisão de soma       res:=a+b;      end //fim da decisão de soma     else // se não for soma      begin //inicio da decisão se não for soma        if (op=2) then // inicio da decisão de subtração         begin //inicio da decisão de subtração          res:=a-b;         end //fim da decisão de subtração        else // se não for subtração         begin //inicio da decisão se não for subtração          if (op=3) then // inicio da decisão de multiplicação           begin //inicio da decisão de multiplicação            res:=a*b;           end //fim da decisão de multiplicação          else //se não for multiplicação pela logica de if só pode ser divisão então ...           begin //inicio da decisão de divisão            res:=a/b;           end; //fim da decisão de divisão                             end; // fim da decisão de subtração               end; // fim da decisão de soma        {Fim do processamento da operação escolhida}     writeln('O resultado da operação é ',res:5:2);  // mostrando o resultado final.  End.

Olha só jovem.. Que.. Quee... trampoo de fazer tudo isso. O programa funciona perfeitamente claro.. Mas olha o quanto confuso ele fica. É begin .. depois end; ai vem else .. depois outro begin já abrindo outro IF dentro depois abrindo Begin de novo.. e assim vai indo.. conforme o código acima.

Percebe.. Por mais bom que você seja e por mais que isso funcione , uma hora você vai acabar se enrolado.. fechando um end antes da hora, enfim.

Olha só como que fica mais simples se usarmos a função CASE:

Program calculadora ; var  a,b,res:real;// declaração da variável dos dois números  op:integer;// declaração da variável da operação  Begin    writeln ('Digite o primeiro numero');    readln(a);    writeln('Digite o segundo numero');    readln(b);    clrscr; //comando para apagar as informações acima    writeln('Digite o numero correspondente a operações abaixo. O que voc quer fazer?');    writeln(' ');    writeln('1-VocÊ quer somar');    writeln('2-Você quer subtrair');    writeln('3-VocÊ quer multiplicar');    writeln('4-Você quer dividir');    readln(op);// entrada da variável da operação res:=0; //resultado entra como valor zerado antes do processamento  {Notem a facilidade abaixo jovem}     Case op of // CASO op (operação) for // INICIO do CASE       1:begin {inicio caso o usuário digitar 1}       res:=a+b;      end;  {fim caso o usuário digitar 1}         2:begin {inicio caso o usuário digitar 2}       res:=a-b;      end;  {fim caso o usuário digitar 2}         3:begin {inicio caso o usuário digitar 3}       res:=a*b;                 end;  {fim caso o usuário digitar 3}                    4:begin {inicio caso o usuário digitar 4}       res:=a/b;                 end;  {fim caso o usuário digitar 4}  end; // FIM do CASE {é extremamente importante de fechar o CASE nesse caso não precisamos colocar begin}    writeln('O resultado da operação escolhida é ',res:5:2); // mostrar o resultado End.

Putz.. Sensacional hein. Funciona da mesma forma que o IF, mas notem como fica mais simples montar o programa.., entender a lógica..

Não existe um limite para o numero de coisas que deseja fazer com a função.. nesse meu exemplo usei apenas 4, mas poderia ser usada 5, 10, 20 .. depende da sua necessidade... e da sua paciência é claro. Kkkk

É importante ressaltar que a função só funciona com a entrada de um numero inteiro para a condição. Pois só assim o programa vai identificar a qual rumo ele deve tomar. Caso nenhuma das operações for escolhida o programa não ira executar nenhum dos cases e vai continuar com o programa normalmente. Nesse exemplo de Case que coloquei se colocar um numero diferente de 1, 2, 3 e 4 o programa irá mostrar um resultado zerado no final.. pois, declarei que res (resultado) recebe zero antes de processar o programa. Agora se no na função IF voc fizer isso nesse exemplo que coloquei advinha o que ele irá fazer..

Siiiiiiim jovem. Ele vai dividir. Justamente por conta dessa simples parte:

      

if (op=3) then // inicio da decisão de multiplicação           begin //inicio da decisão de multiplicação            res:=a*b;           end //fim da decisão de multiplicação          else //se não for multiplicação pela lógica de if só pode ser divisão então ...           begin //inicio da decisão de divisão            res:=a/b;           end; //fim da decisão de divisão

Entendeu a sacada. Se qualquer outro numero diferente de 1, 2 ou 3 entrar nesse exemplo de IF ele irá fazer a operação de divisão. Claro q da para corrigir isso. Com laços de repetição que fazem o programa voltar caso o usuário não digite nenhuma das opções desejadas, mas isso é assunto para outra postagem mais breve ;) .

Bom galera, espero que tenham gostado da leitura. Tentei explicar ao máximo como que funciona a função CASE é quais as suas diferenças entre IF. Gostou seja um de nossos membros e curtam a nossa fanpage do Facebook. Lá você pode ver quando postamos algo de novo aqui no blog e temos alguns desafios legais para resolver. Tudo isso jovem ajuda na divulgação e na valorização do nosso trabalho. Certo.. Da uma brincada com os programas acima, façam o download do CASE e o download  de IF. Ok, Valew, até mais!

Continue Lendo...

LAÇOS DE REPETIÇÃO

Olá mundo, agora vamos falar de um ponto muito importante, os comando de repetição, vão nos auxiliar em deixar o código menor.

Em alguns momentos precisamos repetir alguns processos no programa, ao invés de ficar escrevendo linha por linha um comando que vai ser repetido 10,15 vezes.

Utilizaremos os laços de repetição que no pascal são:

For= Para, Repeat=Repita, While=enquanto.

Laço For (para)

O laço for (para) podemos dizer que usamos na maioria das vezes, por se tratar de um que tem uma variável de controle, determinando assim o numero de vezes que será executado.

Exemplo: 

Program lacofor ;

 var

 x,numero:integer;

//esse programa tem a função de receber um numero inteiro e somar esse numero +1 cinco vezes.

 Begin

 writeln('digite um numero inteiro');

 read(numero);

       for x:=1 to 5 do

        begin

        numero:=numero+1;       

        end;

 write('o numero digitado +5 é ', numero); 

 End.

No programa acima temos a execução do laço for que para ser criado precisamos ter bem claro três coisas.

A sintaxe do laço For(para) x:=1 to(ate) 5 do(faça).

A criação da variável de controle no caso é o X.

E sempre indicar onde começa(begin) e onde termina(end;) as instruções que serão repetidas.

Quando falamos em variável de controle podemos fazer como no exemplo anterior que definimos quando estamos escrevendo o código ou colocamos na mão do usuário que vai inserir quantas vezes ele quer que o laço seja repetido.

Exemplo:

Program lacofor1 ;

 const

 y=1;//definimos o valor que vai ser somado com a variavel de controle X.

 var

 fimdolaco,soma,x:integer;

 Begin

writeln('digite o numero que o laço deve parar (exemplo:1,2,3...500)')  ;

 read(fimdolaco);

           // acima definimos onde vai ser o fim do laço.              

          For x:=comecodolaco to fimdolaco do //a variável x recebe o valor inserido como" começo do laco " e vai ate o valor definido para a variável " fim do laço "

            begin

             soma:=x+y;

            writeln(y,'+',x,'=' ,soma );

           delay(1000);   //a função de delay significa que a execução sofrera um atrasa , o delay é calculado   em milesegundo ou seja para se ter um atrasa de 1 segundo colocamos o delay de 1000 milesegundos equivalente a 1 segundo.                  

            end;                

        end;

           writeln('o valor final da soma é:',soma);

 End.

Como pudemos ver nesse programa definimos quantas vezes o laço vai ser utilizado ,inserindo o numero de vezes via teclado.

 Program lacofor2 ;

 const

 y=1;//definimos o valor que vai ser somado com a variavel de controle X.

 x=1;//valor que vai controlar o laço.

 var

 comecolaco,subtracao:integer;

 Begin

 writeln('subtração lembrando que o valor sempre será subtraído por’,y ,’digite um numero (500,600...10)')  ;

 read(comecolaco);

           // aqui definimos o inicio do laço porem com um grande diferencial o programa vai iniciar a com o contador e sempre subtraindo o valor digitado ate chegar ao valor de 'X'

          For  comecolaco:=comecolaco downto x do  //quando usamos o downto(dessa até) significa que queremos fazer o caminho inverso do to(até) como se tirássemos 1 sempre da variável de controle nesse caso o começo do laço

          begin

          subtracao:=comecolaco-y;

                        writeln(comecolaco,'-',x,'=' ,subtracao );

                        delay(1000);   //a função de delay significa que a execução sofrera um atrasa , o delay é calculado em milesegundo ou seja para se ter um atrasa de 1 segundo colocamos o delay de 1000 milesegundos equivalente a 1 segundo.

end;

          writeln('');

          writeln('o valor final da subtraçao é:',subtracao);

   End.

Nesse programa pudemos ver que na execução e ele se comportou de forma diferente ,foi de forma decrescente ate o final do laço graças ao downto( dessa até).  (depois faça o seguinte teste , ao invés começar com a variavel de controle com o numero 1 coloque a variavel recebendo 0 e veja o resultado)Laço While(enquanto)Um laço que só ira executar as instruções abaixo enquanto a condição for falsa.O que significa que esse laço testa uma condição antes de executar as instruções.Exemplo:

Program lacowhile ;

 var

numero,cont:integer;

                        //esse programa tem a função de receber um numero inteiro e somar esse numero +1 enquanto o numero for diferente de vinte.

 Begin

 writeln('digite um numero inteiro');

 read(numero);

       while(numero <> 20) do

        begin

        cont:=cont+1;

               numero:=numero+1;       

        end;

 write('o laço foi utilizado ',cont,' vezes'); 

 End.

 Como pudemos ver nesse exemplo executando em pascal ele só vai repetir os comandos se a condição for verdadeira, a partir do momento que for falsa ele não executa nenhuma ação no laço e parte para instrução seguinte.

Laço repeat(repita)

Também um laço que é dependente de uma condição porém ele só testa no final a condição, ou seja, ele é executado uma vez sempre.

Exemplo:

Program Pzim ;

 var

 desligado:boolean;

 x,cont:integer;

                            //esse programa só vai parar de somar x quando uma tecla for pressionada.

 Begin

 Repeat

 cont:=cont+1;

      if(not keypressed)then

      begin

      x:=x+1;

             writeln('valor de x= ',x,' para sair pressione uma tecla');

      desligado:=false;

      end ;

      if ( keypressed) then

      begin

      desligado:=true ;

      end;

 until(desligado=true);

 writeln('contador: ',cont);

 End.

Na execução do programa acima ele vai repetir as informações até que seja pressionada alguma tecla, se não for pressionada nenhuma tecla o laço permanecera “ligado”.

A função auxiliar keypress uma função nativa do pascal, determina se uma tecla foi pressionada ou não ,ela é do tipo boolean .seguindo o mesmo padrão de “ligado” ou “desligado”

Testem a utilização desses laços exercitem bastante, pois são estruturas que ajudam muito no desenvolvimento em geral.

Continue Lendo...