How to put different texts for "yes" and "no" in Visualg?

Asked

Viewed 3,663 times

3

I started recently with programming, and I’m making an algorithm that guesses the user’s age, and I’m using Visualg to practice programming logic.

How to put commands sim or não in the Visualg, and if the person chooses sim, present the text A, if she chooses não, present the text B and continue to ask the next questions.

So far I’ve gotten to that part:

algoritmo "valores"
    var
        N1,S,S2,S3: inteiro
inicio
    Escreva ("Ola,vou adivinhar a sua idade.Pense em um numero de 1 a 10: ")
    Leia (N1)
    S <- N1 * 2
    Escreval ("Ok,multipliquei esse numero por 2 e a soma é ",S,".Agora agora vou adicionar 5")
    S2 <- S + 5
    Escreval ("A soma entre ",S," e 5 é ",S2,".Sabendo disso, vou multiplicar por 50")
    S3 <- S2 * 50
    Escreval ("A multiplicação de ",S2, " e 50 é ",S3,".")
    Esreval ("Você ja fez aniversario esse ano?")
fimalgoritmo
visualg portugol

  • If I’m not mistaken, it’s the se, entao , fim se take a look at the manual...

2 answers

6


You can use a variable X of the literal type (text)

var
    N1,S,S2,S3: inteiro
    X: literal

Read X, assigning a value:

Escreval ("Você ja fez aniversario esse ano?")
Leia(X)

Check whether X, is equal to sim:

se X = "sim" entao
    Escreval (A)
senao
    Escreval (B)
fimse

I hope I helped, if it is not clear, or you are having difficulty, just comment.

  • I just didn’t understand that "literal" type you were talking about. What is it for? Do you know of any place where I can get more information of this "type"? !

  • This literal type would be type (text), also known as string in other programming languages. Here you can find some information about the Language, but it is not 100% complete: http://www.eletrica.ufpr.br/~Rogerio/visualg/Help/linguagem.htm

  • Thank you! .

  • Where do I fit the text I want to put? and how do I fit?

  • where is Escrial(A), put so Escrial("Here is the text that you want to present to the user"), this text will only be presented, if the user fills "yes", being all in minuscule

0

Following the commands that member Vitor provided me was like this and it worked.algoritmo "valores" var N1,S,S2,S3,Idade : inteiro Soma_tudo,Data_nascimento : inteiro Soma_tudo2,Idade2 : inteiro X: literal inicio Escreva ("Ola,vou adivinhar a sua idade.Em que ano você nasceu? ") Leia (Data_nascimento) Escreva ("Pense em um numero de 1 a 10: ") Leia (N1) S <- N1 * 2 Escreval ("Ok,multipliquei o ",N1," por 2 e o resultado é ",S,".Agora agora vou adicionar 5") S2 <- S + 5 Escreval ("A soma entre ",S," e 5 é ",S2,".Sabendo disso, vou multiplicar por 50") S3 <- S2 * 50 Escreval ("A multiplicação de ",S2, " e 50 é ",S3,".") Escreval ("Você ja fez aniversario esse ano? ") Leia (x) se X = "sim" entao Escreval ("Ok.Vou somar 1766 no resultado final.") Soma_tudo <- S3 + 1766 Escreval ("Somando ",S3," com 1766,obterei o resultado de ",Soma_tudo) Escreval ("Agora vou subtrair o resultado de ",Soma_tudo," com o valor do seu ano de nascimento,que no caso é",Data_nascimento) Idade <- Soma_tudo - Data_nascimento Escreva ("Deu ",Idade,".O primeiro digito é o numero que você pensou.Os outros 2 é a sua idade.") senao Escreval ("Ok.Vou somar 1765 no resultado final") Soma_tudo2 <- S3 + 1765 Escreval ("Somando ",S3," com 1765,obterei o resultado de ",Soma_tudo2) Escreval ("agora vou subtrair o resultado de ",soma_tudo2," com o valor do seu ano de nascimento, que é ",data_nascimento) Idade2 <- Soma_tudo2 - Data_nascimento Escreva ("Deu ",Idade2,".O primeiro digito é o numero que você pensou.Os outros 2 é a sua idade") fimse fimalgoritmo

Browser other questions tagged visualg portugol

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