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

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

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

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

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

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

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

{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

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

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

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

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

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

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

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

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

HOME

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