correção da prova de algoritmos
1-
algoritmo "triangulo"
var
x, y, z:inteiro
inicio
escreval("Digite a medida dos 3 lados do triangulo")
leia(x, y, z)
se (x >= y+z) ou (y >= x+z) ou (z >= x+y) entao
escreval("As medidas informadas nao formam um triangulo")
senao
se (x=y) e (y=z) entao
escreval("Triangulo equilatero - todos os lados iguais")
senao
se (x=y) ou (x=z) ou (y=z) entao
escreval("Triangulo isoceles - 2 lados iguais")
senao
se (x<>y) e (x<>z) e (y<>z) entao
escreval("Triangulo escaleno - todos os lados diferentes")
fimse
fimse
fimse
fimse
fimalgoritmo
essa foi a unica que consegui resolver sem muita enrolação
2-
algoritmo "angulo"
var
a: inteiro
voltas: real
inicio
escreval("Digite um angulo")
leia(a)
se (a>360) ou (a < -360) entao voltas <- a / 360 a <- a mod 360 senao voltas <- 0 fimse se (a=0) ou (a=90) ou (a=180) ou (a=270) ou (a=360) ou (a=-90) ou (a=-180) ou (a=-270) ou (a=-360) entao escreval("Esta sobre um dos eixos") senao se ((a >0) e (a < 90)) ou ((a < -270) e (a > -360)) entao
escreval("1 quadrante")
fimse
se ((a >90) e (a < 180)) ou ((a < -180) e (a > -270)) entao
escreval("2 quadrante")
fimse
se ((a >180) e (a < 270)) ou ((a < -90) e (a > -180)) entao
escreval("3 quadrante")
fimse
se ((a >270) e (a < 360)) ou ((a < 0) e (a > -90)) entao
escreval("4 quadrante")
fimse
escreva(" ", voltas," voltas no sentido ")
se (a<0) entao escreval(" horario") senao escreval(" anti-horario") fimse fimse fimalgoritmo Essa o único erro foi deixar de mostrar as voltas do sentido... Também é diferente o jeito como lidei com o número maior que 360 e menor que -360, ao invés de usar uma conta "cabuloza" escolhe usar a estrutura certa... o enquanto. ex (enquanto grau > 360 faca /// grau<-grau-360 /// voltas<-voltas+1. E algo similar para o -360. 3- algoritmo "calculos" var num, prim, soma_prim, soma, qtd, z, maior, menor, qtd_par, soma_par, qtd_impar: inteiro media_par, media, perc : real inicio qtd <- 0 qtd_par<-0 soma_par <-0 soma_prim <- 0 qtd_impar <-0 escreval("Digite um numero") leia(num) repita se (qtd=0) entao maior <- num menor <- num senao se (num > maior) entao
maior <- num
fimse
se (num < menor ) entao
menor <- num
fimse
fimse
soma <- soma + num
qtd <- qtd + 1
se (num mod 2 = 0) entao
soma_par <- soma_par + num
qtd_par <- qtd_par + 1
senao
qtd_impar <- qtd_impar + 1
fimse
prim <- 0
para z de 1 ate num faca
se (num mod z = 0) entao
prim <- prim + 1
fimse
fimpara
se (prim <= 2)entao
soma_prim <- soma_prim + num
fimse
leia(num)
ate(num=99999)
se (qtd = 0) entao
escreval("Nenhum numero digitado")
senao
escreval("A soma e ",soma)
escreval("A quantidade e ",qtd)
media <- soma / qtd
escreval("A media e ", media)
escreval("O maior e ", maior)
escreval("O menor e ", menor)
se (qtd_par = 0 ) entao
escreval("Nenhum numero par foi digitado")
senao
media_par <- soma_par / qtd_par
escreval("A media dos pares e ", media_par)
fimse
perc <- qtd_impar * 100 / qtd
escreval("O percentual de impares e ", perc)
escreval("A soma dos primos e ",soma_prim)
fimse
fimalgoritmo
depois dessa prova tive um completo desanimo sobre a carreira que tento seguir um pensamento me perguntando se era daquilo que gostava realmente e eu sem esitar lhe disse que "SIM".
Onde ouver a esperança de recupera essa nota vou atras pq isso e muito importante pra mim não to aqui atoato aqui pra isso errar e correr atras.
quinta-feira, 26 de maio de 2011
quarta-feira, 25 de maio de 2011
AULA 14- prova
dia bem difisil pra mim nesse dia foi dada a provae por acaso tinha crianças fazendo bagunça o tempo todo,
ao lado da nossa sala tinha um tipo de conselho de classe eu acho que tinha muita gente reunida ali
fasendo muito barulho e atrapalhando a concentração de todos ate a do proprio professor.
a prova tava bem complicada pra mim eu fiquei confuso e acabei não sabendo o que faser, achei muito pesimo o fato da prova ter apenas 3 questões mas belesa isso e o professor quem decide ele que eta avaliando o aluno,
ela tinha uma questão um tanto fasil mas as outras duas, uma que tinha um circulo e tinha que mostrar graus e quadrante foi muito ruin, e a outra que tinha numero maior menor, primos, etc. que tinha qe indentificar muitas coisas pego fiquei muito confuso com os comandos de repetição e acabei me ferrando na prova
ao lado da nossa sala tinha um tipo de conselho de classe eu acho que tinha muita gente reunida ali
fasendo muito barulho e atrapalhando a concentração de todos ate a do proprio professor.
a prova tava bem complicada pra mim eu fiquei confuso e acabei não sabendo o que faser, achei muito pesimo o fato da prova ter apenas 3 questões mas belesa isso e o professor quem decide ele que eta avaliando o aluno,
ela tinha uma questão um tanto fasil mas as outras duas, uma que tinha um circulo e tinha que mostrar graus e quadrante foi muito ruin, e a outra que tinha numero maior menor, primos, etc. que tinha qe indentificar muitas coisas pego fiquei muito confuso com os comandos de repetição e acabei me ferrando na prova
quinta-feira, 19 de maio de 2011
AULA 12- 13
nessa aula foi dada 8 questões de revisão para prova do dia 25/05
1)Faça um programa que recebe um número positivo e maior que zero, calcule e mostre:
1)Faça um programa que recebe um número positivo e maior que zero, calcule e mostre:
1)a) o número digitado ao quadrado;
1)b) o número digitado ao cubo;
1)c) a raiz quadrada do número digitado;
1)d) a raiz cúbica do número digitado.
algoritmo "semnome"
var
n, nq, cubo, rq, rc: real
inicio
leia(n)
se (n<=0) entao
escreval("Digite um nro maior que zero")
senao
nq <- n^2
escreval("O nro ao quadrado e ",nq)
cubo <- n^3
escreval("O nro ao cubo e ",cubo)
rq <- RaizQ(n)
escreval("A raiz quadrada e ",rq)
rc <- n^(1/3)
escreval("A raiz cubica e ", rc)
fimse
fimalgoritmo
algoritmo "semnome"
var
n, quad, cubo, raiz, raiz_cub: real;
inicio
escreval("Digite um numero")
leia(n);
se (n > 0) entao
quad <- n * n;
escreva (quad);
cubo <- n^3;
raiz <- n^(1/2);
raiz_cub <- n^(1/3);
escreva (cubo, raiz, raiz_cub);
senão
escreva("Digite um numero maior que zero");
fim-se
fimalgoritmo
2)Faça um programa para verificar se um inteiro positivo lido é par ou ímpar (mostre por escrito se é par ou ímpar). Se o número for ímpar, multiplique por 2 e mostre o resultado, caso contrário multiplique por ½ e mostre o resultado. (OBS: Par: x mod 2 = 0)
algoritmo "parimpar"
var
result:real
n:inteiro
inicio
leia(n)
se (n mod 2 = 0) entao
escreval("o numero lido é par")
result <- n * 1/2
senao
escreval("o numero lido é impar")
result <- n * 2
fimse
escreval(result)
fimalgoritmo
3)Faça um programa que receba o custo total de um espetáculo teatral e o preço do convite desse espetáculo. Esse programa deverá calcular e mostrar a quantidade de convites que devem ser vendidos para que pelo menos o custo do espetáculo seja alcançado.
algoritmo "teatro"
var
total, ingresso, qtd:real
inicio
escreval("Digite o custo total do espetaculo")
leia(total)
escreval("Digite o custo do ingresso")
leia(ingresso)
qtd <- total/ingresso
escreval("Voce deve vender no minimo ",qtd, " ingressos")
fimalgoritmo
4)Faça um programa que receba três números e mostre-os em ordem decrescente.
algoritmo "decrescente"
var
A, B, C : inteiro
inicio
escreval("Digite 3 numeros para ordenar descrescente")
leia (A, B, C)
se (A > B) e (A > C) entao
se (B > C) entao
escreval (A, B, C)
senao
escreval (A, C, B)
fimse
senao
se (B > A) e (B > C) entao
se( A > C) entao
escreval (B, A, C)
senao
escreval (B, C, A)
fimse
senao
se (C > A) e (C > B) entao
se ( A > B) entao
escreval (C, A, B)
senao
escreval (C, B, A)
fimse
fimse
fimse
fimse
fimalgoritmo
5)Faça um programa que receba a hora do início de um jogo e a hora final (cada hora é composta por duas variáveis inteiras: hora e minuto). Calcule e mostre a duração do jogo (horas e minutos), sabendo-se que o tempo máximo de duração do jogo é de 24 horas e que ele pode iniciar-se em um dia e terminar no dia seguinte.
6)Faça um programa que receba cem números, calcule e mostre a soma dos números pares e a média dos números primos.
7)Faça um programa que receba a idade e o peso de 75 pessoas, e que calcule e mostre as médias dos pesos das pessoas da mesma faixa etária. As faixas etárias são: de 1 a 10 anos, de 11 a 20 anões de 21 a 30 anos e de 31 anos para cima.
algoritmo "peso_idade"
var
x,idade,pesso:inteiro
contador1,contador2,contador3,contador4,pesso1,pesso2,pesso3,pesso4,media1,media2,media3,media4:real
inicio
contador1<-0
contador2<-0
contador3<-0
contador4<-0
pesso1<-0
pesso2<-0
pesso3<-0
pesso4<-0
para x de 1 ate 75 faca
escreval("Digite a idade e o pesso!")
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o Pesso: ")
leia(pesso)
se(idade>=1) e (idade<=10) entao
contador1<-contador1+1
pesso1<-pesso+pesso1
senao
se(idade>=11) e (idade<=20) entao
contador2<-contador2+1
pesso2<-pesso+pesso2
senao
se(idade>=21) e (idade<=30) entao
contador3<-contador3+1
pesso3<-pesso+pesso3
senao
se(idade>=31) entao
contador4<-contador4+1
pesso4<-pesso+pesso4
senao
fimse
fimse
fimse
fimse
fimpara
media1<-pesso1/contador1
media2<-pesso2/contador2
media3<-pesso3/contador3
media4<-pesso4/contador4
escreval("A média de pesso da idade 1 até 10 anos é",media1,".")
escreval("A média de pesso da idade 11 até 20 anos é",media2,".")
escreval("A média de pesso da idade 21 até 30 anos é",media3,".")
escreval("A média de pesso da idade 31 ou mais é",media4,".")
fimalgoritmo
var
x,idade,pesso:inteiro
contador1,contador2,contador3,contador4,pesso1,pesso2,pesso3,pesso4,media1,media2,media3,media4:real
inicio
contador1<-0
contador2<-0
contador3<-0
contador4<-0
pesso1<-0
pesso2<-0
pesso3<-0
pesso4<-0
para x de 1 ate 75 faca
escreval("Digite a idade e o pesso!")
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o Pesso: ")
leia(pesso)
se(idade>=1) e (idade<=10) entao
contador1<-contador1+1
pesso1<-pesso+pesso1
senao
se(idade>=11) e (idade<=20) entao
contador2<-contador2+1
pesso2<-pesso+pesso2
senao
se(idade>=21) e (idade<=30) entao
contador3<-contador3+1
pesso3<-pesso+pesso3
senao
se(idade>=31) entao
contador4<-contador4+1
pesso4<-pesso+pesso4
senao
fimse
fimse
fimse
fimse
fimpara
media1<-pesso1/contador1
media2<-pesso2/contador2
media3<-pesso3/contador3
media4<-pesso4/contador4
escreval("A média de pesso da idade 1 até 10 anos é",media1,".")
escreval("A média de pesso da idade 11 até 20 anos é",media2,".")
escreval("A média de pesso da idade 21 até 30 anos é",media3,".")
escreval("A média de pesso da idade 31 ou mais é",media4,".")
fimalgoritmo
8)Cada espectador de um cinema respondeu a um questionário no qual constava sua idade e sua opinião em relação ao filme: ótimo – 3, bom – 2, regular – 1. Faça um programa que receba a idade e a opinião de 75 espectadores, calcule e mostre:
− a média das idades das pessoas que responderam ótimo;
− a quantidade de pessoas que responderam regular;
− a percentagem de pessoas que responderam bom, entre todos os espectadores analisados.
algoritmo "questionario"
var
x,idade,opcao:inteiro
contador1,contador2,contador3,idade_o,media_o,media_b:real
inicio
para x de 1 ate 75 faca
escreval("Ola, digite sua idade e opinição do filme.")
escreva("Digite sua idade: ")
leia(idade)
limpatela
escreval("Para Ótimo digite 3, para Bom digite 2 e para Regular digite 1.")
repita
escreva("Digite a opcao desejada: ")
leia(opcao)
se (opcao<>1) ou (opcao<>2) ou (opcao<>3) entao
escreva("Digitou opção errada, redigite sua opção!")
fimse
ate(opcao=1)ou(opcao=2)ou(opcao=3)
limpatela
se (opcao = 1) entao
contador1<-contador1+1
fimse
se (opcao = 3) entao
contador3<-contador3+1
idade_o<-idade+idade_o
fimse
se (opcao = 2) entao
contador2<-contador2+1
fimse
fimpara
media_o<-idade_o/contador3
escreval("A média das pessoas que acharam ótimo foi de",media_o,".")
escreval(contador1," pessoas responderam Regular.")
media_b<-75/contador2
escreval(media_b,"% das pessoas responderam Bom.")
fimalgoritmo
ultimo dia para rever erros, amanha a prova e ja to desanimado antes de fazela.
não consegui resolver a 5º ea 6º quetão e não foi apenas eu foi toda a turma no geral que não conseguiu bom se cair uma questão assm eu to morto nessa prova
var
x,idade,opcao:inteiro
contador1,contador2,contador3,idade_o,media_o,media_b:real
inicio
para x de 1 ate 75 faca
escreval("Ola, digite sua idade e opinição do filme.")
escreva("Digite sua idade: ")
leia(idade)
limpatela
escreval("Para Ótimo digite 3, para Bom digite 2 e para Regular digite 1.")
repita
escreva("Digite a opcao desejada: ")
leia(opcao)
se (opcao<>1) ou (opcao<>2) ou (opcao<>3) entao
escreva("Digitou opção errada, redigite sua opção!")
fimse
ate(opcao=1)ou(opcao=2)ou(opcao=3)
limpatela
se (opcao = 1) entao
contador1<-contador1+1
fimse
se (opcao = 3) entao
contador3<-contador3+1
idade_o<-idade+idade_o
fimse
se (opcao = 2) entao
contador2<-contador2+1
fimse
fimpara
media_o<-idade_o/contador3
escreval("A média das pessoas que acharam ótimo foi de",media_o,".")
escreval(contador1," pessoas responderam Regular.")
media_b<-75/contador2
escreval(media_b,"% das pessoas responderam Bom.")
fimalgoritmo
ultimo dia para rever erros, amanha a prova e ja to desanimado antes de fazela.
não consegui resolver a 5º ea 6º quetão e não foi apenas eu foi toda a turma no geral que não conseguiu bom se cair uma questão assm eu to morto nessa prova
terça-feira, 17 de maio de 2011
AULA 11
cheguei na aula e levei um pequeno susto aula de algoritmos ao inves de ingles mas tranquilo isso vem mais a acalhar
6- Faça um programa que leia o numero "N" e que indique quantos valores inteiros e positivos devem ser lidos a seguir. Para cada número lido, mostre uma tabela contendo o valor lido, mostre uma tabela contendo o valor e o fatorial desse valor:
algoritmo "valor_fatorial"
var
n,num,y,x:inteiro
fat:real
inicio
escreva("Número de operações fatoriais: ")
leia(n)
para x de 1 ate n faca
escreva("Escreva algum numero que deseje fatorar: ")
leia(num)
fat<-1
para y de 1 ate num faca
fat<-fat*y
escreval(fat)
fimpara
fimpara
fimalgoritmo
7- Foi feita uma estatística em cinco cidades brasileiras para coletar dados sobre acidentes de transito.
Foram obtidas os seguintes dados:
a)O código da cidade;
b)Número de veículos de passeio (em 2010)
c)Número de acidentes de transito com vitimas (em 2010)
Deseja-se saber:
a)Qual o maior e o menor índice de acidentes de transito e a que cidade eles pertencem;
b)Qual a média de veículos nas cinco cidades juntas;
c)Qual a média de acidentes de transito nas cidades com menos de 2000 veículos de passeio.
algoritmo "estatistica"
var
x,caros,acidentes,carosx,acidentesx,acidentesy,contador,acidentes_m,n:inteiro
city,city_a,city_m_a:caracter //variaveis onde vai o nome da cidade
media_caros,media_a:real
inicio
carosx<-0
n<-5 //número de vezes.
acidentesx<-0
acidentesy<-10000000
contador<-0
acidentes_m<-0
para x de 1 ate n faca
escreval("Digite a cidade, o número de veiculos e o número de acidentes com vitimas")
escreva("Nome da cidade: ")
leia(city)
escreva("Escreva o número de caros de ",city,": ")
leia(caros)
escreva("Escreva o número de acidentes com vitimas de ",city,": ")
leia(acidentes)
carosx<-caros+carosx
se (acidentes > acidentesx) entao
acidentesx<-acidentes
city_a<-city
fimse
se (acidentesy = 0) entao
acidentesy<-acidentes
fimse
se (acidentes < acidentesy) entao
acidentesy<-acidentes
city_m_a<-city
fimse
se (caros>=2000) entao
acidentes_m<-acidentes+acidentes_m
contador<-contador+1
fimse
limpatela
fimpara
media_caros<-carosx/n
escreval("O maior número de acidentes ocorre em ",city_a,".")
escreval("O menor néumero de acidentes ocorre em ",city_m_a,".")
escreval("A média de caros das 5 cidades são",media_caros,".")
media_a<-acidentes_m/contador
se (contador <> 0) entao
escreval("A média de acidentes em cidades de mais de 2000 caros é",media_a,".")
senao
escreva("Nenhuma cidade tem mais de 2000 caros")
fimse
fimalgoritmo
essa aula ajudou bastante mesmo não tando prevista e eu so com o note sem meu caderno de algoritos,
fico bom assim não tinha muitos lugares de pesquisa porque minhas anotações ficaram em casa mas isso me ajudou.
quinta-feira, 12 de maio de 2011
AULA 10
sem o professor no inicio da aula não sei porque se estava atrasado ou não mas belesa tirei duvidas com meus colegas
1. Faça um programa que leia 10 números, e no final calcula e mostre a média.
algoritmo "numeros10"
var
num,x,soma:inteiro
smedia:real
inicio
escreval("digite a quantia de numeros a serem lidos:")
leia(num)
para x de 1 ate num faca
escreval("Numero",x,":")
leia (x)
soma <- soma+x
fimpara
smedia <- soma/num
escreval("a media é: " ,smedia )
fimalgoritmo
2. Faça um programa em que o usuário informe a quantidade de números a serem lidos, e no final, calcule e mostre a média dos números lidos.
algoritmo "numeros"
var
x,soma,num:inteiro
media:real
inicio
escreval("digite a quantia de numeros para o calculo do problema: ")
leia(num)
para x de 1 ate num faca
leia (num)
soma<- num + soma
escreval("Média no momento é : ",soma)
fimpara
media<-soma/num
escreval("A média dos numeros digitados é: ", media)
fimalgoritmo
3. Faça um programa que fique lendo e somando números enquanto que o produto deles seja inferior a mil.
algoritmo "numeros_ate"
var
x:inteiro
soma:real
inicio
escreval("Digite os numeros: ")
soma<- 0
enquanto (soma<1000) faca
leia(x)
soma<-soma+x
escreva(soma," +")
fimenquanto
fimalgoritmo
4. Faça um programa que leia e some números, enquanto o número lido seja diferente de zero. Ao final mostre a média dos números lidos. Cuidado com divisão por zero!
algoritmo "0 para"
var
x,soma:inteiro
inicio
escreval("Digite um um numero seguido de enter,seguidamente, quando desejar parar,pressione 0")
x<-1
enquanto x>0 faca
leia(x)
soma<-x+soma
escreval("+",x, "=",soma)
escreval("Prescionando a tecla 0 você pode parar o programa.")
se x=0 entao
escreval("Tecla 0 pressionada:sessão encerrada pelo usuário")
fimse
fimenquanto
fimalgoritmo
5. Faça um programa que fique lendo 2 notas, calcule e mostra a média, enquanto o usuário quiser. Dica, leia “0” (Não) ou “1” (Sim) para fazer o teste.
algoritmo "medianotas05"
var
x,z,y:inteiro
media:real
inicio
repita
escreval("Digite uma nota pressione enter e em seguida a segunda nota e pressione enter novamente para mostrar a media")
leia(x,y)
escreval("Digite 1 e pressione enter para obter a media das 2 notas ou 0 para sair")
leia(z)
se z<=1 entao
media<-(x+y)/2
escreval("A media das duas notas digitadas é: ",media)
fimse
enquanto (z>2) ou (z<0)faca
escreval("Opção não cadastrada!")
escreval("Pressione 1 mostrar a média das notas ou")
escreval("0 ver a media das notas e encerrar a sessão")
leia(Z)
se (z=1) ou (z=0) entao
media<-(x+y)/2
escreval("A media das duas notas digitadas é: ",media)
fimse
fimenquanto
ate z=0
se z = 0 entao
escreval( "Sessão terminada pelo usuário" )
fimse
fimalgoritmobom pessoal aqui a gente termino os exercicios propostos consegui terminar com muita pasiencia sem me estresar.
quarta-feira, 11 de maio de 2011
AULA 9
coreção dos exercicios da aula pasada
para, enquanto, repita
Comando para-> qualquer variável ate outra
Ex: n de 1 ate 10 faca
escreva(x*9)
fimpara
Coimando enquanto->
Ex: enquanto (dia>31) ou(dia<1)
escreva("Dia incorreto, digite novamente:")
leia(dia)
Comando repita->
Ex:
repita
leia (dia)
ate (dia<=31) e (dia>0)
Exercicio:
algoritmo "aula9"
var
num,fat,x:inteiro
inicio
escreva("digite o numero para resolução do fatorial do mesmo:")
leia(num)
fat<-1
para x de 1 ate num faca
fat<-fat*x
escreva("x=", x , "Fatorial=", fat)
fimpara
escreva("Fatorial de ," num, "é: " , fat )
fimalgoritmo
cara esse dia foi daqueles ne, na aula entendi tudo mas quando peguei a caneta eo papel para criar os programa foi um desastre não saia nada mas to melhorando to indo de vagar mas to me puxando.
cara esse dia foi daqueles ne, na aula entendi tudo mas quando peguei a caneta eo papel para criar os programa foi um desastre não saia nada mas to melhorando to indo de vagar mas to me puxando.
quinta-feira, 5 de maio de 2011
AULA 7- 8
Exercícios para aula 7 – comando SE – Fazer no software visualg.
1. Faça um programa que receba um número inteiro e verifique se é par ou ímpar.
2. A nota final de um estudante é calculada a partir de três notas atribuídas, respectivamente , a um trabalho de laboratório, a uma avaliação semestral e a um exame final. A média das três notas mencionadas obedece aos pesos a seguir:
Nota | Peso |
Trabalho de laboratório | 2 |
Avaliação semestral | 3 |
Exame final | 5 |
Faça um programa que receba as três notas, calcule e mostre a média ponderada e o conceito que segue a tabela:
Média Ponderada | Conceito |
[8,0 – 10,0] | A |
[7,0 – 8,0[ | B |
[6,0 – 7,0[ | C |
[5,0 – 6,0[ | D |
[0,0 – 5,0[ | E |
3. Um funcionário de uma empresa recebe aumento salarial anualmente. Sabe-se que:
a) Esse funcionário foi contratado em 2007, com salário inicial de R$ 1.000,00.
b) Em 2008, ele recebeu aumento de 1,5% sobre seu salário inicial.
c) A partir de 2009 (inclusive), os aumentos salariais sempre corresponderam ao dobro do percentual do ano anterior.
Faça um programa que determine o salário atual desse funcionário. (o ano atual deve ser digitado pelo usuário).
4. Faça um programa que receba três notas de um aluno, calcule e mostre a média aritmética e a mensagem constante na tabela a seguir. Aos alunos que ficaram para exame, calcule e mostra a nota que deverão tirar para serem aprovados, considerando que a média exigida é 6,0.
Média Aritmética | Mensagem |
[0,0 – 3,0[ | Reprovado |
[3,0 – 7,0[ | Exame |
[7,0 – 10,0] | Aprovado |
5. Faça um programa que receba dois números e mostre o maior.
6. Faça um programa que receba três números e mostre-os em ordem crescente. Suponha que o usuários digitará três números diferentes.
algoritmo "maior"
var
n1, n2, n3 :real
inicio
escreval ("Digite três números diferentes")
escreval ("Digite o primeiro número")
leia (n1)
escreval ("Digite o segundo número")
leia (n2)
escreval ("Digite o terceiro número")
leia (n3)
se (n1 < n2) e (n1 < n3) entao
escreval (n1)
se (n2 < n3 ) entao
escreval (n2)
escreval (n3)
senao
escreval (n3)
escreval (n2)
fimse
fimse
se (n2 < n1) e (n2 < n3) entao
escreval (n2)
se (n1 < n3 ) entao
escreval (n1)
escreval (n3)
senao
escreval (n3)
escreval (n1)
fimse
fimse
se (n3 < n1) e (n3 < n2) entao
escreval (n3)
se (n1 < n2 ) entao
escreval (n1)
escreval (n2)
senao
escreval (n2)
escreval (n1)
fimse
fimse
fimalgoritmo7. Faça um programa que determine a data cronologicamente maior entre duas datas fornecidas pelo usuário. Cada data deve ser composta por três valores inteiros, em que o primeiro representa o dia, o segundo, o mês e o terceiro, o ano.
belesa na aula de hoje o prf. Jossandro capricho foi bem divertida e consegui compriender um pouco mais, mas não so o cara ne fis junto com o gustavo e ele e bem esperto nesses negocio, mas e isso o programa que não conseguia faser sosinho foi aquele dos "dias" acima.
algoritmo "data"
var
dia1,mes1,ano1,dia2,mes2,ano2,ano_dia1,dias1,ano_dia2,dias2,dias_num1,dias_num2:inteiro
inicio
escreval("Escreva um dia, um mes, um ano, exemplo (25 12 2011) :")
leia(dia1)
leia(mes1)
leia(ano1)
se mes1=1 entao //janeiro
dias_num1<-31
fimse
se mes1=2 entao //fevereiro
dias_num1<-28
fimse
se mes1=3 entao //Março
dias_num1<-31
fimse
se mes1=4 entao //Abril
dias_num1<-30
fimse
se mes1=5 entao //Maio
dias_num1<-31
fimse
se mes1=6 entao //junho
dias_num1<-30
fimse
se mes1=7 entao //julho
dias_num1<-31
fimse
se mes1=8 entao //agosto
dias_num1<-31
fimse
se mes1=9 entao //setembro
dias_num1<-30
fimse
se mes1=10 entao //outubro
dias_num1<-31
fimse
se mes1=11 entao //novembro
dias_num1<-30
fimse
se mes1=12 entao //dezembro
dias_num1<-31
fimse
se (mes1>=13) ou (mes1<=0) entao
escreval("Você Fez Merda!")
fimse
ano_dia1<-ano1*365
dias1<-dia1+dias_num1+ano_dia1
escreval("Escreva outro dia, outro mes, outro ano, exemplo (25 12 2011) :")
leia(dia2)
leia(mes2)
leia(ano2)
se mes2=1 entao //janeiro
dias_num2<-31
fimse
se mes2=2 entao //fevereiro
dias_num2<-28
fimse
se mes2=3 entao //Março
dias_num2<-31
fimse
se mes2=4 entao //Abril
dias_num2<-30
fimse
se mes2=5 entao //Maio
dias_num2<-31
fimse
se mes2=6 entao //junho
dias_num2<-30
fimse
se mes2=7 entao //julho
dias_num2<-31
fimse
se mes2=8 entao //agosto
dias_num2<-31
fimse
se mes2=9 entao //setembro
dias_num2<-30
fimse
se mes2=10 entao //outubro
dias_num2<-31
fimse
se mes2=11 entao //novembro
dias_num2<-30
fimse
se mes2=12 entao //dezembro
dias_num2<-31
fimse
se (mes2>=13) ou (mes2<=0) entao
escreval("Você Fez Merda!")
fimse
ano_dia2<-ano2*365
dias2<-dia2+dias_num2+ano_dia2
se dias1 > dias2 entao
escreval("A maior data é de dia",dia1," do mes",mes1," do ano",ano1,".")
senao
escreval("A maior data é de dia",dia2," do mes",mes2," do ano",ano2,".")
fimse
fimalgoritmo
belesa na aula de hoje o prf. Jossandro capricho foi bem divertida e consegui compriender um pouco mais, mas não so o cara ne fis junto com o gustavo e ele e bem esperto nesses negocio, mas e isso o programa que não conseguia faser sosinho foi aquele dos "dias" acima.
Assinar:
Comentários (Atom)


