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

Navigation
2

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

How to put sim or não commands in Visualg, and if the person chooses sim , enter the text A , if he choos não , present the text B and continue performing the questions.

So far I've come to this 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
    
asked by anonymous 10.11.2016 / 22:27

2 answers

5

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

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

Read X , assigning a value: 

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

Check that X , is equal to sim : 

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

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

    
10.11.2016 / 23:24
0

Following the commands that the Vitor member gave me was like this and 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

    
15.11.2016 / 16:01
Select with LIKE with argument% input () and raw_input ()