Exemplos de Algoritmo para estudo e treinamento!

Criar um programa de computador é algo fácil se você souber encontrar o caminho. Se você for capaz de estruturar as ideias e colocar dentro das regras dos algoritmo. Programar computadores envolve não apenas conhecer o computador, a memória RAM, que é o processador quem faz os cálculos. O programador deve saber fazer tudo isto, antes de programar o computador.

Exemplos:

1) - Seja uma sequência A,B,C, ... determinando um Progressão Aritmética (P.A.), o termo médio (B) de uma P.A. é determinado pela média aritmética de seus termos, sucessor (C) e antecessor (A). Com base neste enunciado construa um algoritmo em
PORTUGOL que calcule o termo médio (B) através de A, C.

Para resolver este problema e criar um programa você deve saber calcular uma Progressão Aritmética que é dada a seguinte regra: B=A+C/2.

Sabendo a fórmula para encontrar a PA, ainda assim, você deverá saber, deverá escrever o código para isto. Sendo que neste caso, você vai fazer assim em portugol usando o software Visualg 2.0 2.0

// Seção de Declarações
//B=A+C/2 é  a fórmula de calcular o termo médio de uma P.A
var
varA,varB,varC:real
inicio
// Seção de Comandos
escreva("Qual o primeiro termo? ")
leia(varA)
Escreva("Qual o último termo? ")
leia(varC)
varB<-varA+varC/2
Escreval("Foi encontrado: ",varB, " como termo médio")
fimalgoritmo

2) - Certo dia o professor de Johann Friederich Carl Gauss (aos 10 anos de idade) mandou que os alunos somassem os números de 1 a 100. Imediatamente Gauss achou a resposta – 5050 – aparentemente sem cálculos. Supõe-se que já aí, Gauss, houvesse descoberto a fórmula de uma soma de uma progressão aritmética.

Para este cálculo você vai usar a seguinte fórmula: Sn=(a1+an)*n/2. Assim, vamos lá no ambiente de programação, escrevemos o algoritmo e o executamos. O que é que temos que pedir ao usuário? O primeiro termo da P.A, e o último termo apenas. Veja abaixo:

var
resultado,primeiroTermo,ultimoTermo:real
inicio
// Seção de Comandos
Escreva("Qual o primeiro termo: ")
leia(primeiroTermo)
Escreva("Qual o último Termo: ")
leia(ultimoTermo)
resultado<-((primeiroTermo+ultimoTermo)*ultimoTermo/2)
Escreva("A Prog. Aritmética encontrada foi: ",resultado)
fimalgoritmo

Se você ainda não fez o download, faça o download do VisuAlg 2.0 para treinar os algoritmos. Este abaixo, faz o cálculo da média de tantos alunos. Veja como eu fiz:

var
nome: caractere
nota1,nota2,nota3,nota4, media: real
qtvezes,i:inteiro
inicio
// Seção de Comandos
escreva("Quantos alunos são? : ") // pede o número de alunos para calcular média
leia(qtvezes) // leia o número para repetir;
para i de 1 ate qtvezes faca 1 // Este comando vai repetir tantas vezes você respondeu
         escreva("Nome do Aluno : ") // Apresenta na tela: Nome do Aluno
         leia(nome) // Recebe a variável nome
         Escreva("Digite o Valor da Nota 1 :") // Apresenta na tela: Digite o valor da Nota 1
         Leia(nota1) // Recebe a variável nota1
         Escreva("Digite o Valor da Nota 2 :") // Apresenta na tela: Digite o valor da Nota 2
         Leia(nota2) // Recebe a variável nota2
         Escreva("Digite o Valor da Nota 3 :") // Apresenta na tela: Digite o valor da Nota 3
         Leia(nota3) // Recebe a variável nota3
         Escreva("Digite o Valor da Nota 4 :") // Apresenta na tela: Digite o valor da Nota 4
         Leia(nota4) // Recebe a variável nota4
         media<-(nota1+nota2+nota3+nota4)/4 // faz o cálculo da média
         Escreval("Media do Aluno : ", Media) // Exibe a média do aluno
fimpara // termina a repetição de tantas vezes
fimalgoritmo // fim do programa

Não desanimar. Não desistir. Sempre insistir. Sempre persistir. Faça vários exercícios. Veja exemplos na internet. Veja vídeos no Youtube. E estude as matérias. Todas, de alguma forma estão ligadas em Algoritmo.