quinta-feira, 26 de maio de 2011

aula 15

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.

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

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)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

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









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&gt;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&gt;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
fimalgoritmo

bom 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
 
comandos
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.

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
fimalgoritmo


7. 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.


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.