LÓGICA DE PROGRAMAÇÃO
17:21 | Postado por
JRP
PROFESSOR:FERNANDO CARVALHO
A lógica de programação é necessária para pessoas que desejam trabalhar com
desenvolvimento de sistemas e programas, ela permite definir a seqüência lógica para o
desenvolvimento.
$$APOSTILA DE LÓGICA DE PROGRAMAÇÃO
$$EXERCICIOS DE LÓGICA
A lógica de programação é necessária para pessoas que desejam trabalhar com
desenvolvimento de sistemas e programas, ela permite definir a seqüência lógica para o
desenvolvimento.
$$APOSTILA DE LÓGICA DE PROGRAMAÇÃO
$$EXERCICIOS DE LÓGICA
Assinar:
Postar comentários (Atom)
25 comentários:
program area_triangulo;
var a, b, c, s, at: real;
inicio
Escreva('Informe o primeiro numero: ');
leia(a);
Escreva('Informe o segundo numero: ');
leia(b);
Escreva('Informe o terceiro numero: ');
leia(c);
s:= (a+b+c)/2;
at:=sqrt(s*(s-a)*(s-b)*(s-c));
Escreva('Area do triangulo: ',at:0:2);
fim.
by:Rafa.
programa mediaharmonica;
var
a,b,c,media:real
inicio
leia a,b,c
media<- ((a.b.c)/a+b+c)/3
escreva ("A media harmonica é",media)
fim
programa mediaponderada;
var
n1,n2,n3,media
inicio
leian1,n2,n3
media <- ((n1*3)+(n2*4)+(n3*3)/(3+4+3))
Escreva ("A media ponderada é",media)
fim
| A NUMERO 3
|
|programa tabuada
|variáveis i, n : inteiros
|
|inicio
| escreva ('Digite um número')
| leia (n)
| para i <-- 1 até 10 faça
| escreva (i,' X ',n,' = ',i*n)
| fim_para
|fim
|A NUMERO 4
|
|programa somapares
|
|variaveis n, x, soma, total : inteiros
|
|inicio
| soma <-- 0
| total <-- 0
| escreva ('Digite um número:')
| leia (n)
| para x <-- 1 ate n faça
| soma <-- soma + 2
| total <-- total + soma
| fim_para
| escreva ('Soma: ',total)
|fim
A NUMERO 5 É A DO PALINDROMO, SE ALGUEM CONSEGUIR...
|NUMERO 6
|
|programa numerosextenso
|
|variaveis n : inteiro
|
|inicio
| escreva ('Digite um número:')
| leia (n)
| se (n>0) e (n<11) faça
| se n=1 faça
| escreva ('Um')
| fim_se
| se n=2 faça
| escreva ('Dois')
| fim_se
| se n=3 faça
| escreva ('Tres')
| fim_se
| se n=4 faça
| escreva ('Quatro')
| fim_se
| se n=5 faça
| escreva ('Cinco')
| fim_se
| se n=6 faça
| escreva ('Seis')
| fim_se
| se n=7 faça
| escreva ('Sete')
| fim_se
| se n=8 faça
| escreva ('Oito')
| fim_se
| se n=9 faça
| escreva ('Nove')
| fim_se
| se n=10 faça
| escreva ('Dez')
| fim_se
| senão
| escreva ('Número inválido')
|fim
|
|NUMERO 7
|
|programa caixaeletronico
|
|variaveis notas, val : integer
|
|inicio
| notas <-- 1000
|
| enquanto (notas > 0) e (val >= 0) faça
| escreva ('restam ',notas*10,' reais')
| escreva ('Digite o valor: ')
| leia (val)
| se (val mod 10 = 0) faça
| se val div 10 <= notas faça
| notas <-- notas - (val div 10)
| senão
| escreva ('Valor invalido')
| fim_senão
| senão
| escreva ('Valor deve ser múltiplo de 10')
| fim_senão
| fim_enquanto
| se notas < 10 faça
| escreva ('caixa vazio')
|fim
|
|NUMERO 8
|
|programa fibonacci
|
|variaveis x, y, z, soma, i, n : integer
|
|inicio
| x <-- 0
| y <-- 1
| z <-- 1
| soma <-- 0
| escreva ('Digite um número')
| leia (n)
| para i <-- 1 até n faça
| escreva (x)
| soma <-- soma + x
| x <-- y
| y <-- z
| z <-- x + y
| fim_para
| escreva ('Resultado:'‚soma)
|fim
|
|NUMERO 9
|
|programa idade
|
|variaveis idade, meses, dias, resultado : inteiro
|
|inicio
| escreva ('Digite sua idade')
| leia (idade)
| escreva ('Digite o mês')
| leia (meses)
| escreva ('Digite o dia')
| leia (dias)
| resultado <-- dias + (meses*30)
| resultado <-- resultado + ((idade*12)*30)
| escreva ('Você tem ',dias,'dias de vida')
|fim
|
|NUMERO 10
|
|programa idade
|
|variaveis n, anos, meses, dias : inteiro
|
|inicio
| escreva ('Digite sua idade em dias')
| leia (n)
| anos <-- (n div 31) div 12
| meses <-- (n div 31) mod 12
| dias <-- (n mod 31)
| escreva ('Você tem ',anos,' anos, ',meses,' meses e ',dias,' dias')
|fim
|
NUMERO 19
programa fatorial
variaveis x,i,fat:inteiro
inicio
Escreva('Informe um Número positivo')
leia(x)
fat<--1
para i<--1 ate x faça
inicio
fat<--fat*1
fim_para
Escreva('O fatorial de',x,'é :',fat)
fim.
NUMERO 22
programa area_triangulo;
variaveis a, b, c, s, at: real;
inicio
Escreva('Informe o primeiro numero positivo:')
leia(a)
Escreva('Informe o segundo numero positivo:')
leia(b)
Escreva('Informe o terceiro numero positivo:')
leia(c)
SE ((a + b)< c) FAÇA
Escreva((a),(b),(c),': Não é trângulo')
SENÃO SE ((b + c)< a) FAÇA
Escreva((a),(b),(c),: Não é triângulo')
SENÃo SE ((c + a)< b) FAÇA
Escreva((a),(b),(c),': Não é triângulo')
SENÃO
inicio
Escreva('É triângulo!!!')
s:= (a+b+c)/2;
at:=sqrt(s*(s-a)*(s-b)*(s-c));
Escreva('Area do triangulo ‚ : ',at)
fim_senão
fim.
|NUMERO 11
|
|programa notas
|
|variaveis n1, n2, n3, media : reais
|
|inicio
| escreva ('Digite a primeira nota')
| leia (n1)
| escreva ('Digite a segunda nota')
| leia (n2)
| escreva ('Digite a terceira nota')
| leia (n3)
| media <-- ((n1*2) + (n2*3) + (n3*5)) /10
| escreva ('Media final: ',media)
|
|fim
|
|NUMERO 12
|
|programa tempo
|
|variaveis s, m, h : inteiros
|
|inicio
| escreva ('Digite o tempo em segundos')
| leia (s);
| h <-- (s div 60) div 60
| m <-- (s div 60) mod 60
| s <-- s mod 60
| escreva ('O tempo é de ',h,' horas, ',m,' minutos e ',s,' segundos')
|fim
|
|NUMERO 13
|
|programa carro
|
|variaveis cf, pd, pi, custo : reais
|
|inicio
| escreva ('Digite o valor')
| leia (cf)
| pd <-- (cf * 28 %)
| pi <-- (cf * 45 %)
| custo <-- (cf + pd + pi)
| escreva ('O custo final é de ',custo,' reais')
|fim
|
|NUMERO 15
|
|programa multiplos
|
|variaveis a, b : inteiros
|inicio
| escreva ('Digite o primeiro número')
| leia (a)
| escreva ('Digite o segundo número')
| leia (b)
| se (a mod b = 0) ou (b mod a = 0) faça
| escreva('São múltiplos')
| senão
| escreva ('Não são múltiplos')
|fim
|
|NUMERO 17
|
|programa maiornumero
|
|variaveis x, y, z : inteiros
|inicio
| escreva ('Digite o primeiro número')
| leia (x)
| escreva ('Digite o segundo número')
| leia (y)
| escreva ('Digite o terceiro número')
| leia (z)
| se (a>b) e (a>c) faça
| escreva ('O maior número é ',x)
| fim_se
| se (b>a) e (b>c) faça
| escreva ('O maior número é ',y)
| fim_se
| se (c>a) e (c>b) faça
| escreva ('O maior número é ',z)
| fim_se
|
|fim
|
|NUMERO 18
|
|programa numero
|
|variaveis n : inteiro
|inicio
| escreva ('Digite um número')
| leia (n)
| se (n=0) faça
| escreva ('0 ‚ neutro')
| fim_se
| se (n<>0) faça
| se (n mod 2=0) faça
| escreva ('Número par')
| senão
| escreva ('Número ímpar')
| fim_senão
| fim_se
| se (n>0) faça
| escreva ('positivo')
| fim_se
| se (n<0) faça
| escreva ('negativo')
| fim_se
|fim
|
|NUMERO 20
|
|programa notas
|
|variaveis n1, n2, n3, media : real
|
|inicio
| escreva ('Digite a primeira nota')
| leia (n1)
| escreva ('Digite a segunda nota')
| leia (n2)
| escreva ('Digite a terceira nota')
| leia (n3)
| media <-- ((n1*3) + (n2*4) + (n3*3)) /10
| escreva media
|
|fim
|
|NUMERO 24
|
|program poluicao
|
|variaveis indice : real
|
| inicio
| escreva ('Digite o índice de poluiçõo')
| leia (indice)
| se indice >= 0.3 faça
| escreva ('Industrias do 1º grupo')
| fim_se
| se indice >= 0.4 faça
| escreva ('Industrias do 2º grupo')
| fim_se
| if indice >= 0.5 then
| write('Industrias do 3º grupo')
| fim_se
|fim
NUMERO 1
programa numerosprimos;
variáveis n, i, cont: inteiro
inicio
escreva('Informe um número: ')
leia (n)
cont <-- 0
para i <-- 1 até n faça
se (n mod i = 0) faça
cont <-- cont + 1;
fim_se
se (cont = 2) e (n <> 1) faça
escreva('O número ',n,' é primo.')
senão
escreva('O número ',n,' não é primo.')
fim_senão
fim
NUMERO 2
|programa numeros
|variaveis maior, menor, media, num, soma, cont : reais
|inicio
| escreva ('Digite dez números')
| leia(num)
| maior <-- num
| menor <-- num
| media <-- num
|
| para cont <-- 1 até 9 faça
| leia(num)
| se num > maior então
| maior <-- num
| fim_se
| se num < menor então
| menor <-- num
| fim_se
| media <-- media + num
| soma <-- media
| fim_para
|
| media <-- media/10
| escreva ('maior: ',maior, ' menor: ',menor)
| escreva (' media: ',media,' soma: ',soma)
|end.
|NUMERO 16
|
|programa classificação
|
|variáveis i : inteiro
|inicio
| escreva('Digite a sua idade')
| leia (i)
| se (i >=5) e (i <=7) faça
| escreva ('Infantil A')
| fim_se
| se (i >=8) e (i <=10) faça
| escreva ('Infantil B')
| fim_se
| se (i >=11) e (i<=13) faça
| escreva('Juvenil A')
| fim_se
| se (i >=14) e (i <=17) faça
| escreva ('Juvenil B')
| fim_se
| se (i >=18) faça
| escreva ('Adulto')
| fim_se
|
|fim
|
|NUMERO 25
|
|variaveis a1, r, i : inteiro
|
|inicio
| a1 <-- 19
| r <-- 3
| para i <-- 1 até 5 faça
| a1 <-- a1 + r
| escreva (a1)
| fim_para
|fim
Postar um comentário