LISTAS DE EXERCì

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Calcular Сrea e Perэmetro de Retтngulo"
// Funчуo : Calcular Сrea e Perэmetro do Retтngulo
// Autor : Aluno
// Data : 15/8/2011
// Seчуo de Declaraчѕes
var
Base, Altura, Area, Perimetro : real
inicio
// Seчуo de Comandos
escreva ("Digite o valor da base:")
leia (Base)
escreva ("Digite o valor da Altura:")
leia (Altura)
Area <- Base * Altura
Perimetro <- Base + Base + Altura + Altura
escreval ("A Сrea do retтngulo щ igual a", Area)
escreval ("O Perэmetro do retтngulo щ igual a", Perimetro)
fimalgoritmo
algoritmo "soma e raiz do produto de 3 numeros"
// Funчуo : soma e raiz do produto de 3 numeros
// Autor : Aluno
// Data : 17/08/2011
// Seчуo de Declaraчѕes
var
n1,n2,n3, Soma, Prod, RaizP: real
inicio
// Seчуo de Comandos
Escreva ("1К numero:")
Leia (n1)
Escreva ("2К numero:")
Leia (n2)
Escreva ("3К numero:")
Leia (n3)
Soma <- n1+n2+n3
Prod <- n1*n2*n3
RaizP <- prod^(1/2)
Escreval ("A soma dos 3 nњmeros щ", Soma)
Escreval ("A Raiz do produto dos numeros щ", Raizp
fimalgoritmo
algoritmo "Transformaчуo de CК para FК"
// Funчуo : Transformaчуo de CК para FК
// Autor : Aluno
// Data : 17/08/2011
// Seчуo de Declaraчѕes
var
Celsius, Fahr: real
inicio
// Seчуo de Comandos
Escreva ("o valor em grau Celsius (CК)")
Leia (Celsius)
Fahr <- (9*celsius+32)/5;
Escreval ("o Valor em graus Fahrenheit (FК) щ", Fahr)
fimalgoritmo
algoritmo "Volume da esfera de acordo com o Raio"
// Funусo : Volume da esfera de acordo com o Raio
// Autor : Aluno
// Data : 17/08/2011
// Seусo de Declaraушes
var
Raio, Vesfera: real
inicio
// Seусo de Comandos
Escreva ("O Valor do Raio ж:")
Leia (Raio)
Vesfera <- (4*3.14*Raio**3)/3
Escreval ("o Volume da esfera ж:", Vesfera)
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor : Aluno
// Data : 10/10/2001
// Seусo de Declaraушes 
var
NTPres, NPresPg: inteiro
VAPres, Tpg, SDev: Real
inicio
// Seусo de Comandos
Escreva ("Digite o nЩmero Total de prestaушes:")
Leia (NTPres)
Escreva ("Digite o nЩmero de Prestaушes Pagas:")
Leia (NPresPg)
Escreva ("Digite o Valor Total da Prestaушes ж R$")
Leia (VAPres)
Tpg <- NPresPg*VAPres
SDev <- (NTPres-NPresPg)* VaPres
Escreval ("_________________________________________________")
Escreval ("O Valor total pago no consзrcio ж de R$",Tpg,",00")
Escreval ("O Saldo Devedor no consзrcio ж de R$",SDev,",00")
Escreval ("_________________________________________________")
fimalgoritmo
algoritmo "Тngulo"
// Funчуo :
// Autor : Aluno
// Data : 18/8/2011
// Seчуo de Declaraчѕes 
var
graus,minutos,segundos,ANG,RAD : real
inicio
escreva ("Digite o valor em graus:")
leia (graus)
escreva ("Digite o valor em minutos:")
leia (minutos)
escreva ("Digite o valor em segundos:")
leia (segundos)
ANG <- graus+(minutos+(segundos/60))/60
RAD <- (ANG*pi)/180
escreval ("__________________________________________")
escreval ("Тngulo Utilizado:", graus,"К", minutos,"'",segundos,"''")
escreval ("__________________________________________")
escreval ("O valor do тngulo щ igual a",ANG)
escreval ("O valor do тngulo em radianos щ igual a",RAD)
fimalgoritmo
algoritmo "Amarrar o pacote"
// Funусo :
// Autor : Aluno
// Data : 24/08/2011
// Seусo de Declaraушes 
var
larg, comp, alt, total: real
inicio
// Seусo de Comandos 
escreva ("Qual a largura (cm) do pacote:")
Leia (larg)
escreva ("Qual o comprimento (cm) do pacote:")
Leia (comp)
escreva ("Qual a altura (cm) do pacote:")
Leia (alt)
total <- 4*alt + 4*comp + 4*larg + 30
escreval("е")
escreval ("serсo necessрrios",total," cm de barbante para amarrar o pacote")
fimalgoritmo
algoritmo "DistРncia entre A e B"
// Funусo :
// Autor : Aluno
// Data : 24/08/2011
// Seусo de Declaraушes 
var
x1, x2, y1, y2, dist: real
inicio
// Seусo de Comandos 
escreval ("O Ponto A (x1,y1)")
escreva ("O x1 ж igual:")
Leia (x1)
escreva ("O y1 ж igual:")
Leia (y1)
escreval ("е")
escreval ("O Ponto B (x2,y2)")
escreva ("O x2 ж igual:")
Leia (x2)
escreva ("O y2 ж igual:")
Leia (y2)
dist <- ((x2-x1)^2 + (y2 -y1)^2)^1/2
escreval ("е")
escreval ("A DistРncia entre o ponto A(",x1,",",y1,") e B(",x2,",",y2,") ж",dist)
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor : aluno
// Data : 24/08/2011
// Seусo de Declaraушes 
var
d1,d2,m1,m2,a1,a2,mes,dia:real
inicio
// Seусo de Comandos 
escreval ("DATA DE NASCIMENTO")
escreva("Dia:")
leia (d1)
escreva("MЖs:")
leia (m1)
escreva("Ano:")
leia (a1)
escreval ("Data de nascimento:",d1,"/",m1,"/",a1)
escreval ("==========================")
escreval ("DATA DE HOJE")
escreva("Dia:")
leia (d2)
escreva("MЖs:")
leia (m2)
escreva("Ano:")
leia (a2)
escreval ("Data de hoje:",d2,"/",m2,"/",a2)
mes <- ((a2-1)-(a1+1))*12 + m1 + m2
dia <- (mes*30) + d1 + d2
escreval ("==========================")
escreval ("VocЖ jр viveu",dia," dias")
escreval ("==========================")
fimalgoritmo
algoritmo "Mжdia do aluno"
// Funусo : Mжdia do aluno
// Autor : Aluno
// Data : 28/8/2011
// Seусo de Declaraушes 
var
n1,n2,n3,med:real
inicio
// Seусo de Comandos 
Escreva ("Nota da 1ф Prova:")
Leia (n1)
Escreva ("Nota da 2ф Prova:")
Leia (n2)
Escreva ("Nota da 3ф Prova:")
Leia (n2)
med <- N1*2+N2*4+N3*6/2+4+6
Escreva ("A mжdia final ж:", med)
fimalgoritmo
====================================================================================
LISTA 2
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 28/8/2011
// Seусo de Declaraушes 
var
n: real
inicio
// Seусo de Comandos
escreva ("o Algarismo ж:")
Leia (n)
 se n>0 entao
 escreva ("algarismo positivo")
 senao
 se n<0 entao
 escreva ("algarismo negativo")
 senao
 escreva ("o algarismo ж Zero(nulo)")
 fimse
 fimse
fimalgoritmo
algoritmo "Desconto para clientes"
// Funусo :
// Autor : Aluno
// Data : 29/08/2011
// Seусo de Declaraушes 
var
vlr, desc, compra: real
inicio
// Seусo de Comandos
escreva ("Qual o valor da compra do cliente:")
leia (vlr)
 se vlr<5000 entao
 desc <- vlr*0.15
 senao
 desc <- vlr*0.20
 fimse
compra <- vlr-desc
Escreval ("O valor do desconto: R$",desc)
Escreval ("O valor final da compra: R$",compra)
fimalgoritmo
algoritmo "Qual nЩmero maior e menor?"
// Funусo :
// Autor : Aluno
// Data : 29/08/2011
// Seусo de Declaraушes 
var
n1,n2,n3:real
inicio
// Seусo de Comandos 
Escreva (" O 1║ nЩmero:")
Leia (n1)
Escreva (" O 2║ nЩmero:")
Leia (n2)
Escreva (" O 3║ nЩmero:")
Leia (n3)
 se (n1>n2) e (n1>n3) entao
 se (n2>n3) entao
 escreva("O maior nЩmero ж:",n1,". O menor nЩmero ж:",n3)
 senao
 escreva("O maior nЩmero ж:",n1,". O menor nЩmero ж:",n2)
 fimse
 fimse
 
 se (n2>n1) e (n2>n3) entao
 se (n1>n3) entao
 escreva("O maior nЩmero ж:",n2,". O menor nЩmero ж:",n3)
 senao
 escreva("O maior nЩmero ж:",n2,". O menor nЩmero ж:",n1)
 fimse
 fimse
 
 se (n3>n1) e (n3>n2) entao
 se (n1>n2) entao
 escreva("O maior nЩmero ж:",n3,". O menor nЩmero ж:",n2)
 senao
 escreva("O maior nЩmero ж:",n3,". O menor nЩmero ж:",n1)
 fimse
 fimse
fimalgoritmo
algoritmo "Qual nЩmero maior e menor?"
// Funусo :
// Autor : Aluno
// Data : 29/08/2011
// Seусo de Declaraушes 
var
n1,n2,n3:real
inicio
// Seусo de Comandos 
Escreva (" O 1║ nЩmero:")
Leia (n1)
Escreva (" O 2║ nЩmero:")
Leia (n2)
Escreva (" O 3║ nЩmero:")
Leia (n3)
 se (n1>n2) e (n1>n3) entao
 se (n2>n3) entao
 escreva("O maior nЩmero ж:",n1,". O menor nЩmero ж:",n3)
 senao
 escreva("O maior nЩmero ж:",n1,". O menor nЩmero ж:",n2)
 fimse
 fimse
 
 se (n2>n1) e (n2>n3) entao
 se (n1>n3) entao
 escreva("O maior nЩmero ж:",n2,". O menor nЩmero ж:",n3)
 senao
 escreva("O maior nЩmero ж:",n2,". O menor nЩmero ж:",n1)
fimse
 fimse
 
 se (n3>n1) e (n3>n2) entao
 se (n1>n2) entao
 escreva("O maior nЩmero ж:",n3,". O menor nЩmero ж:",n2)
 senao
 escreva("O maior nЩmero ж:",n3,". O menor nЩmero ж:",n1)
 fimse
 fimse
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor : Aluno
// Data : 30/08/2011
// Seусo de Declaraушes 
var
n: inteiro
inicio
escreva ("Digite o nЩmero:")
Leia (n)
 se n<100 entao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa A")
 escreval ("------------------------------")
 senao
 se n>300 entao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa X")
 escreval ("------------------------------")
 senao
 se (n>=100) e (n<151) entao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa B")
 escreval ("------------------------------")
 senao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa C")
 escreval ("------------------------------")
 fimse
 fimse
 fimse
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor : Aluno
// Data : 30/08/2011
// Seусo de Declaraушes 
var
n: inteiro
inicio
escreva ("Digite o nЩmero:")
Leia (n)
 se n<100 entao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa A")
 escreval ("------------------------------")
 senao
 se n>300 entao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa X")
 escreval ("------------------------------")
 senao
 se (n>=100) e (n<151) entao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa B")
 escreval ("------------------------------")
 senao
 escreval ("------------------------------")
 escreval ("Esse nЩmero pertence a Faixa C")
 escreval ("------------------------------")
 fimse
 fimse
 fimse
fimalgoritmo
algoritmo "CALCULAR IMC"
// Funусo : CALCULAR IMC
// Autor : ALUNOS
// Data : 24/8/2011
// Seусo de Declaraушes 
var
Sexo: caracter
h, IMC: real
inicio
escreval ("Digite o sexo (M/F):")
leia (Sexo)
escreval ("Digite a altura em metros:")
leia (h)
se (Sexo = "M") entao
 IMC <- 72.7*h-58
 senao
 IMC <- 62.1*h-44.7
fimse
escreval ("Seu valor de IMC ж igual a", IMC)
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 31/08/2011
// Seусo de Declaraушes 
var
n1, n2: inteiro
inicio
Escreva ("Digite o nЩmero maior:")
leia (n1)
Escreva ("Digite o nЩmero menor:")
Leia (n2)
 se (n1) mod(n2) = 0 entao
 Escreval("------------------------")
 Escreval("os NЩmeros sсo multiplos")
 Escreval("------------------------")
 senao
 Escreval("----------------------------")
 Escreval("os NЩmeros nсo sсo multiplos")
 Escreval("----------------------------")
 fimse
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 31/08/2011
// Seусo de Declaraушes 
var
n1,n2,n3:real
menor,meio,maior:real
inicio
escreva ("Digite o 1║ nЩmero:")
leia (n1)
escreva ("Digite o 2║ nЩmero:")
leia (n2)
escreva ("Digite o 3║ nЩmero:")
leia (n3)
// achando o Maior nЩmero
se (n1>n2) e (n1>n3) entao
maior <- n1
senao
 se (n2>n1) e (n2>n3) entao
 maior <- n2
 senao
 maior <- n3
fimse
fimse
// achando o menor nЩmero
se (n1<n2) e (n1<n3) entao
menor <- n1
senao
 se (n2<n1) e (n2<n3) entao
 menor <- n2
 senao
 menor <- n3
fimse
fimse
// agora para achar o nЩmero do meio
se (n1>n2) e (n1<n3) ou (n1<n2) e (n1>n3) entao
 meio <- n1
 senao
 se (n2>n1) e (n2<n3) ou (n2<n1) e (n2>n3) entao
 meio <- n2
 senao
 meio <- n3
 fimse
fimse
escreval ("-----------------------------------------------------")
escreval ("os nЩmeros em ordem crescente sсo:",menor,",",meio," e",maior)
escreval ("os nЩmeros em ordem decrescente sсo:",maior,",",meio," e",menor)
escreval ("-----------------------------------------------------")
fimalgoritmo
===============================================================================
LISTA 3
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 14/09/2011
// Seусo de Declaraушes 
var
N, Cont, soma, qneg : inteiro
Inicio
 para cont de 1 ate 5 faca
 escreva ("NЩmero:")
 leia (n)
 se n>=0 entao
 soma <- soma + n
 senao
 qneg <- qneg + 1
 fimse
 fimpara
escreval ("a soma dos nЩmeros positivos ж:",soma)
escreval ("A quantidade de valores negativos ж:",qneg)
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 14/09/2011
// Seусo de Declaraушes 
var
i: inteiro
Vlrcomp, total, desc, soma: real
Nome: caracter
Inicio
Para i de 1 ate 3 faca
 Escreva ("Nome do Cliente: ")
 Leia (nome)
 Escreva ("Valor (em R$) da Compra: ")
 Leia (vlrcomp)
 Se vlrcomp >= 250 entao
 Desc <- 0.2
 Senao
 Desc <- 0.15
 fimse
 total <- vlrcomp - (vlrcomp*desc)
 Escreval ("O Valor do desconto ж:",desc)
 Escreval ("O Valor pago pelo Cliente ж: ", total ,"(reais)")
 Escreval ("------------------------------------------")
 soma <- Soma + total
fimpara
Escreval ("O valor arecadado com os 10 clientes foi:" ,soma)
Escreval ("------------------------------------------")
fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 12/9/2011
// Seусo de Declaraушes
var
i, x, y: inteiro
soma: real
inicio
Escreva ("O valor do 1░ nЩmero:")
Leia (x)
Escreva ("O valor do 2░ nЩmero:")
Leia (y)
Para i de x ate y passo 1 faca
 se (i mod 2 = 0) entao
 escreval (i)
 soma <- soma + i
 fimse
fimpara
Escreval ("------------------------------------------------------------------------")
Escreval (" A soma de todos os numeros pares compreendidos entre", x ," e", y ," ж:", soma)
Escreval ("------------------------------------------------------------------------")
Fimalgoritmo
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 14/09/2011
// Seусo de Declaraушes 
var
x , n, num, den: inteiro
a: real
inicio
escreva ("Digite o valor de N: ")
Leia (n)
Para x de 0 ate (n-1) passo 1 faca
 num <- n - x
 den <- x + 1
 A <- A + (num/den)
fimpara
escreva ("O valor de A em relaусo a N ж: " ,a)
fimalgoritmo
Exercício 7
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 12/9/2011
// Seусo de Declaraушes
var
i, x, n, maior, menor :inteiro
inicio
Escreva ("Quantos nЩmeros serсo digitados para fazer a comparaусo entre o > e o <:")
Leia (x)
para i de 1 ate x passo 1 faca
 escreva ("NЩmero:")
 Leia (n)
 se (i = 1) entao
 Maior <- n
 Menor <- n
 fimse
 se (n > maior) entao
 Maior <- n
 fimse
 se (n < menor) entao
 Menor <- n
 fimse
fimpara
Escreval ("е")
Escreval ("O nЩmero maior ж",maior,". E o nЩmero menor ж",menor,".")
Fimalgoritmo
Exercício 11
algoritmo "semnome"
// Funусo :
// Autor :
// Data : 14/09/2011
// Seусo de Declaraушes 
var
x , n, num, den: inteiro
a: real
inicio
escreva ("Digite o valor de N: ")
Leia (n)
Para x de 1 ate n passo 1 faca
 num <- (x*2)-1
 den <- x
 A <- A + (num/den)
fimpara
escreva ("O valor de A em relaусo a N ж: " ,a)
fimalgoritmo