Exercício 01
algoritmo "Exercício 01"
// Função :somar
// Autor :Júlio Cesar Melo
// Data : 18/3/2009
// Seção de Declarações
var
n1:inteiro
n2:inteiro
soma:inteiro
inicio
escreval ("")
escreval ("***********************************************************************")
escreval ("**************************** Sistema Soma *****************************")
escreval ("***********************************************************************")
escreval ("")
escreva ("Informe um número inteiro qualquer: -> ")
leia (n1)
escreval ("o número que você informou foi ",n1)
escreva ("Informe outro número inteiro qualquer: -> ")
leia (n2)
escreval ("o número que você informou foi ",n2)
soma <- (n1 + n2)
escreva ("A soma dos números inteiros que você informou é: ",soma)
fimalgoritmo
-----------------------------------------------------------------------------------------------------------------------
Exercício 02
algoritmo "Exercício 02"
// Função : Calcular área x dimensão
// Autor : Júlio Cesar Melo
// Data : 18/3/2009
// Seção de Declarações
var
area:real
dim1:real
dim2:real
inicio
escreval ("")
escreval ("***********************************************************************")
escreval ("************************** Cácular Dimensão ***************************")
escreval ("***********************************************************************")
escreval ("")
escreva ("Informe a dimensão em cumprimento em METROS -> ")
leia (dim1)
escreva ("Informe a dimensão em largura em METROS -> ")
leia (dim2)
area <- (dim1*dim2)
escreva ("Tamanho total de sua área é: ",area," M")
fimalgoritmo
---------------------------------------------------------------------------------------------------------------------------------
Exercício 03
algoritmo "Sequencia"
var
Anterior:inteiro
Proximo:inteiro
n:inteiro
count:inteiro
inicio
repita
Escreval ("-------------------------------------------------------------------")
anterior <- 1
count <- 0
Escreva ("Digite a quantidade de termos a ser gerados: ")
leia (n)
Enquanto count < n faca
Se count < n entao
Escreva (anterior,",")
count <- count + 1
FimSe
Se count < n entao
proximo <- anterior + 3
Escreva (proximo, ",")
count <- count + 1
FimSe
Se count < n entao
Escreva (proximo, ",")
count <- count + 1
FimSe
anterior <- proximo - 2
FimEnquanto
Escreval ("")
Escreval ("")
ate (anterior = 0)
fimalgoritmo
---------------------------------------------------------------------------------------------------------------------------------
Só conseguir fazer em pascal usando o GOTO não achei esse comando no visual g então coloquei aqui no formato de PASCAL
program Serie;
uses crt;
var n, number,number2,number3, cont,cont2 : integer;
m : real;
label 1,2,3;
begin
clrscr;
writeln('Da sequencia: 1, 4, 4, 2, 5, 5, 3, 6, 6, 4, 7, 7...');
write('Digite at‚ que termo voce deseja visualizar: ');
readln(n);
writeln(' ');
number:=1;
cont:=1;
if (n=0) then
goto 2;
1:
write(number,', ');
number2:=number+3;
number:=number+1;
cont:=cont+1;
if (cont>n) then
goto 3
else
begin
write(number2,', ');
cont:=cont+1;
if (cont>n) then
goto 3
else
begin
write(number2,', ');
cont:=cont+1;
if (cont>n) then
goto 3
else
goto 1;
end;
end;
2:
writeln(' ');
writeln(' ');
writeln('Nao posso exibir (0) termos.');
3:
writeln(' ');
writeln(' ');
writeln('Obrigado pela participacao.');
readkey;
end.
----------------------------------------------------------------------------------------------------------------------------------
Exercício 04
algoritmo "Classificar produto"
// Função : Classificar produtos
// Autor :
// Data :
// Seção de Declarações
var
codigo:inteiro
n:inteiro
count:inteiro
inicio
repita
count <- 0
Escreval ("-------------------------------------------------------------------")
Escreva ("Digite a quantidade de produtos: ")
leia (n)
Enquanto count < n faca
Escreva ("Digite o codigo do produto: ")
Leia (codigo)
Se codigo = 1 entao
Escreval ("Codigo do produto: ",codigo)
Escreval ("Classificação: Alimento não-perecível")
Escreval ("")
Fimse
Se (codigo >= 2) e (codigo <= 4) entao
Escreval ("Codigo do produto: ",codigo)
Escreval ("Classificação: Alimento perecível")
Escreval ("")
Fimse
Se (codigo = 5) ou (codigo = 6) entao
Escreval ("Codigo do produto: ",codigo)
Escreval ("Classificação: Vestuário")
Escreval ("")
Fimse
Se codigo = 7 entao
Escreval ("Codigo do produto: ",codigo)
Escreval ("Classificação: Higiene Pessoal")
Escreval ("")
Fimse
Se (codigo >=
e (codigo <= 15) entao
Escreval ("Codigo do produto: ",codigo)
Escreval ("Classificação: Limpeza e Utensílios Domésticos")
Escreval ("")
Fimse
Se (codigo < 1) ou (codigo > 15) entao
Escreval ("Codigo do produto: ",codigo)
Escreval ("Código do Produto inválido")
Escreval ("")
Fimse
count <- count + 1
FimEnquanto
ate (count = 0)
fimalgoritmo
----------------------------------------------------------------------------------------------------------------------------------
Exercício 05
algoritmo "Média_ponderada"
// Função :
// Autor :
// Data : 18/3/2009
// Seção de Declarações
var
nota1,nota2,nota3,media:real
inicio
escreva ("Informe sua primeira nota ")
leia (nota1)
Escreva ("Informe sua segunda nota ")
leia (nota2)
escreva ("Informe sua terceira nota ")
leia (nota3)
nota1 <- nota1 * 2
nota2 <- nota2 * 3
nota3 <- nota3 * 5
media <- (nota1 + nota2 + nota3) / 10
escreva ("Sua média é ", media)
fimalgoritmo
------------------------------------------------------------------------------------------------------------------------------------
Exercício 06
algoritmo "Exercício 06"
// Função :somar e subtrair
// Autor : Júlio Cesar Melo
// Data : 18/3/2009
// Seção de Declarações
var
n1:inteiro
n2:inteiro
condicao:inteiro
soma:inteiro
inicio
condicao <- 20
escreval ("")
escreval ("***********************************************************************")
escreval ("************************** Sistema Soma/Sub ***************************")
escreval ("***********************************************************************")
escreval ("")
escreva ("Informe um valor inteiro qualquer ")
leia (n1)
Escreva ("Informe outro valor inteiro qualquer ")
leia (n2)
soma <- (n1 + n2)
se soma > condicao entao
soma <- soma +8
fimse
se soma <= condicao entao
soma <- soma -5
fimse
escreva ("O Resultado é ",soma)
fimalgoritmo
-------------------------------------------------------------------------------------------------------------------
Exercício 07
algoritmo "credito do cliente"
// Função :
// Autor :
// Data : 16/3/2009
// Seção de Declarações
var
saldo_medio: inteiro
saldo_medio1: real
saldo_medio2: real
saldo_medio3: real
saldo_medio4: real
nome: caracter
smr1: real
smr2: real
smr3: real
valor_credito:real
inicio
// Seção de Comandos
escreval (" ******* CREDITO DO CLIENTE ***** ")
escreval ("Digite o nome do cliente: ")
leia (nome)
escreval ("Digite o saldo medio do cliente" )
leia (saldo_medio)
// verificando saldo menor que 200
se saldo_medio <= 200 entao
escreval (" nenhum crédito ")
fimse
// verificando saldo maior que 201 e menor que 400
se (saldo_medio >= 201) e ( saldo_medio <= 400) entao
smr1 <- (saldo_medio * 0.2) + saldo_medio
escreval ("O valor do crédito é ", nome," é:", smr1)
escreval ("Seu Saldo atual é ", saldo_medio)
escreval ("percentual de 20% ")
fimse
// verificando saldo 401 e 600
se (saldo_medio >= 401) e (saldo_medio <= 600) entao
smr2 <- (saldo_medio * 0.3) + saldo_medio
escreval ("0 Valor do crédito é ", nome," é:", smr2)
escreval ("Seu saldo é ", saldo_medio)
escreval ("percentual de 30% ")
fimse
// verificando saldo maior que 600
se saldo_medio > 600 entao
smr3 <- (saldo_medio * 0.4) + saldo_medio
escreval ("O Valor do crédito é ", nome," é:", smr3)
escreval ("Seu saldo é ",saldo_medio)
escreval ("percentual de 40%")
fimse
fimalgoritmo
----------------------------------------------------------------------------------------------------------------
Exercício 08
algoritmo "BBB37"
// Função :
// Autor :
// Data : 16/3/2009
// Seção de Declarações
var
enc_apu,alemao,argentino,americano,branco,nulo,total,voto:inteiro
p_branco,p_nulo:real
inicio
alemao <-0
argentino <- 0
americano<-0
branco <- 0
nulo <- 0
total <- 0
escreva ("Digite o seu voto: ")
leia (voto)
enquanto (voto<>0) faca
total <- total +1
escolha voto
caso 1
alemao <- alemao+1
caso 2
argentino <- argentino+1
caso 3
americano <- americano + 1
caso 4
branco <- branco+1
caso 5
nulo <- nulo+1
caso 0
en_apu <- en_apu + 1
fimescolha
escreva ("Digite o seu voto:")
leia (voto)
fimenquanto
p_branco <- (branco*100)/total
p_nulo<-(nulo*100)/total
escreval (" ")
escreval ("total de votos->",total)
escreval ("Candidato 1->: ",alemao," voto(s) para Alemao")
escreval ("Candidato 2->: ",argentino," voto(s) para Argentino")
escreval ("Candidato 3->: ", americano," voto(s) para Americano")
escreval ("Votos em branco->:",branco," voto(s)(",p_branco,"%).")
escreval("Votos nulo->:",nulo,"_votos(",p_nulo,"%).")
fimalgoritmo
------------------------------------------------------------------------------------------------------------------
Exercício 09
algoritmo "Zoo"
// Função :
// Autor :
// Data : 17/3/2009
// Seção de Declarações
var
idade:inteiro
total:inteiro
total_f:inteiro
inicio
escreval (" Bem vindo ao ZOO ")
escreva ("dgite idade:")
leia (idade)
enquanto (idade<>0)faca
total<-total+1
escolha idade
caso 1,2,3,4,5
Escreval ("Menores de 5 anos")
caso 6,7,8,9,10
escreval ("Entre 5 e 10 anos")
caso 11,12,13,14,15
escreval ("Entre 11 e 15 anos")
outrocaso
escreval ("Maiores de 15 anos")
fimescolha
fimenquanto
fimalgoritmo
-------------------------------------------------------------------------------------------------------------
Exercício 10
algoritmo "Banco JN"
// Função : Calcular valores
// Autor :
// Data : 16/3/2009
// Seção de Declarações
var
nome,nome1,nome2,nome3:caractere
count:inteiro
c1,c2,c3,c4,c5,TotalPontos,TotalPontos1,TotalPontos2,TotalPontos3:inteiro
inicio
count <- 0
repita
Escreval ("Digite o nome dos pilotos: ")
leia (nome1,nome2,nome3)
Enquanto count < 3 faca
Se count = 0 entao
nome <- nome1
FimSe
Se count = 1 entao
nome <- nome2
FimSe
Se count = 2 entao
nome <- nome3
FimSe
Escreval ("Digite a colocação da primeira corrida do piloto ",nome,":")
leia (c1)
Se c1 = 1 entao
c1 <- 10
FimSe
Se c1 = 2 entao
c1 <- 8
FimSe
Se c1 = 3 entao
c1 <- 4
FimSe
Se c1 = 4 entao
c1 <- 2
FimSe
Se c1 = 5 entao
c1 <- 1
FimSe
Escreval ("Digite a colocação da segunda corrida do piloto ",nome,":")
leia (c2)
Se c2 = 1 entao
c2 <- 10
FimSe
Se c2 = 2 entao
c2 <- 8
FimSe
Se c2 = 3 entao
c2 <- 4
FimSe
Se c2 = 4 entao
c2 <- 2
FimSe
Se c2 = 5 entao
c2 <- 1
FimSe
Escreval ("Digite a colocação da terceira corrida do piloto ",nome,":")
leia (c3)
Se c3 = 1 entao
c3 <- 10
FimSe
Se c3 = 2 entao
c3 <- 8
FimSe
Se c3 = 3 entao
c3 <- 4
FimSe
Se c3 = 4 entao
c3 <- 2
FimSe
Se c3 = 5 entao
c3 <- 1
FimSe
Escreval ("Digite a colocação da quarta corrida do piloto ",nome,":")
leia (c4)
Se c4 = 1 entao
c4 <- 10
FimSe
Se c4 = 2 entao
c4 <- 8
FimSe
Se c4 = 3 entao
c4 <- 4
FimSe
Se c4 = 4 entao
c4 <- 2
FimSe
Se c4 = 5 entao
c4 <- 1
FimSe
Escreval ("Digite a colocação da quinta corrida do piloto ",nome,":")
leia (c5)
Se c5 = 1 entao
c5 <- 10
FimSe
Se c5 = 2 entao
c5 <- 8
FimSe
Se c5 = 3 entao
c5 <- 4
FimSe
Se c5 = 4 entao
c5 <- 2
FimSe
Se c5 = 5 entao
c5 <- 1
FimSe
TotalPontos <- c1+c2+c3+c4+c5
Escreval ("Total de Pontos do piloto ",nome,": ",TotalPontos)
Se count = 0 entao
TotalPontos <- TotalPontos1
FimSe
Se count = 1 entao
TotalPontos <- TotalPontos2
FimSe
Se count = 2 entao
TotalPontos <- TotalPontos3
FimSe
count <- count + 1
FimEnquanto
Ate (count = 10)
fimalgoritmo
-------------------------------------------------------------------------------------------------------------
Assim que eu fizer os exercícios irei postar aqui.
espero ter ajudado.
Início 
