Question

FEITO NO VISUALG 3.0

Eae gente, estou com um problema em um algoritmo e preciso de ajuda! A questão fala bem assim: "Três amigos, Carlos, André e Felipe decidiram rachar igualmente a conta de um bar. Faça um algoritmo para ler o valor total da conta e imprimir quanto cada um deve pagar, mas faça com que Carlos e André não paguem centavos. Ex: uma conta de R$ 101.53 resulta em R$ 33,00 para Carlos, R$ 33,00 para André e R$ 35,53 para Felipe"

O meu algoritmo da erro, mas não sei por que:



Algoritmo "Conta"

Var
f, f2, conta:real
c,a:inteiro
integrantes:inteiro

Inicio
integrantes := (3)
escreva ("Digite o valor da conta e ser dividida pelos 3 amigos: ") //101.53
leia (conta)
c := (conta div integrantes)
a := (conta div integrantes) // INCOMPLETO PORQUE A DIVISÃO NÃO ESTÁ DANDO CERTO
f := (conta / integrantes)
f2 := ((conta mod integrantes)^2 + (f))

escreval ("Carlos, André e Felipe pagarão: ", c, ", ", a, ", e ", f2, " Reais respectivamente")
Fimalgoritmo

Answer 1

Resposta:

basicamente o que você fez de errado foi colocar a "Conta" como inteiro

Explicação:

Algoritmo "Conta"

//

//

// Descrição   : Aqui você descreve o que o programa faz! (função)

// Autor(a)    : Nome do(a) aluno(a)

// Data atual  : 10/11/2019

Var

f, f1:real

c,a, conta:inteiro

integrantes:inteiro

Inicio

integrantes := (3)

escreva ("Digite o valor da conta e ser dividida pelos 3 amigos: ") //101.53

leia (conta)

c := (conta div integrantes)

a := (conta div integrantes)

f := (conta / integrantes)

f1:=  (f + (conta mod integrantes))

escreval ("Carlos, André e Felipe pagarão: ", c, ", ", a, ", e ", f1, " Reais respectivamente")

Fimalgoritmo