Programas para iniciantes em Lógica de
programação
|
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
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
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
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
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
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
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
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
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
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
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
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
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