Programas para iniciantes em Lógica de programação

 

 

Programa exer 1  soma

variáveis

                 nome:conjunto[1ate 10] de literal

inicio

     para I de 1até 10 passo1 faça

           Ler  nome[I]

     fim_para

        para N de 1 até 10 passo 1faça:

          escreva nome[i]

      fim_para

fim

 


Programa exerc 2

    variaveis

         A,B: conjunto[1 ate 10]de real

             I:  inteiro

Inicio

        para Ide 1 até 10 passo 1 faça

           Ler a[I]

        fim-para

         para I de 1 ate 10 passo 1 faça

             se  (I  é par )então

                 B[I]<=A[I]*5

                   senao

                  B[I]<=A[I]+5

             fim_se

          fim para

            para Ide 1 até 10 passo 1 faça

               escreva A[I], B[I]

            fim para

FIM

 

 


 

 

Programa ex 3 matriz

variaveil a, conjunto [1 até 5] de real;

    soma :inteiro

   I inteiro

inicio

     soma<=0

  para Ide 1 até 5 passo 1 faça

      ler A[I]

       se (A[I] é impar) então

            soma<=soma+A[I]

              Senào

             escreva vazio

      fim-se

fim-para

    escreva soma

fim

 


 

 

Programa ex 4 matriz0

   variáveis A,B conjunto [1 ate15]dereal;

        I : contador :inteiro

inicio

       para I de 1 até 15 passo 1 faça

             ler A[I]

            B[I]<=1

         para contador de 1 até A[I] passo 1 faça

             B[I]<=B[I]*contador

           fim para

       fim para

          para Ide 1 até 15 passo 1 faça

              escreva A[I],B[I]

       fim para

fim

 

 

 


 

 

 

Programa  ex 5 duas matrizes subtração  do  elem

variavel A,B conjunto [1 até 15] de real

   I; INTEIRO

 INICIO

        para I de 1 até 20 passo 1 faça

            ler A[I] ler B[I]

                 C[I]<=A[I] - B[I]

        fim para

          para I de 1 até 20 passo1 faça

                escreva  A[I], B[I], C[I]

          fim para

fim

 

 


 

 

Programa ex 6duas matrizes com a ,b e c com o dobro de n elem

 

variveis   A:B conjunto [1 até 15 ]de real;

                c:conjunto [1 ate 30] de real;

                I :inteiro

 INICIO

            para I de 1 até 15 passo 1 faça

                 ler A[I]

           Fim -para

            para I de 1 até 15 passo 1 faça

                 ler B[I]

           fim-para

           para I de 1 até30 passo1 faça

                se I,£15 então

                    C[I]<=A[I]

                       SENÃO

                     C[I]<=B[I - 15]

                 fim se

          fim para

          para I de 1 até 15 passo 1 faça

                   escreva A[I] ,B[I]

          fim- para

           para I de 1 até 30 passo 1 faça

                 C[I]

          fim para

fim

 


 

 

Programa exerc7 tres matrizes

      variaveis   A: conjunto [1 até 20 ] de inteiro;

                        B: conjunto [1 até 30] de inteiro;

                        C: conjunto [1 até 50 ] de inteiro;

                          I: INTEIRO

INICIO

               para I de 1 até 20 passo 1 faça

                    ler A[I]

                fim-para

                 para Ide 1 até 30 passo 1 faça

                     ler B[I]

                  fim-para

                       para I de 1 até 50 passo 1 faça

                          se  I £ 20     então

                                 C[I]<=A[I]

                                senão

                                   C[I]<=B[I - 20]

                           fim-se

                   fim-para

                      para I de 1 até 50 passo 1 fassa

                           escreva C[I]

                      fim-para

   fim

 

 

 

 


 

 

 

Program exer 8 ler 15 el t el  de b  deverá ser o quad de A

         variavel       A : conjunto [ 1 até 15] de inteiro

                               B : conjunto [ 1 até 15] deinteiro

                                I :inteiro

INICIO

           para I de 1 até 15 passo 1 faça

                ler A[I]

                     B[I] <=(A[I] * A[I] )

          fim - para

                  para I de  1 até 15 passo 1faça

                    escreva  B[I]

                 fim-para

   fim

 

 


 

           

Programa exer 9

       variaveis A,B : conjunto [I até 20] de real;

                            I : inteiro

INICIO

        para I de 1 até 20 passo  1 faça

            ler A[I]

       fim para

        para I de 1 até  20 passo 1 faça

             B[I] <= A[I - 21]

         fim -para

              para I de 1 até 20 passo 1 faça

                    escreva B[I] , A[I]

              fim-para

fim

 

 


 

 

 

Programa ordenaçào de vetores exerc 1-10

      program_lista_nome-ordenada

  variavel

          nome:conjunto[1..10] de caractere;

                  I ,J:inteiro

                    X: caractere

inicio

      para I de 1 até10 passo  1 faça

         Ler nome[I]

     fim-para

        para I de 1 até 9 passo 1 faça

           para j de 1 até 10 passo 1 faça

                se (nome[I]> nome [ J ] então

                          X <=nome[I]

                    nome [I]<=nome[J]

                   nome [ J ] <=X

               fim-se

            fim-para

      fim-para

                 para   I de 1 até 10 passo 1 faça

                      escreva nome[I]

                 fim -para

fim

 

 

 

 

 


 

 

 

 

 

Program exerc 1-11

     variavel

              A:conjunto[1..5] de real;

               X::real

              J,I:inteiro

inicio

         para I de 1 até 5 passo 1faça

             ler A[I]

         fim-para

            para J de  (I+1)  até 4 passo 1 faça

                se (A[I]< A[J]) entào

                      X<= A[I]

                        A[I]<=A[J]

                             A[J]<=X

                             

                fim-se

           fim-para

                para I de 1 até 5 passo 1 faça

                       escreva A[I]

               fim-para

fim

 

 

 

 

 


 

 

 

Programa ordena fatorial exerc 1-12     

variavel

                      A,B: :conjunto[1 até15] de inteiro;

                     I,J,K: inteiro

inicio

                  para I de 1 até 15 passo 1 faça

                    Ler A[I]

                   fim-para

               para  I de 1 até 15 passo 1 faça

                    B[I]<=1

                  para I de 1 até 15 passo 1 faça

                       B[I]<=B[I]  * J

                  fim-para

            fim-para

          para I de 1 até  14 passo 1 faça

             para J de (I+1) até 15 passo 1 faça

                     se(B[I] >B[J] então

                           K<= B[I]

                            B[I]<= B[J]

                              B[J] <= K

                     fim-se

             fim-para

        fim-para

fim

 

 

 

 

 

 


 

 

 

 

Programa junção de três matrizes exer 1-13

   variaveis

                    A,B,C: conjunto [1até 12] de inteiro;

                     I,J,K :inteiro;

inicio

          para I de 1 até 12 passo 1 faça

             ler A[I]

            fim-para

          para I de 1 até 11 passo 1 faça

             para J de  (I+1) até 12 passo 1 faça

                se (A[I] > A[J] então

                     K<= A[I]

                     A[I]<=A[J]

                      A[J]<=K

                   fim-se

              fim para

           fim-para

            para I de 1 até 12 passo 1 faça

               ler  B[I]

           fim-para

            para I de 1 até 11 passo 1 faça

                 para J de (I+1) até 12 passo 1 faça

                     se (B[I] >B[J] então

                          K<= B[I]

                         B[I]<=B[J]

                         B[J]<=K

                   fim-se

               fim-para

          fim-para

            para Ide 1 até 12 passo 1 faça

                  C[I]<=A[I] = B[J]

    fim-para

           para I de 1 até11 passo 1 faça

                para J de (I+1) até 12 passo 1 faça

                    se( C[I] > C [J] ) então

                            K<= C[I]

                             C[I]<= C[J]

                                 C[J]<= K

                      fim-se

               fim-para

          fim-para

               para I de 1 até 12 passo 1 faça

                   escreva  C [ I ]

              fim-para

fim

 

 

 


 

 

 

 

Método de pesquisa binária

programa pesquisa binária exerc 14

 variavel

        nome :conjunto [1 até 10] de caractere;

        I: inteiro

           começo,final, meio:inteiro

          pesq, resp: caractere;

              acha:lógico

inicio

      para  I de 1 até 10 passo 1 faça

             ler nome [I]

     fim-para

     para I de 1 até 9 passo 1 faça

         para j de (I+1) até 10 passo 1 faça

           se (nome[I]> nome[J] então

                X<=nome[I]

               nome[I]<=nome[J]

               nome[J]<=X

           fim-se

      fim-para

   fim-para

    {trecho de pesquisa}

           resp = “sim”

         enquanto( resp= “sim”)   faça

 

 

 

 

 

 


 

 

 

 

Programa exerc 15

  variavel

              A,B,C : conjunto [1 até 5  1 até 3] de real;

                  I,J  :inteiro

inicio

      para  I de 1 até5 passo 1 faça

             para J de 1 até 3 passo 1 faça

                Ler  A[I, J ]

                fim-para

        fim-para

      para I de 1 até J passo 1 faça

         para J de 1 até 3 passo 1 faça

             Ler b[I , J]

         fim-para

     fim-para

           para I de 1 até 5 passo 1 faça

              para I de 1 até 3 passo 1 faça

                C[I,J] <= A[ I,J] + B[I,J ]

               fim-para

           fim-para

fim

 

 

 


 

 

 

 

Matrizes com mais de uma dimensão

ler 4 notas bimestrais de 8 alunos

      programa exempro 15

     variavel

        notas:conjunto[ 1 até 8 ,1até4] de real;

          I,J :inteiro;

   inicio     

               para I de 1 até 8 passo 1 faça

                 para I de 1 até 4 passo 1 faça

                   Leia  notas[  I ,J]

                fim-para

               fim para

           para I de 1 até 8 passo  1 faça

                escreva nome  [I,]

                para J de 1até 4 passo 1 faça

                    escreva  notas [I,J]

                fim-para

           fim-para

    fim

 

 

 


 

 

 

 

 

    Leitura de notas utilizando registros

      programa exerc 16

 TIPO

     bimestre = conjunto [1 até 4] de real;

       cad_aluno= registo

            nome : caractere

              nota :bimestre

   fim- registro

variavel

    aluno: cad_aluno

          I:inteiro

inicio

     Ler aluno_nome

        para Ide 1 até4 passo 1 faça

             Ler  aluno_nota[I]

        fim-para

fim

 

 

 


 

 

 

 

Leitura de notas utilizando registros

   programa exerc17

TIPO

         bimestre= conjunto[1 até 4] de real;

         cad_aluno= registro

              nome:caractere

                 nota: bimestre

          fim-registro

variavel

          aluno: conjunto[1 até8] de cad-aluno

             I,J: inteiro

   inicio

       para J de 1 até 8 passo 1 faça

            Ler aluno[J] nome

             para I de 1até 4 passo 1 faça

               Ler  aluno [J] nota[I]

            fim-par

      fim-para

 

    fim

 

 

 


 

 

 

Programa exerc   18’’’’

TIPO

       bimestre = conjunto [ 1 até 4 ] de real

               cad_aluno= registro

                nome: caractere

                  nota:bimestre

        fim-registro

variavel

              aluno : conjunto [1 até 8 ] de cad_aluno;

                  I,J:atual proximo:inteiro

                    X:  cad_aluno

INICIO

           para J de1 até 8 passo 1 faça

                Ler aluno [J]nome

                 para I de 1 até 4 passo 1 faça

                    Leia aluno [J] nota[I]

                 fim-para

           fim-para

               para  atual de 1 até 7 passo 1 faça

                    para proximo de(atual+1) até 8 passo 1 faça

                          se(aluno [atual] nome>aluno [proximo] nome) então

                              X<=aluno[atual]

                                  aluno [atual]<=aluno[proximo]

                                     aluno[proximo]<=X

                           fim-se

                     fim-para

                fim-para

                     para J de 1 até 8 passo 1 faça

                          escreva [J] nome

                           para Ide 1 até 4 passo 1 faça

                                 escreva aluno[J]nota[I]

                           fim-para

                     fim-para

fim

 

 


 

 

 

Programa tabela de salarios exerc 19

 TIPO

       dados= registro

          D  codigo : inteiro

          D  cargo : caractere

          D_sal: real

      fim-registro

    variavel

           tabela :conjunto [1 até 17] de dados

               I ,codigo : inteiro

               resp:caractere

                acha:codigo

INICIO

         para I de 1 até 17 passo 1 faça

             tabela [I]  D_codigo <= I

                Leia tabela [I] D_cargo

                 Leia  tabela[I] D_sal

         fim-para

       resp<=”sim”

        enquanto (resp= sim) faça

          escreva “entre com o código aser  req (1 até 17)”

              Leia código

                   I<= 1

          acha <= falso

           enquanto(I £ 17).E.(acha= falso) faça

                se (codigo= tabela {I] D_codigo) então

                        acha= verdadeiro

                       senão

                    I<= I+1

               fim-se

            fim-enquanto

              se (acha= verdadeiro) então

                 escreva tabela [I] D_cargo

                     escreva tabela [I] D_sal

                        senão

                        escreva “não localizado”

               fim-se

                    escreva “deseja continuar”

                         ler resp

      fim-enquanto

fim

 

 

 


 

 

 

Programa agenda exerc  20   a)

constante

                   max = 50

TIPO

      dados= registro

      nome: caractere

     endereço:caracteres

 fim-registro

variavel

          tabela: conjunto[1 até max]de dad os

      I:inteiro

     resp: caractere

INICIO

      I<=1

        resp <=”sim”

        enquanto( I £max). E. (resp= ‘sim) faça

             Leia  tabela[I] nome

               Leia  tabela [I]  endereço

                 Leia tabela [I] telefone

                    I <=I+1

             escreva “deseja continuar”

                  Leia resp

       fim-enquanto

fim

 

 

 

 


 

 

 

 

Programa agenda exerc  21 b)

TIPO

        dados ag = registro

         nome :caracteres

     endereço: caracteres

     telefone: caracteres

  fim-registro

variavel

      TABELA: conjunto [1 até 10] de dados ag

                   I: inteiro

             resp,busc: caractere

                 acha: codigo

 INICIO

            resp = “sim”

        enquanto (resp=”sim”)faça

            escreva “informe nome a ser pesquisado”

               Leia busca

                 I<=1

               acha <=falso

               enquanto( I £10). E.(acha= falso) faça

                   se( tabela[I] nome = busca)então

                       acha = verdadeiro

                          senão

                           I<=I+1

                 fim-se

               fim-enquanto

        se (acha=verdadeiro) então

            escreva tabela [I] endereço

              escreva tabela [I] telefone

                senão

               escreva não localizado

       fim-se

                escreva deseja continuar

                   Leia resp

    fim -enqanto

fim

 

 

 


 

 

 

 

Programa agenda exerc 22 c)

     constante

                     max=50

            TIPO

                 dados

                   nome:caracteres

                endereço:caracteres

              telefone:caracteres

          fim-registro

         variavel

                      tabela: conjunto [1até max] de dados

                J, I:inteiro

                  X:dados

INICIO

           para Ide 1 até 49 passo 1 faça

             para J de 1 até 50 passo1 faça

                 se(tabela[ I] nome > tabela[ J ] nome) então

                      X<=tabela [I]

                   tabela[I] <=tabela[ J ]

                        tabela[ J ]<=X

                fim-se

           fim-para

        fim-para

            resp. “sim”

                  enquanto (reaxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

 

 

 

 


 

 

 

 

Remover  da tabela  um determinado registro

     programa remoção exerc 23  d)

TIPO

          dados ag = registro

           nome :caractere

         endereço: caractere

         telefone: caractere

           fim-registro

  variavel

        tabela :conjunto [1 até 10 ] dedados ag

                       I : inteiro

       resp, busca: caractere

                 acha :Lógica

INICIO

          RESP= “SIM”

         enquanto(resp= ‘sim’) faça

             escreva o nome p/ remoção

             Leia busca

            I = 1

               ACHA = FALSO

               enquanto( I  £   10).E. (acha = falso) faça

                  se (tabela [I] nome = falso) faça

                          acha = verdadeiro

                         senão

                       I <= I+1

                  fim-se

              fim-enquanto

                       se (acha= verdadeiro) entre

                           tabela [I] nome<= vazio

                              tabela[I] endereço<=vazio

                                  tabela [I] telefone<= vazio

                               senão

                       escreva  “nome não encontrado”

                    fim-se

                       escreva  “deseja continuar”

                   Leia resp

          fim-enquanto

fim

   

 

 

 


 

 

 

 

Programa anivers

inicio

        para I de 1 até 100 passo 1 faça

            Leia tabela [I] nome

              Leia tabela [I]endereço

               Leia tabela [I] telefone

                 Leia tabela [I] data anv

       fim para

            para I  de 1 até 99 passo 1 faça

                   para Jde (I+1) até 100 passo 1 faça

                     se(tabela [I] nome >tabela [J]nome ) então

                          X<=tabela[I]

                         tabela[I]<=tabela[J]

                           tabela[J]<=X

                      fim-se

                 fim-para

              fim-para

   fim

 

 

 

 

 

HOME

 


  -FSOFTWARES ® Todos os direitos reservados.

 


 

Redirecinar: http://www.fontesbrasil.kit.com     Melhor visualização 800 x 600