**Exemplo 1: Cálculo do Quadrado de um Número**
```portugol
Algoritmo CalculaQuadrado
Var
numero, quadrado: Real
Inicio
Escreva("Digite um número: ")
Leia(numero)
quadrado <- numero * numero
Escreva("O quadrado de ", numero, " é ", quadrado)
Fim
```
**Exemplo 2: Verificação de Número Par ou Ímpar**
```portugol
Algoritmo ParOuImpar
Var
numero: Inteiro
Inicio
Escreva("Digite um número inteiro: ")
Leia(numero)
Se numero % 2 = 0 Entao
Escreva("O número é par.")
Senao
Escreva("O número é ímpar.")
FimSe
Fim
```
**Exemplo 3: Cálculo do Fatorial de um Número**
```portugol
Algoritmo CalculaFatorial
Var
numero, fatorial, contador: Inteiro
Inicio
Escreva("Digite um número inteiro positivo: ")
Leia(numero)
Se numero < 0 Entao
Escreva("Número inválido. Digite um número positivo.")
Senao
fatorial <- 1
contador <- 1
Enquanto contador <= numero faca
fatorial <- fatorial * contador
contador <- contador + 1
FimEnquanto
Escreva("O fatorial de ", numero, " é ", fatorial)
FimSe
Fim
```
**Exemplo 4: Verificação de Número Primo**
```portugol
Algoritmo NumeroPrimo
Var
numero, i, cont: Inteiro
Inicio
Escreva("Digite um número inteiro positivo: ")
Leia(numero)
cont <- 0
Para i de 1 ate numero faca
Se numero % i = 0 Entao
cont <- cont + 1
FimSe
FimPara
Se cont = 2 Entao
Escreva("O número ", numero, " é primo.")
Senao
Escreva("O número ", numero, " não é primo.")
FimSe
Fim
```
**Exemplo 5: Conversão de Temperatura Celsius para Fahrenheit**
```portugol
Algoritmo ConversaoTemperatura
Var
celsius, fahrenheit: Real
Inicio
Escreva("Digite a temperatura em graus Celsius: ")
Leia(celsius)
fahrenheit <- (celsius * 9/5) + 32
Escreva("A temperatura em graus Fahrenheit é: ", fahrenheit)
Fim
```
**Exemplo 6: Cálculo de Média Ponderada**
```portugol
Algoritmo CalculaMediaPonderada
Var
nota1, nota2, nota3, media: Real
peso1, peso2, peso3: Inteiro
Inicio
Escreva("Digite a primeira nota: ")
Leia(nota1)
Escreva("Digite o peso da primeira nota: ")
Leia(peso1)
Escreva("Digite a segunda nota: ")
Leia(nota2)
Escreva("Digite o peso da segunda nota: ")
Leia(peso2)
Escreva("Digite a terceira nota: ")
Leia(nota3)
Escreva("Digite o peso da terceira nota: ")
Leia(peso3)
media <- (nota1 * peso1 + nota2 * peso2 + nota3 * peso3) / (peso1 + peso2 + peso3)
Escreva("A média ponderada é: ", media)
Fim
```
**Exemplo 7: Contagem de Dígitos de um Número**
```portugol
Algoritmo ContaDigitos
Var
numero, contador: Inteiro
Inicio
Escreva("Digite um número inteiro: ")
Leia(numero)
contador <- 0
Enquanto numero <> 0 faca
numero <- numero / 10
contador <- contador + 1
FimEnquanto
Escreva("O número digitado tem ", contador, " dígitos.")
Fim
```
**Exemplo 8: Encontrar o Maior Número entre Números Digitados**
```portugol
Algoritmo MaiorNumero
Var
numero, maior: Inteiro
Inicio
Escreva("Digite um número inteiro (0 para encerrar): ")
Leia(numero)
maior <- numero
Enquanto numero <> 0 faca
Escreva("Digite um número inteiro (0 para encerrar): ")
Leia(numero)
Se numero > maior Entao
maior <- numero
FimSe
FimEnquanto
Escreva("O maior número digitado é: ", maior)
Fim
```
**Exemplo 9: Ordenação de Três Números em Ordem Crescente**
```portugol
Algoritmo OrdenaNumeros
Var
num1, num2, num3, temp: Inteiro
Inicio
Escreva("Digite o primeiro número: ")
Leia(num1)
Escreva("Digite o segundo número: ")
0 Comentários