Esse blog foi criado ha muito tempo atras como forma de divulgar os trabalhos da faculdade aos colegas de classe. Hoje ele se encontra abandonado mas voce pode visitar o meu site, onde encontrara bastante conteudo relacionado a tecnologia e informaticawww.gqferreira.com.br algoritmo "Homens e mulheres"// Funcao :// Autor : Gustavo Ferreira// Data : 15/10/2010// Secao de Declaracoes var quantidadeHomens,quantidadeMulheres,idadeHomens,idadeMulheres,idade:inteiro pesoMulheres,pesoHomens,peso:real sexo:caracterinicio idade<-1 quantidadeHomens<-0 quantidadeMulheres<-0 pesoMulheres<-0 pesoHomens<-0 repita escreva("Informe o sexo:") leia(sexo) se (sexo = "M") entao quantidadeHomens<-quantidadeHomens +1 escreval("Informe o peso do homem:") leia(peso) pesoHomens<- pesoHomens + peso escreval("Informe a idade do homem:") leia(idade) idadeHomens<- idadeHomens + idade senao quantidadeMulheres<-quantidadeMulheres +1 escreval("Informe o peso da mulher:") leia(peso) pesoMulheres<- pesoMulheres + peso escreval("Informe a idade da mulher:") leia(idade) idadeMulheres<- idadeMulheres + idade fimse ate (idade=0) escreval("Media de idade das mulheres:",idadeMulheres/quantidadeMulheres) escreval("Peso medio dos homens:",pesoHomens/quantidadeHomens) escreval("Media de idade de todos:",(idadeHomens+idadeMulheres)/(quantidadeHomens+quantidadeMulheres)) escreval("Quantidade homens (%): ",(100*quantidadeHomens)/(quantidadeHomens+quantidadeMulheres)) escreval("Quantidade mulheres (%): ",(100*quantidadeMulheres)/(quantidadeMulheres+quantidadeMulheres))fimalgoritmo Fazer um programa para calcular a soma dos N primeiros numeros, onde N e lido.Ex.: N=5. Soma = 1+2+3+4+5algoritmo "25 Outubro 8"// Funcao :// Autor : Gustavo Ferreira// Data : 26/10/2010// Secao de Declaracoes var i,soma:inteiroinicio// Secao de Comandos soma<-0 escreva("Informe o numero: ") leia (i) para i de i ate 1 passo - 1 faca soma<-soma + i fimpara escreval("Resultado: ",soma)fimalgoritmo Faca um programa para achar todos os numeros inteiros e positivos entre dois numeros lidos (N1 e N2), tais que:a) Nao terminem em zero;b) Se o digito a direita for removido, o numero restante seja divisor do numero original. (ex: 39 (3 e divisor de 39).algoritmo "25 Outubro 4"// Funcao :// Autor :// Data : 26/10/2010// Secao de Declaracoes var n1,n2,i,divisor: inteiroinicio// Secao de Comandos escreval("Informe o numero inicial:") leia(n1) escreval("Informe o numero final:") leia(n2) para i de n1 ate n2 passo 1 faca se (i>0) entao se ((i mod 10) = 0) entao divisor<- (i div 10) se ((i mod divisor) = 0) entao escreval("Numero ",divisor," e divisor de ",i) fimse fimse fimse fimparafimalgoritmo Faca um programa que mostre na tela o(s) numero(s) dentro do intervalo entre 600 e 700 que sejam multiplos de 5 e tambem de 7.algoritmo "25 Outubro 2"// Funcao : Procurar numeros multiplos de 5 entre 600 e 700// Autor : Gustavo Ferreira// Data : 26/10/2010// Secao de Declaracoes var i:inteiroinicio// Secao de Comandos escreval("O numeros abaixo sao multiplos de 5 e tambem de 7") para i de 600 ate 700 passo 1 faca se ((i mod 5) = 0) entao se ((i mod 7) = 0) entao escreval(i) fimse fimse fimparafimalgoritmo Uma semana sem te ver,Eu ja sabia que isso ia acontecer,O tempo passa eu fico mal,e ilusao achar que tudo esta igual,Voce, apareceu pra mim,Nao posso evitar, me sentir assim.O que eu faco pra escapar,Dessa vontade que eu tenho de falar,Toda hora com voce,Faco planos impossiveis pra te ver,Mas pra mim, sao tao reais,O que aconteceu, eu nao me lembro mais.Eu poderia escrever,mil cancoes so pra voce,Poderia te falar, meus motivos pra gostar, tanto de voce,me diz quando a gente vai se ver.Pra eu poder te abracar,e tentar te explicar,a falta que voce me faz,eu nao aguento