Jackson Vanutty

Uma companhia de teatro deseja dar uma série de espetáculos. A direção calcula que a R$5,00 o ingresso serão vendidos 120 ingressos, e que as despesas serão de R$200,00. Diminuindo-se R$ 0,50 o preço dos ingressos espera-se que as vendas aumentem em 26 ingressos. a) Faça um programa que escreva uma tabela de valores de lucros esperados em função do preço do ingresso, fazendo-se variar esse preço de R$5,00 a R$1,00 de R$0,50 em R$0,50. Escreva , ainda o lucro máximo esperado, o preço do ingresso e a quantidade de ingressos vendidos para a obtenção desse lucro.
 

programa
{
    funcao inicio()
    {
        inteiro lucro_maximo = 0, lucro = 600, valor_ingresso = 5, numero_ingressos = 120, numero_ingressos_max
        real ingresso, x_ingresso

        para (valor_ingresso = 5; valor_ingresso <= 8; valor_ingresso++)
        {
            ingresso = 5 - (valor_ingresso * 0.5)
            numero_ingressos = numero_ingressos + (valor_ingresso * 26)
            lucro = (valor_ingresso * numero_ingressos) - 200

            escreva("\nSe o valor do ingresso for: ", ingresso)
            escreva("\nO lucro será de: ", lucro)

            se (lucro > lucro_maximo)
            {
                lucro_maximo = lucro
                x_ingresso = ingresso
                numero_ingressos_max = numero_ingressos
            }
        }

        escreva("\nCom o ingresso no valor de: ", x_ingresso)
        escreva("\nVendendo ", numero_ingressos_max, " ingressos")
        escreva("\nO valor do lucro máximo será de: ", lucro_maximo)
    }
}

Está dando erro na compilação! Queria saber se conseguir preencher todos requisitos apresentados na questão.

@devair1010 e @Simon Viegas, consegui desenvolver uma estrutura, mas não estou conseguindo rodar ainda! poderiam me dar um help? 

programa
{
     inclua biblioteca Texto --> tx
    funcao inicio()
    {

    cadeia novoNome, nome
    caractere letra
    inteiro i=1

    escreva ("Digite o nome a ser criptografado: ")
    leia (nome)

        faca{
            letra = Texto.obter_caracter(nome, i-1)
            se(letra == 'A'    ou letra == 'a')
                novoNome = novoNome + "1"
            senao se(letra == 'E'    ou letra == 'e')
                novoNome = novoNome + "2"
            senao se(letra == 'I'    ou letra == 'i')
                novoNome = novoNome + "3"
            senao se(letra == 'O'    ou letra == 'o')
                novoNome = novoNome + "4"
            senao se(letra == 'U'    ou letra == 'u')
                novoNome = novoNome + "5"
            senao se(letra == ' ')
                novoNome = novoNome + '#'
            senao 
                novoNome = novoNome + letra
                i = 1 + i
            }
        enquanto(i<= Texto.numero_caracteres(nome))
        escreva ("O nome criptografado: ", novoNome)
    }
}

@devair1010

5 horas atrás, devair1010 disse:

@Jackson Vanutty   no visualG você pode usar o comando "copia" para verificar cada letra da frase digitada ,  e junto com o comando "compr" que obtém  a quantidade de caracteres da frase ,  e use esses comandos dentro de um loop "para / fimpara" , e depois que você fizer um código sobre esse exercício , poste ele aqui e ajudaremos se ainda precisar .

Só posso utilizar o Portugol nesse exercicio.

 Faça um programa para criptografar o nome de uma pessoa. O programa deverá ler o nome e mostrar o novo nome criptografado. A cifração ou encriptação deverá ocorrer apenas sobre as vogais A, E, I, O, U e sobre o caractere espaço (em branco), quando houver. As vogais deverão ser substituídas respectivamente pelos algarismos 1, 2, 3, 4, 5 e o caractere espaço deverá ser trocado pelo caractere cerquilha (#).

Exemplo: A cifração do nome Maria Santos seria M1r31#S1nt5s

OBS: É vedado o uso de vetor/matriz ou algum outro tipo estruturado de dado. O Portugol Studio/Visualg possuem funções para manipulação de string (cadeia de caracteres). Utilize-as pararesolver as questões a seguir, caso necessário.