Universidade Eduardo Mondlane

Faculdade de Engenharia

Departamento de Cadeiras Gerais

Curso de Engenharia do Ambiente – Pós laboral

Cadeira: Informatica

Tema: LÓGICA DE PROGRAMAÇÃO

Discente: Docentes:
Raisse, Samira Selemane Marcelino Munguanase

Celso Chiconela

Maputo, Maio de 2024

 1. Impressão de Dados de um estudante

Algoritmo "ImpressãodeDadosdeumEstudante"
Var Inicio
nome: caractere
idade: inteiro
curso: caractere “Introduzir
Inicio Nome’’
Escreva("Digite o nome do estudante: ")
Leia(nome)
Escreva("Digite a idade do estudante: ") Nome
Leia(idade)
Escreva("Digite o curso do estudante: ")
Leia(curso) “Introduzir Idade’’

Escreva("Dados do Estudante:")
Escreva("Nome: ", nome)
Escreva("Idade: ", idade, " anos") Idade
Escreva("Curso: ", curso)
FimAlgoritmo

“Introduzir curso”

Curso

“Nome, Idade,
Curso”

Fim
2. Impressão da Soma de dois números A e B.

Algoritmo "Somadedoisnúmeros"
Var Inicio
A, B, soma: inteiro
Inicio
Escreva("Digite o valor de A e B ")
Leia(A, B) “Introduzir A e
soma <- A + B B’’
Escreva("A soma de ", A, " e ", B, " é ", soma)
FimAlgoritmo

A, B

Soma=A+B

Soma

Fim

3. Impressão da Media de dois números A e B

Inicio

Algoritmo "Média de dois números"

Var “Introduzir A
A, B, media: real
e B’’
Inicio
Escreva("Digite o valor de A: ")
Leia(A)
Media=A+B/2
Escreva("Digite o valor de B: ")
Leia(B)
media <- (A + B) / 2 Media
Escreva("A média de ", A, " e ", B, " é ", media)
FimAlgoritmo

Fim
4. Impressão da solução duma equação linear

Algoritmo "SoluçãodeumaEquaçãoLinear"
Var Inicio
a, b, x: real
Inicio
Escreva("Digite o valor de a e b ")
“Introduzir A e
Leia(a, b)
B’’
x <- -b / a
Escreva("A solução da equação ", a, "x + ", b, " = 0 é x = ", x)
FimAlgoritmo
X=-B/A

Fim

5. Ler a base e a altura de um triângulo. Em seguida, escreva a área do mesmo.

Inicio
Algoritmo "ÁreadeumTriângulo"
Var
base, altura, area: real “B=”
Inicio
Escreva("Digite a medida da base do triângulo: ")
Leia(b) B
Escreva("Digite a medida da altura do triângulo: ")
Leia(h)
“H=”
area <- (b * h) / 2
Escreva("A área do triângulo com base ", b, " e h",
altura, " é ", area)
FimAlgoritmo
H

Area=b*h/2

Area

Inicio
6 . O preço de um automóvel é calculado pela soma do preço de fábrica com o preço dos
impostos (45% do preço de fábrica) e a percentagem do revendedor (28% do preço de
fábrica). Leia o nome do automóvel e o preço de fábrica e imprima o nome do
automóvel e o preço final.

Algoritmo "PreçoFinaldoAutomóvel"
Var
nomeAutomovel: caractere Inicio
precoFabrica, precoFinal, impostos, comissaoRevendedor: real
Inicio
Escreva("Digite o nome do automóvel: ") “Introduza o nome
Leia(nomeAutomovel) do Automovel”

Escreva("Digite o preço de fábrica do automóvel: ")

Leia(Pf)
impostos <- 0.45 * Pf
comissaoRevendedor <- 0.28 * Pf Nome do
P.final <- Pf + impostos + comissaoRevendedor automóvel
Escreva("Nome do automóvel: ", nomeAutomovel)
Escreva("Preço final do automóvel: R$ ", P.final)
“Introduza o preco
FimAlgoritmo
de Fabrica”

Pf

Impostos=0.45*pf

ComissaoRevendedor =0.28*pf

P.final= Pf + impostos + comissaoRevendedor

“Nome do Automovel”
“P.final”

Fim
 7. Leia salário do funcionário. Se Salario é inferior ou igual a 1.850MT, dê um aumento
salarial de 50% e imprima a mensagem “Colaborador da classe C, seu Salario é: ”. De
contrário avalie se o Salario está entre 1.850 e 4.500MT (inclusive) para dar um aumento
de 25% e imprima a mensagem “Colaborador da classe B, seu Salario é: ”. De contrário,
dê um aumento de 15% e imprima a mensagem “Colaborador da classe A, seu Salario
é: ”

Inicio

“Introduzir
Salario”

Salario

Nao Nao sim Ns=Salario+50%sal

Salario<=1
1850 <=Salario<= ario
850
4500

“Colaborador de
sim classe C seu salario
Ns=Salario+15% e:” Ns
salario
Ns=Salario+25%salario

“Colaborador de
classe A seu salario
e:” Ns “Colaborador de
classe B seu salario
e:”Ns

Fim
Algoritmo "salario"
Var
s:REAL
Inicio
escreval("introduza o seu salario")
leia(s)
se(s<=1800)entao
s<-((s*50)/100)+s
escreval("Colaborador da classe C, seu Salario é:",s)
senao
se(s<=4500)entao
s<-((s*25)/100)+s
escreval("Colaborador da classe B, seu Salario é:",s )
senao
s<-((s*15)/100)+s
escreval("Colaborador da classe A, seu Salario é:",s)
fimse
fimse
Fimalgoritmo

8. Verifica se um dado número é par ou impar

Algoritmo "par_impar"

Var

n:inteiro
Inicio
escreval("introduza n").
leia(n)
se(n%2=0)entao
escreval(n,"e par")
senao
escreval(n,"e impar")
fimse
Fimalgoritmo
9 . Receba 2 números e mostre o maior deles.

Algoritmo "MAIOR"
Var
a,b:real
Inicio
escreval("introduza a")
leia(a)
escreval("introduza b")
leia(b)
se(a>b)entao
escreval("o maior numero e ",a)
senao
escreval("o maior numero e ",b)
fimse
Fimalgoritmo
10. .Receba três notas de um aluno, calcule e mostre a média aritmética de Frequência
(MF) e o resultado (Excluido, Admitido, Dispensado), conforme os critérios:

(a) MF< 10: Excluido

(b) 10<=MF=14 : Admitido

(c) MF>=14 Dispensado

Algoritmo "media_de_frequencia".
Var
a,b,c,mf:real
Inicio
escreval("introduza a")
leia(a)
escreval("introduza b")
leia(b)
escreval("introduza c")
leia(c)
mf<-(a+b+c)/3
se(mf>=14)entao
escreval("dispensado",mf)
senao
se(mf>=10)entao
escreval("admitido",mf)
senao
escreval("excluido",mf)
fimse
fimse
Fimalgoritmo
 11. Dada a Equação AX2 + BX + C=0, imprimir a solução (Observar todas as condições)

Inicio

”Introduza o
valor de A,B e
C”

A,b,c

F(x)=Ax^2+Bx+C

D=b*b-4*A*C

sim Nao sim

D<0 D>0 X1=(-b+raizq(D)/2*a

Nao

X1=X2=(- X2=(-b-raizq(D)/2*a
b+raizq(D)/2*a

X1,X2 X1,X2

“Nao possue
Fim
raizes em R”
Algoritmo "equacao_quadratica"
Var
a,b,c,mf:real
Inicio
escreval("introduza a")
leia(a)
escreval("introduza b")
leia(b)
escreval("introduza c")
leia(c)
se(a=0)entao
escreval("nao tem solucao")
senao
d<-b^(2)-4*a*c
se(d<0)entao
escreval("nao tem raizes reais")
senao
escreval("o valor de x1 e",((- b)+raizq(d))
escreval("o valor de x2 e",((b)-raizq(d))
fimse
fimse
Fimalgoritmo
12. Leia 3 números inteiros e imprima o menor deles

Algoritmo "menor"
Var
a,b,c,m:real
Inicio
escreval("introduza a")
leia(a)
escreval("introduza b")
leia(b)
se(a<b)entao
m<-a
senao
m<-b
fimse
escreval("introduza c")
leia(c)
se(c<m)entao
escreval("o menor numero e",c)
senao
escreval("o menor numero e",m)
fimse
fimalgoritmo
13. Receba 3 números e imprime-nos em ordem crescente.

Inicio

Introduza os
numeros

A,B,C

X =A-B

n x>0 s x>0 sim

X =B-C X =A-C

x>0 s A, C, B B, A, C
B, C, A

A, B, C

Fim
14. -Receba um número inteiro positivo do usuário e mostre a tabuada desse número.
Para mostrar a tabuada do 2, por exemplo, deverá ser apresentado da seguinte forma:

2x1=2

2x2=4

...

2 x 10 = 20

Algoritmo "tabuada"
Var
n,i,j:inteiro
Inicio
escreval("imtroduza n")
leia(n)
para i de 1 ate 10 faca
j<- n*i
escreval(n,"*",i,"=",j)
fimpara
Fimalgoritmo

15. Imprime os primeiros 100 números naturais

Algoritmo "100_numeros_naturais"
Var
i:inteiro
Inicio
para i de 1 ate 100 faca
escreval(i)
fimpara
Fimalgoritmo
16. . Imprime a soma dos primeiros 20 números naturais.

Algoritmo "100_numeros_naturais"
Var
i,j:inteiro
Inicio
para i de 1 ate 20 faca
j<-i+j
fimpara
escreval("a soma dos primeiros 20 numeros naturais e",j)
Fimalgoritmo
17. Ler dois números inteiros M e N e, a seguir, imprimir os números pares existentes no
intervalo [M, N]. Lembre-se que nem sempre M é um número par.

Algoritmo "100_numeros_naturais"
Var
i,m,n:inteiro
Inicio
escreval("introduza n")
leia(n)
escreval("introduza m")
leia(m)
para i de m ate n faca
se(i mod 2=0)entao
escreval(i)
fimse
fimpara
Fimalgoritmo

18. Determinar o fatorial de n (lido via teclado)

Algoritmo "factorial"
Var
n,i,f:inteiro
Inicio
f<-1
escreval("introduza um numero")
leia(n)
para i de 1 ate n faca
f<-f*i
fimpara
escreval(n,"!=",f)
Fimalgoritmo
19. Leia um número inteiro qualquer e determine se esse número é perfeito ou não. Um
número éperfeito quando a soma de seus divisores, excetuando- se o próprio número, for
igual ao número.

Algoritmo "Verificarseumnúmeroéperfeito"
Var
numero, somaDivisores, divisor: inteiro
Inicio
Escreva("Digite um número inteiro para verificar se é perfeito: ")
Leia(numero)
somaDivisores <- 0
Para divisor de 1 ate numero - 1 faca
Se numero mod divisor = 0 Entao
somaDivisores <- somaDivisores + divisor
FimSe
FimPara
Se somaDivisores = numero Entao
Escreva(numero, " é um número perfeito.")
Senao
Escreva(numero, " não é um número perfeito.")
FimSe
FimAlgoritmo

20. Determinar todos os números perfeitos existentes entre 2 e 100.

Algoritmo "NúmerosPerfeitosentre2e100"
Var
numero, somaDivisores, divisor: inteiro
Inicio
Escreva("Números perfeitos entre 2 e 100: ")
Para numero de 2 ate 100 faca
somaDivisores <- 0
Para divisor de 1 ate numero - 1 faca
Se numero mod divisor = 0 Entao
somaDivisores <- somaDivisores + divisor
FimSe
FimPara
Se somaDivisores = numero Entao
Escreva(numero)
FimSe
FimPara
FimAlgoritmo
 inicio

C,QTD,PR

Qtd<20 d<=C C=0

d<--d+1
“BOLECIANO PRIMO” “falso :”,

fim

fim fim

22. Algoritmo "Primeiros20NúmerosPrimos"

Var
numero, contador, divisor, contDivisores, primosEncontrados: inteiro
Inicio
Escreva("Os primeiros 20 números primos são: ")
primosEncontrados <- 0
Para numero de 2 ate 1000 // Começa a busca a partir de 2
contDivisores <- 0
Para divisor de 1 ate numero faca
Se numero mod divisor = 0 Entao
contDivisores <- contDivisores + 1
FimSe
FimPara
Se contDivisores = 2 Entao
Escreva(numero)
primosEncontrados <- primosEncontrados + 1
Se primosEncontrados = 20 Entao
Interrompa
FimSe
FimSe
FimPara
FimAlgoritmo
23.
inicio

al,D,PR

CONTADO fim

TERMO<--AL+(CONTADOR-1)*d
CONTADOR
<=100

TERMO

23.
CONTADOR+1

fim
inicio

Ant ,ACT

CONTADO

CONTADOR
<=99

PROX<--ANT+ACTUAL

CONTADOR ACTUAL
<=99

PROX<--ANT+ACTUAL
 inicio

CONTADOR

ANTERIO<--ACTUAL

CONTADPR<--
ACTUAL<--PROXIMO CONTADOR+1

23. Algoritmo "Primeiros 100 Termos de uma PA"

Var
a1, d, termo, contador: inteiro
Inicio
a1 <- 3
d <- 2
termo <- a1
Para contador de 1 ate 100 faca
Escreva(termo)
Escreva(" ")
termo <- termo + d
FimPara
FimAlgoritmo
24. Algoritmo "Primeiros 100 Termos da Sequência de Fibonacci"
Var
termo1, termo2, proximoTermo, contador: inteiro
Inicio
termo1 <- 1
termo2 <- 1
Escreva(termo1)
Escreva(" ")
Escreva(termo2)
Escreva(" ")
Para contador de 3 ate 100 faca
proximoTermo <- termo1 + termo2
Escreva(proximoTermo)
Escreva(" ")
termo1 <- termo2
termo2 <- proximoTermo
FimPara
FimAlgoritmo
24
inicio

Ant ,ACT

NUMERO

ACT<NUME
RO

PROX<--ANT+ACTUAL
FIM

ANT<-- ANT<--

27. inicio

A,b,c

^2-4ac

X1=( -b+)/2a X1

inicio

X2=( b+)/2a X2
27. . Algoritmo "EquaçãoQuadráticaeSolução"
Var
A, B, C, delta, x1, x2: real
grupo: inteiro
Inicio
Para grupo de 1 ate 10 faca
Escreva("Grupo ", grupo, ":")
Escreva("Digite o valor de A: ")
Leia(A)
Escreva("Digite o valor de B: ")
Leia(B)
Escreva("Digite o valor de C: ")
Leia(C)
delta <- B^2 - 4 * A * C
Escreva("Equação Quadrática: ", A, "x^2 + ", B, "x + ", C, " = 0")
Se delta > 0 Entao
x1 <- (-B + Raiz(delta)) / (2 * A)
x2 <- (-B - Raiz(delta)) / (2 * A)
Escreva("Soluções: x1 = ", x1, ", x2 = ", x2)
Senao
Se delta = 0 Entao
x1 <- -B / (2 * A)
Escreva("Solução única: x = ", x1)
Senao
Escreva("Raízes complexas.")
FimSe
FimSe
Escreval("")
FimPara
FimAlgoritmo
28. inicio

N>=0
inicio

FACT<--1

I de 1 ate n

s<--FACT*I

s
28. Algoritmo "FatorialdeValoresInteiros"
Var
valor, contador, fatorial: inteiro
Inicio
contador <- 1
Enquanto verdadeiro faca
Escreva("Digite um valor inteiro (negativo para sair): ")
Leia(valor)

Se valor < 0 Entao

Interrompa
FimSe
fatorial <- 1
Para contador de 1 ate valor faca
fatorial <- fatorial * contador
FimPara
Escreva("fact(", valor, ")=", fatorial)
Escreval("")
FimAlgoritmo
29. Algoritmo "SomaeMédiadeValoresReais"
Var
valor, soma, media, contador: real
valoresLidos: vetor[1..100] de real
valorRepetido: logico
Inicio
soma <- 0
contador <- 0
valorRepetido <- falso
Enquanto valorRepetido = falso faca
Escreva("Digite um valor real (digite o mesmo valor duas vezes para encerrar): ")
Leia(valor)
Para contadorDeVerificacao de 1 ate contador faca
Se valoresLidos[contadorDeVerificacao] = valor Entao
valorRepetido <- verdadeiro
Interrompa
FimSe
FimPara
contador <- contador + 1
valoresLidos[contador] <- valor
soma <- soma + valor
FimEnquanto
media <- soma / contador
Escreva("Valores lidos: ")
Para i de 1 ate contador faca
Escreva(valoresLidos[i], " ")
FimPara
Escreval("")
Escreva("Soma dos valores: ", soma)
Escreval("")
Escreva("Média dos valores: ", media)
FimAlgoritmo
29.