NA LINGUAGEM "POTIGOL"
Considere o trecho de código abaixo, ele será responsável pelo teste das funções soma, produto, media e mdc que você deverá implementar. O programa abaixo não poderá ser alterado. Acrescente suas funções (nas linhas anteriores a declaração da variável n1). Obs.: O cálculo é uma média ponderada em 4, 5 e 6 respectivamente.
escreva "Informe n1:"
var n1 := leia_numero
escreva "Informe n2:"
var n2 := leia_numero
escreva "Informe n3:"
var n3 := leia_numero
escreva "Soma: {soma(n1,n2)}"
escreva "Produto: {produto(n1,n2)}"
escreva "Média: {media(n1,n2,n3)}"
escreva "Máximo Divisor Comum: {mdc(n1,n2,n3)}"
Soluções para a tarefa
Resposta:
Explicação:
soma(n1: numero, n2: numero, n3: numero)
var n4:= n1 + n2 + n3
retorne n4
fim
produto(n1: numero , n2: numero, n3: numero)
var n5:= n1 * n2 * n3
retorne n5
fim
media(n1: numero, n2: numero, n3: numero)
var n6:= (n1 + n2 + n3) / 2
retorne n6
fim
mmc(n1: numero, n2: numero, n3: numero)
var n7:= n1 mod n2
var n8:= n7 mod n3
retorne n8
fim
a:= 5
b:= 3
c:= 5
d:= 0
d:= soma(a, b, c)
escreva "a soma de {a} + {b} + {c} é igual a {d}"
a:= 8
b:= 4
c:= 6
d:= 0
d:= produto(a, b, c)
escreva "O produto de {a} * {b} * {c} é igual a {d}"
a:= 7
b:= 3
c:= 2
d:= 0
d:= media(a, b, c)
escreva "A media de ({a} + {b} + {c}) / 2 é igual a {d}"
a:= 12
b:= 9
c:= 3
d:= 0
d:= produto(a, b, c)
escreva "O mmc de {a} mod {b} mod {c} é igual a {d}"
Resposta:
soma(a: Inteiro, b: Inteiro)
retorne a + b
fim
produto(a: Inteiro, b: Inteiro)
retorne a * b
fim
media(a: Inteiro, b: Inteiro, c: Inteiro)
retorne (a * 4 + b * 5 + c * 6) / 15
fim
mdc(a: Inteiro, b: Inteiro, c: Inteiro)
var resposta := 1
para i de 2 até a faça
se a mod i + b mod i + c mod i == 0 então
resposta := i
fim
fim
retorne resposta
fim