Universidade Eduardo Mondlane
Faculdade de Engenharia
Departamento de cadeiras gerais
Engenharia Mecânica
Informática
Tema: Programação em visualG
Wilson Escrivão Maússe
Maio de 2024
1. algoritmo "leitura dos dados de um estudante"
Var X, Z :caracter
Var Y :inteiro
inicio
escreva("introduza o nome do estudante:")
leia(X)
escreva("introduza a idade do estudante:")
leia(Y)
escreva("introduza a nacionalidade do estudante:")
leia(Z)
escreva("o estudante ",X," tem ",Y," anos ","e nacionalidade”,
Z)
fimalgoritmo
2. algoritmo ”soma de dois numeros A e B”
Var a,b,s: inteiro
Inicio
Escreva(“introduza o primeiro numero”)
Leia(a)
Escreva(“introduza o segundo valor”)
Leia(b)
s<-(a+b)
Escreva(“a soma é”,s)
Fimalgoritmo
[Link] “impressao da media de A e B”
Var A: real
Var B :real
Var M :real
Inicio
escreva(“introduza a primeira nota”)
leia(A)
escreva(“introduza a segunda nota”)
leia(B)
M<-(A+B)/2
escreva(“A média de ”,A,” e ”,B,”é”, M)
fimalgoritmo
[Link] “solucao de uma equacao linear”
Var a:inteiro
Var b: inteiro
var x: real
inicio
escreva(“introduza o valor do declive”)
leia(a)
escreva(“introduza o valor da ordenada na
origem”)
leia(b)
x<-(-b/a)
escreva(“ a solucao da equacao é “,x)
fimalgoritmo
[Link]:”ler a base a altura de um
triangulo”
var base: inteiro
var altura: inteiro
var area: real
inicio
escreva(“introduza o valor de base”)
leia(base)
escreva(“introduza o valor da altura”)
leia(altura)
area<-(base*altura)/2
escreva(“a area do triângulo é”, ,area)
[Link] ”nome e preco de um automovel”
var a:caracter
var b: inteiro
var c: real
inicio
escreva(“introduza o nome do carro”)
leia(a)
c<-(b+b*0.45+b*0.28)
escreva(“o carro ”,a,”custa”,c,”MT”)
fimalgoritmo
7. Algoritmo "leitura do salario de um
funcionario"
Var a, s :: real
Inicio
escreva("introduza o valor do salário:")
leia(A)
se (a<=1850) entao
s<-(a*50/100+a)
escreva("colaborador classe c seu salário é:",s)
senão
se (a<=4500)
então
s<-
(a*25/100+a)
escreva("colaborador
classe B seu salário
é:",s)
senão
s<-
(a*15/100+a)
escreva("coloborador
classe A seu salário é:",s)
fimse
fimse
Fimalgoritmo
8. algoritmo "verificar se dado é par ou impar"
var a: inteiro
inicio
escreva("introduza o dado:")
leia(a)
se (a%2=0)enta
escreva(" o numero ",a," é impar")
senao
escreva("o numero",a," é par")
fimse
fimalgoritmo
9. algoritmo "receber dois numeros e mostrar o maior"
Var b, a : inteeiro
inicio
escreva("introduza o primeiro numero:")
leia(a)
escreva("introduza o segundo numero:")
leia(b)
se (a>b) entao
escreva(a," é o maior”)
senão
escreva(b," é o maior”)
fimse
fimalgoritmo
10. algoritmo "receber 3
notas e mostrar o
resultado"
Var a, b, c, m : real
inicio
escreva("introduza a primeira nota:")
leia(a)
escreva("introduza a segunda nota:")
leia(b)
escreva("introduza a terceira nota:")
leia(c)
m<-(a+b+c)/2
Se (m<=10) entao
escreva("excluido")
senão
se (m<14) entao
escreva("admitido")
senao
escreva("dispensado")
fimse
fimse
fimalgoritmo
11. algoritmo "soluçao de uma equacao quadratica"
11. // Para calcular as raízes de uma equação quadrática (a² + bx + c = 0)
algoritmo " equação_quadrática"
var A,B,C: real
var Delta: real
var x1,x2,x1_2: real
// Se ( ∆ > 0 ) : x1<>x2 //
// Se ( ∆ = 0 ) : x1=x2 //
// Se ( ∆ < 0 ) : x1, x2 não pertencem aos reais //
inicio
escreval(" Digite o 1º valor: ")
leia (A)
escreval(" Digite o 2º valor: ")
leia (B)
escreval(" Digite o 3º valor: ")
leia (C)
se A<>0
então
Delta <- (B^2) - (4*A*C)
se (Delta > 0)
entao
x1 <- (- B + RaizQ (Delta))/2*A
x2 <- (- B - RaizQ (Delta))/2*A
escreval (" As raízes possuem valores diferentes: S = {",x1,";",x2,"}.")
senao
se (Delta = 0)
entao
x1_2 <- (-B)/(2*A)
escreval (" As raízes possuem valores iguais: S = {",x1_2,"}.")
senao
escreval(" A equação não possui raízes reais ")
fimse
fimse
senão
escreval("Não é uma
equação quadrática")
fimse
fimalgoritmo
12. algoritmo "leia numeros inteiros e imprima o menor deles"
Var b, c, a:inteiro
inicio
escreva("introduza o primeiro numero:")
leia(a)
escreva("introduza o segundo numero:")
leia(b)
escreva("introduza o terceiro numero:")
leia(c)
se (a<b) e (a<c) entao
escreva(a," é o menor numero")
senao
se(b<c)e (b<a) entao
escreva(b," é o menor numero")
senao
se (c<a) e (c<b) entao
escreva(C," é o menor numero")
senao
escreva("para se idenficar
o menor todos os numeros devem ser diferentes”)
fimse
fimse
Fimse
fimalgoritmo
13. algoritmo "receba 3 numeros e imprima os em ordem
crescente"
Var b, c, a:inteiro
inicio
escreva("introduza o primeiro numero”)
leia(a)
escreva("introduza o segundo numero”)
leia(b)
escreva("introduza o terceiro numero”)
leia(c)
se(a<b)e(b<c)entao
escreva(a, b, c)
Senao
se(b<a)e(a<c)entao
escreva( b, a, c)
senao
se(c<a)e(a<b) entao
escreva(c, a, b)
senao
se (a<c)e(c<b)entao
escreva( a, c, b)
senao
se(c<b)e(b<a)entao
escreva(c, b, a)
senao
se(b<c)e(c<a)entao
escreva ( a,
b, c)
senao
escreva("os
numeros devem ser todos distintos")
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
14. algoritmo "tabuada de um numero inteiro positivo"
Var n, i: inteiro
inicio
escreva("introduza o valor de n:")
leia(n)
Enquanto i<= 10 faca
escreval(n,"x",i,"=",n*i)
fimenquanto
fimalgoritmo
15. algoritmo "impressao dos
primeiros 100 numeros naturais"
Var
i: inteiro
inicio
Enquanto i <= 100 faca
escreva(i)
fimenquanto
fimalgoritmo
[Link] “soma dois primeiros 20 numeros naturais ”
var quant : inteiro
var s : inteiro
var i:inteiro
inicio
i<-1
escreva ("introduza quant")
leia(quant)
s<-0
i<-1
repita
i<-i+1
s<-s+i
ate(i=quant)
escreva("S=", s)
fimalgoritmo
17. algoritmo “leitura e impressao de numeros pares no
intervalo m n”
Var N : Real
Var M : Real
Var I : Real
Inicio
Escreva (“introduz um num”)
Leia (N)
Escreva (“introduziz outro num”)
Leia (M)
Se M>N entao
Para I de N ate M faça
Se I%2=0 então
Escreva (I)
Senão
Escreva(“”)
Fimse
Fimpara
Senão
Para I de M ate N faça
Se I%2=0 então
Escreva (I)
Senão
Escreva(“”)
Fimse
Fimpara
Fimse
Fimalgoritmo
18. algoritmo “ factorial de um número”
[Link] “helloworld”
Var n : inteiro
Var P : inteiro
Var I : inteiro
Inicio
Escreva (“introduz um num”)
Leia (n)
P<- 1
Para I de 1 ate n faça
P<- I*P
Fimpara
Escreva (“fact=”, P)
Fimalgoritmo
19. algoritmo ”numero perfeito”
Var n, S ,I ,X : inteiro
Inicio
Escreva (“introduz um num”)
Leia (n)
X<- n – 1
S<- 0
Para I de 1 ate X
faça
Se n % I = 0
então
S<- S + I
Senão
Fimse
Fimpara
Se S=n então
Escreva (n, “é
um número perfeito”)
Senão
Escreva ( n,
“não é um número perfeito”)
Fimse
Fimalgoritmo
nao
20. algoritmo “numero perfeito no intervalo de 2 a 100”
Algoritmo “helloworld”
Var I : inteiro
Var N : Inteiro
Var S : inteiro
Var X : inteiro
Inicio
Para N de 2 ate 100 faça
X<- N – 1
Para I de 1 ate X faça
Se N % I = 0 então
S<- 0
S<- S + I
Senão
Fimse
Fimpara
Se N=S então
Escreva (N, “é perfeito”)
Senão
Fimse
Fimpara
Fimalgoritmo
21. algoritmo “determinar se é primo ou nao via teclado”
Var
n:inteiro
i:inteiro
r:real
inicio
escreva(“introduza um numero”)
leia(n)
i<-2
r<-n%i
enquanto r<>0 faca
i<-i+1
r<-n%i
fimenquanto
se n=i entao
escreva(n,”é primo”)
senao
escreva(n,”nao é primo”)
fimse
fimalgoritmo
22. algoritmo “ïmpressao dos primeiros 20 numeros primos”
Var n, p,i:inteiro
r:real
inicio
n<-2
p<-0
enquanto p<20 faca
i<-2
r<-n%i
enquanto r<>0 faca
i<-i+1
r<-n%i
fimenquanto
se n=i entao
escreva(n)
n<-n+1
p<-p+1
senao
n<-n+1
fimse
fimenquanto
fimalgoritmo
23. algoritmo “impressao dos termos de uma P.A”
Var
a:inteiro
n:real
inicio
a<-1
repita
n<-2*a+1
escreva(n,” ”)
a<-a+1
ate a>100
fimalgoritmo
24. algoritmo “impressao dos
termos da serie
fibounacci”
Var a, b, c, t:inteiro
Inicio
a<-0
b<-1
escreva(b,”,”)
t<-1
enquanto t<100 faca
c<-a+b
escreva(c,”,”)
t<-t+1
a<-b
b<-c
fimequanto
c<-a+b
escreva(c,”,”)
fimalgoritmo
25. algoritmo “dizer se
um numero é termo de
fibounacci ou nao”
var
n, a, b,c: inteiro
inicio
escreva(“introduza o n”)
leia(n)
a<-0
b<-1
c<-a+b
enquanto c<n faca
a<-b
b<-c
c<-a+b
fimenquanto
se c=n entao
escreva(n,”é termo de fibounacci”)
senao
escreva(n,”nao é termo de fibounacci”)
fimse
fimalgoritmo