How do I read to read these numbers and sum all without having to add variable by variable type sum it 60 times

Asked

Viewed 60 times

-2

Algoritmo "questionario"

Var Resposta: Caractere
Var soma,Nota: Inteiro

Inicio

Escreval("Questionario ENEM 2018
")

Escreval("1) Qual a capital do Brasil?")
Escreval("----------------------------")
Escreval("a) Brasilia")
Escreval("b) Acre")
Escreval("c) São Paulo")
Escreval("d) Amazônia")
Escreval("
Digite a resposta correta")
Leia (Resposta)

Se (Resposta="a") Entao
Escreval("Resposta Correta")
Escreval("===================

")
Nota<-(+10)
Senao
Escreval("Resposta Incorreta")
Escreval("===================

")
Nota<-Nota+0
Fimse


//Questão 2//
Escreval("2) Qual a cidade maravilhosa?")
Escreval("----------------------------")
Escreval("a) Brasilia")
Escreval("b) Acre")
Escreval("c) São Paulo")
Escreval("d) Rio De Janeiro")
Escreval("
Digite a resposta correta")
Leia (Resposta)

Se (Resposta="d") Entao
Escreval("Resposta Correta")
Escreval("===================

")
Nota<-(+10)
Senao
Escreval("Resposta Incorreta")
Escreval("===================

")
Nota<-(+0)
Fimse


//Questão 3//
Escreval("3) Qual a cidade maravilhosa?")
Escreval("----------------------------")
Escreval("a) Brasilia")
Escreval("b) Acre")
Escreval("c) São Paulo")
Escreval("d) Rio De Janeiro")
Escreval("
Digite a resposta correta")
Leia (Resposta)

Se (Resposta="d") Entao
Escreval("Resposta Correta")
Escreval("===================

")
Nota<-(+10)
Senao
Escreval("Resposta Incorreta")
Escreval("===================

")
Nota<-(+0)
Fimse


Escreval("Seu total de pontos foi de " ,  Nota)

Fimalgoritmo

1 answer

0

Beatriz, good night

I checked your code and realized that some operations we don’t need to place and the sum of note is not correct.

Tip: Use indentation, as well as making it easier to read, will make it easier to understand the code of the reader.

algoritmo "questionario"

var
   Resposta: Caractere
   soma, Nota: Inteiro

inicio
   //Importante inicializar com valor 0, caso contrário irá inicializar com valor aleatório
   nota <- 0

   Escreval("Questionario ENEM 2018")
   Escreval("1) Qual a capital do Brasil?")
   Escreval("----------------------------")
   Escreval("a) Brasilia")
   Escreval("b) Acre")
   Escreval("c) São Paulo")
   Escreval("d) Amazônia")
   Escreva("Digite a resposta correta: ")
   Leia (Resposta)

   Se (Resposta = "a") entao
      Escreval("Resposta Correta")
      Escreval("===================")
      Nota <- Nota + 10
   Senao
      //Caso a resposta seja falsa não é preciso incrementar, pois o valor continua 0
      Escreval("Resposta Incorreta")
      Escreval("===================")
   Fimse

   //Questão 2//
   Escreval("2) Qual a cidade maravilhosa?")
   Escreval("----------------------------")
   Escreval("a) Brasilia")
   Escreval("b) Acre")
   Escreval("c) São Paulo")
   Escreval("d) Rio De Janeiro")
   Escreva("Digite a resposta correta: ")
   Leia (Resposta)

   Se (Resposta = "d") entao
      Escreval("Resposta Correta")
      Escreval("===================")
      Nota<- Nota + 10
   Senao
      Escreval("Resposta Incorreta")
      Escreval("===================")
   Fimse

   //Questão 3//
   Escreval("3) Qual a cidade maravilhosa?")
   Escreval("----------------------------")
   Escreval("a) Brasilia")
   Escreval("b) Acre")
   Escreval("c) São Paulo")
   Escreval("d) Rio De Janeiro")
   Escreval("Digite a resposta correta")
   Leia (Resposta)

   Se (Resposta = "d") entao
      Escreval("Resposta Correta")
      Escreval("===================")
      Nota <- Nota + 10
   Senao
      Escreval("Resposta Incorreta")
      Escreval("===================")
   Fimse

   Escreval("Seu total de pontos foi de ", Nota)

Fimalgoritmo

To add more numbers instead of variable per variable, use the repeating structure FOR KNIFE FIMPARA

Note an example below:

algoritmo "Somar60vezes"
var
   soma, valor, contador, resultado: Inteiro

inicio

   Para contador <- 1 ate 60 faca
      Escreva("Informe o ", contador, "º valor para somar: ")
      Leia(valor)
      soma <- soma + valor
   FimPara

   resultado <- soma

   Escreva("A soma do valor é ", resultado)

fimalgoritmo

Not to keep typing 60 times, visualg provides a tool that generates random values, see in the highlighted field in red, whereas the field in yellow you can choose the range to generate random values, in this case I will generate any number between 0 and 20 inserir a descrição da imagem aqui

Browser other questions tagged

You are not signed in. Login or sign up in order to post.