Olá boa tarde, pode me ajudar?

[Bryan Vinícius]

Olá boa noite!

Estou com uma grande duvida, faço curso de T.I e meu professor quer que nós passemos um código que fizemos em portugol no visualg para a linguagem C, estou muito perdido em como fazer isso.

 

programa
{
   
       inclua biblioteca Util --> u
     inclua biblioteca Matematica --> mat
   
   
    cadeia pausa
     funcao inicio()
   {
         inteiro opc
         faca
    {
        limpa()
        //mostrar lista de opções
        escreva("▬▬▬▬▬▬▬▬▬▬▬*** MENU PRINCIPAL ***▬▬▬▬▬▬▬▬▬▬▬")
        escreva("\n▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬")
        escreva("\n[1] Descubra a sua média")
        escreva("\n[2] Comparar números")
        escreva("\n[3] Tabuada")
        escreva("\n[4] Sucessor e Antecessor")
        escreva("\n[5] Área do triangulo")
        escreva("\n[6] Sequência númérica")
        escreva("\n[7] Cálculos Básicos [+];[-];[/];[*]")    
        escreva("\n[8] Bhaskara")
        escreva("\n[9] Calculadora")
        escreva("\n[10] Dias da semana")
        escreva("\n[11] Estados do Brasil")
        escreva("\n[12] Números escritos")        
        escreva("\n[13] Fim")        
        escreva("\n*** Menu Principal ***")
        escreva("\n▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬")
        escreva("\nEscolha uma das opções:")
          //receber a opção do usuário
        leia (opc)
        
            escolha(opc)        
            {
                caso 1:
                Media()
                pare       
                caso 2:
                Comparar_numeros()
                pare                          
                caso 3:
                Tabuada()
                pare
                caso 4:
                Sucessor_e_Antecessor()
                pare
                caso 5:
                Area_do_triangulo()
                pare      
                caso 6:
                Sequencia_numerica()
                pare
                caso 7:
                Calculos_basicos()
                pare
                caso 8:
                Bhaskara()
                pare
                caso 9:
                Calculadora()
                pare
                caso 10:
                Dias_da_semana()
                pare    
                caso 11:
                Estados_do_Brasil()
                pare
                caso 12:
                Numeros_escritos()
                pare                                                                  
            }
        
    }enquanto (opc!=13)
   }
     funcao Media()
    {
        cadeia r, vr, vrr
        real vA, vB, vC, vD, vE
        limpa()
        escreva("Então você quer saber sua média?")
        leia (r)
        se (r == "sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")
            faca {
              escreva("\nFale sua nota no 1 bimestre")
            leia(vA)
             escreva("\nFale sua nota no 2 bimestre")
            leia(vB)
             escreva("\nFale sua nota no 3 bimestre")
            leia(vC)
             escreva("\nFale sua nota no 4 bimestre")
            leia(vD)
              vE = (vA + vB + vC + vD) /4
             escreva ("Sua média é " + vE)
                 escreva ("\n Quer saber qual seu conceito?")
                 leia(vr)
                   se (vr == "sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")
                   {
                     se (vE<5)
                     {
                     escreva("Você ficou com I \n")
                     }
                     senao se(vE<7.5 e vE>5)
                     {
                     escreva("Você ficou com R \n")    
                     }
                     senao se(vE<9.5 e vE >7.5){
                     escreva("Você ficou com B \n")
                     }
                     senao se(vE<10 e vE >9.5)
                     {
                     escreva("Você ficou com MB \n")
                     }
                     escreva ("\n Quer saber se passou?")
                     leia(vrr)
                     se (vrr == "sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")
                     {
                         se (vE<5)
                         {
                         escreva ("Reprovou\n")
                         }
                         senao
                         {
                         escreva ("Passou de ano\n")
                         }
                     }
                     escreva("Quer calcular outra média?")
                leia (r)
                   }
           } enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")
          
        senao
        escreva("Tchau")
    }  
     funcao Comparar_numeros()
     {
         cadeia vNumero, r
         real vNumb1, vNumb2
          limpa()
         escreva("Vamos comparar números?")
         leia (r)
         se (r == "sim" ou r == "Sim" ou r == "vamos" ou r == "Vamos" ou r == "Bora" ou r == "bora")
         {
         faca
         {
         escreva("Cite um número, por favor: ")
         leia (vNumb1)
         escreva("\nNovamente, cite um número: ")
         leia (vNumb2)

             se (vNumb1 > vNumb2)
             {
         escreva (vNumb1 + "é maior do que " + vNumb2)
             }
             senao se (vNumb1 < vNumb2)
             {
         escreva (vNumb1 + "é menor do que " + vNumb2)
             }
             senao
             {
         escreva (vNumb1 + "é igual a " + vNumb2)
             }
                   escreva("\nQuer calcular outros números?")
                leia (r)
         } enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")
         } senao
         escreva("Tchau")
     }    
    funcao Tabuada()
         {  
             cadeia r
             inteiro a, b
    faca
     {             
             limpa()
             escreva("Nos diga um número:")
             leia(a)
             para(b=1; b<=10; b++)
             {
                 escreva (a + "x" + b + "=" + (a*b) + "\n")
                 u.aguarde(200)
             }
             escreva("Quer fazer com mais números?")
         leia (r)
        } enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")    
           }    
     funcao Sucessor_e_Antecessor()
     {
             cadeia r
             inteiro a, aS, aA
    faca
     {             
             limpa()
             escreva("Então vamos calcular, nos diga um número:")
             leia(a)
             aS = a+1
             aA = a-1
               escreva("O sucessor é = " + aS)
               escreva("\nO antecessor é = " + aA)               
             escreva("\nQuer fazer com mais números?")
         leia (r)
        } enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")             
     }
     funcao Area_do_triangulo()         
     {
     cadeia r
    real B, Al, A
        faca
         {             
                 limpa()
                 escreva("Então vamos calcular, nos diga o valor da Base: ")
                 leia(B)
                 escreva("Então vamos calcular, nos diga o valor da Altura: ")
                 leia(Al)
                 A = (B*Al)/25
                   escreva("\nA área do triangulo é = " + A)               
                 escreva("\nQuer fazer com mais números?")
         leia (r)
            } enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")             
     }    
     funcao Sequencia_numerica()
     {
         
         cadeia r
         inteiro x, y, z, i
           faca
           {
               limpa()
               escreva("Qual número você deseja iniciar? ")
             leia (x)
            escreva("\nQuantos números serão 'pulados'? ")
            leia (y)
            escreva("\nQual será seu limite?")
            leia (z)            
                para (i=x;i<z;i+=y)
                {
                escreva(i+", ")
                }
             escreva("\nBora fazer outra reta númerica, Simboro? ")
             leia(r)                
            }enquanto (r=="sim" ou r == "Sim" ou r == "bora" ou r == "Bora" ou r == "vamos" ou r == "Vamos")
     }    
     funcao Calculos_basicos()
     {
           cadeia r
          inteiro N1, N2, S, A, M, D
          
        faca
         {             
        limpa()
        escreva("Então bora fazer calculos, nos diga um número:")
        leia(N1)
         escreva("Nos diga mais um número:")
        leia(N2)
        A= N1+N2
        S= N1-N2
        D= N1/N2
        M= N1*N2
         escreva("A soma é = " + A)
         escreva("\nA subtração é = " + S)
         escreva("\nA Divisão é = " + D)   
         escreva("\nA Multiplicação é = " + M)                  
        escreva("\nQuer fazer com mais números?")
         leia (r)
            }enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")    
    }
    funcao Bhaskara()
     {
     cadeia r
    real a, b, c, delta
         faca
         {             
                 limpa()
                 escreva("Então vamos calcular, nos diga o valor de A: ")
                 leia(a)
                 escreva("Então vamos calcular, nos diga o valor de B: ")
                 leia(b)
                 escreva("Então vamos calcular, nos diga o valor de 😄 ")
                 leia(c)
                 delta = b * b - 4 * a * c
                se(b == 0 ou c == 0)
                escreva("Equação incompleta!\n")
                senao { se(delta < 0)
                escreva("Delta: ", delta, "\nEsta equação não possui raizes reais.\n")
                senao{ se(delta == 0)
                escreva("Delta: ", delta, "\nEsta equação possui duas raizes reais iguais.\n")
                senao escreva("Delta: ", delta, "\nEsta equação possui duas raizes reais diferentes.\n")
                escreva("(-b + ou - raiz(delta)) / (2 * a)\n")
                escreva("(-", b," + ou - raiz(", delta,")) / (2 * ", a,")\n")
                escreva("(", -1 * b," + ou - ", Matematica.raiz(delta, 2),") / ", 2 * a,"\n")
                escreva("\nx1 = (", -1 * b + Matematica.raiz(delta, 2),") / ", 2 * a,"\n")
                escreva("x1 = ", (-1 * b + Matematica.raiz(delta, 2)) / (2 * a),"\n")
                escreva("\nx2 = (", -1 * b - Matematica.raiz(delta, 2),") / ", 2 * a,"\n")
                escreva("x2 = ", (-1 * b - Matematica.raiz(delta, 2)) / (2 * a),"\n")
                    }
                      }               
        escreva ("\nQuer fazer com mais raízes?")
         leia (r)
            } enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")     
     }
     funcao Calculadora()
     {
           cadeia r, E
          inteiro N1, N2, S, A, M, D
          
        faca
         {             
        limpa()
        escreva("Então bora fazer calculos, nos diga um número:")
        leia(N1)
         escreva("Nos diga mais um número:")
        leia(N2)
        escreva("Qual calculo você quer fazer")
        leia(E)
        se (E == "Soma")
        {
        A= N1+N2
        escreva("A soma é = " + A)
        }
        se (E == "Subtração")
        {
        S= N1-N2
        escreva("\nA subtração é = " + S)
        }
        se  (E == "Divisão")
        {
        D= N1/N2
        escreva("\nA Divisão é = " + D)
        }
        se (E == "Multiplicação")
        {
        M= N1*N2
          escreva("\nA Multiplicação é = " + M)
        }
         senao {
             limpa()
         escreva("Se você escreveu algo diferente de: Soma, Subtração, Multiplicação ou Divisão. Reescreva")
         }
         escreva("\nQuer fazer com mais números?")
         leia (r)                
            }enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")    
    }
     funcao Dias_da_semana()
    {
     
    inteiro n
     cadeia  r, dia[8]={"Que isso bixo! Tu quer o dia 0, deve ser sei lá primeira-feira!","Segunda-feira","Terça-feira","Quarta-feira","Quinta-feira","Sexta-feira","Sábado","Domingo"}
          faca{
     limpa()
     escreva ("Mi de um número para que eu possa te dar um dia da semana: ")
     leia (n)    
      se (n<8)
      escreva("\nSeu dia é " + dia[n])    
      se (n>7)
      escreva("\nPare né, você sabe que a semana tem 7 dias!")

      escreva("\nQuer fazer denovo?")
     leia (r)        
     }enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou     r == "Isso" ou r == "Quero" ou r == "quero")
    }
     funcao Estados_do_Brasil()
    {
        cadeia estado[27][2]
        estado[0][0] = "SP" estado[0][1] = "São Paulo"
        estado[1][0] = "MG" estado[1][1] = "Minas Gerais"
        estado[2][0] = "ES" estado[2][1] = "Espirito Santo"
        estado[3][0] = "BA" estado[3][1] = "Bahia"
        estado[4][0] = "PE" estado[4][1] = "Pernambuco"
        estado[5][0] = "AC" estado[5][1] = "Acre"
        estado[6][0] = "AL" estado[6][1] = "Alagoas"
        estado[7][0] = "AP" estado[7][1] = "Amapá"
        estado[8][0] = "AM" estado[8][1] = "Amazonas"
        estado[9][0] = "CE" estado[9][1] = "Ceará"
        estado[10][0] = "GO" estado[10][1] = "Goiás"
        estado[11][0] = "MA" estado[11][1] = "Maranhão"
        estado[12][0] = "MT" estado[12][1] = "Mato Grosso"
        estado[13][0] = "MS" estado[13][1] = "Mato Grosso do Sul"
        estado[14][0] = "PA" estado[14][1] = "Pará"
        estado[15][0] = "PB" estado[15][1] = "Paraíba"
        estado[16][0] = "PI" estado[16][1] = "Piauí"
        estado[17][0] = "RR" estado[17][1] = "Roraima"
        estado[18][0] = "RO" estado[18][1] = "Rondônia"
        estado[19][0] = "RJ" estado[19][1] = "Rio de Janeiro"
        estado[20][0] = "RS" estado[20][1] = "Rio Grande do Sul"
        estado[21][0] = "RN" estado[21][1] = "Rio Grande do Norte"
        estado[22][0] = "SC" estado[22][1] = "Santa Catarina"
        estado[23][0] = "SE" estado[23][1] = "Sergipe"
        estado[24][0] = "TO" estado[24][1] = "Tocantins"
        estado[25][0] = "PR" estado[25][1] = "Paraná"
        estado[26][0] = "DF" estado[26][1] = "Distrito Federal"
        cadeia texto, r
        inteiro i
        logico vachou
        faca{
        limpa()
        escreva ("Informe o nome ou a sigla do estado:")
        leia (texto)

        vachou = falso
        para (i=0;i<=4;i++)
        se (texto == estado[i][0])
        {
         escreva ("\n" + texto + " corresponde a " + estado[i][1])
         vachou = verdadeiro         
        }
        se (não vachou)
       {
       escreva("\n Este estado não existe ou você digitou errado")
       }
       senao
       escreva("\nQuer fazer com mais estados?")
      leia (r)
      }enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou     r == "Isso" ou r == "Quero" ou r == "quero")    
    }
     funcao Numeros_escritos()         
    {
     cadeia r
     cadeia unidade[20]={"","um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove", "dez", "onze", "doze", "treze", "quatorze", "quinze", "dezesseis", "dezessete", "dezoito", "dezenove" }
     cadeia dezena[10]={"", "", "vinte", "trinta", "quarenta", "cinquenta", "sessenta", "setenta", "oitenta", "noventa"}
     cadeia centena[10]={"", "Cento", "Duzentos", "Trezentos", "Quatrocentos", "Quinhentos", "Seiscentos", "Setecentos", "Oitocentos", "Novecentos"}
     inteiro n, ne=0, nd=0, w=0, t=0
    faca
     {             
    limpa()
     escreva("Digite um números (0-1000): ")
     leia(n)
     se(n<0 ou n>1000)
     {
     escreva("\n Número fora da faixa")    
     }
     se(n<20)
     {
     escreva("\n" + unidade[n])    
     }
     senao se(n<100)
     {
     ne = n / 10
     nd = n % 10    
     }
     se(nd>0)
     {
     escreva("\n" + dezena[ne] + " e " + unidade[nd])    
     }
     senao se(n==100)
     {
     escreva("\nCem")    
     }

 

     
     se(n>100 ou n<1000)
     {
     ne = n / 100
     w = n % 100
     t = w / 10
     nd = w % 10
     escreva("\n" + centena[ne])             
     
     se(w<20)
     {
     escreva("\n" + unidade[n])    
     }
     senao se(t>0)
     {
         escreva(" e " + dezena[t])
        se(nd>0)     
        {
            escreva(" e " + unidade[nd])        
        }
     
     }  
     }
     senao se(n==1000)
     {
     escreva("\nMil")    
     }  
    escreva("\nQuer fazer com mais números?")
     leia (r)
        } enquanto (r=="sim" ou r == "Sim" ou r == "isso" ou r == "Isso" ou r == "Quero" ou r == "quero")
    }
     
}