Simon Viegas

@Miquéias Moreira, eu? Teu código ficou muito bom! Sugiro apenas verificar se realmente vai começar com 1 ou se deveria começar com 0. Um outro ponto é que a quantidade informada não está batendo a quantidade mostrada, ou seja: se o usuário informar 4, não deveria exibir 4 números? (1, 1, 2, 3 ou 0, 1, 1, 2) Está aparecendo mais.

Em relação ao código do segundo programa: Em alguns casos, seria mais prático definir os valores das coordenadas do GotoXY diretamente na função; Na animação, poderia colocar um Delay() para dar atraso entre as gotas; Fiz uma tentativa de reorganização geral do código: program enerchuva; const retangulo = #219; tempoPadrao = 100; var coluna, linha: integer; letra: char; //dica: string; begin //desenha o céu TextBackground(cyan); ClrScr; //desenha o gramado GotoXY(1,30); TextColor(LightGreen); for coluna:=1 to 120 do write (retangulo); //desenha o solo for coluna:=1 to 80 do begin TextColor(7); write (retangulo); //COLOQUEI UMA COR QUALQUER PARA TESTAR TextColor(brown); for linha:=1 to 15 do write(retangulo); end; //desenha o simulador coluna:=3; TextColor(8); GotoXY(3,linha); for linha:=10 to 29 do begin GotoXY(coluna,linha); write(retangulo,retangulo); end; coluna:=3; linha:=10; for coluna:=3 to 20 do begin GotoXY(coluna,linha); write(retangulo); end; //desenha gotas de chuva TextColor(blue); GotoXY(20,12); write(retangulo); Delay(tempoPadrao); GotoXY(20,18); write(retangulo); Delay(tempoPadrao); GotoXY(20,24); write(retangulo); Delay(tempoPadrao); GotoXY(15,18); write(retangulo); Delay(tempoPadrao); GotoXY(25,18); write(retangulo); Delay(tempoPadrao); GotoXY(25,24); write(retangulo); Delay(tempoPadrao); GotoXY(25,24); write(retangulo); Delay(tempoPadrao); GotoXY(16,24); write(retangulo); Delay(tempoPadrao); GotoXY(10,24); write(retangulo); Delay(tempoPadrao); GotoXY(30,24); write(retangulo); Delay(tempoPadrao); GotoXY(30,29); write(retangulo); Delay(tempoPadrao); GotoXY(10,29); write(retangulo); Delay(tempoPadrao); GotoXY( 5,29); write(retangulo); Delay(tempoPadrao); GotoXY(15,29); write(retangulo); Delay(tempoPadrao); GotoXY(20,29); write(retangulo); Delay(tempoPadrao); GotoXY(25,29); write(retangulo); Delay(tempoPadrao); GotoXY(35,29); write(retangulo); Delay(tempoPadrao); //escreve o nome do programa GotoXY(3,40); textcolor(white); textbackground(brown); write('programa enerchuva'); end. @Jefferson Gomes Confessor, qual seria a tua ideia ao juntar um programa com o outro? Como mais ou menos deveria funcionar?

Caro usuário, Seja bem-vindo ao Clube do Hardware. No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware. Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a resposta está correta ou não, ou para que possa ser auxiliado com a dúvida no desenvolvimento do exercício. Infelizmente, não há como resolver os trabalhos pelos usuários. O objetivo do Clube do Hardware é auxiliar seus usuários a encontrar soluções para que possam sanar suas dúvidas, e não de trazer soluções prontas para seus usuários. Além disso, copiar e colar respostas que não são de autoria própria do qualquer usuário é considerado plágio, o que é ilegal. Esperamos que compreenda. Atenciosamente, Equipe Clube do Hardware

Caro usuário, Seja bem-vindo ao Clube do Hardware. No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware. Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a resposta está correta ou não, ou para que possa ser auxiliado com a dúvida no desenvolvimento do exercício. Infelizmente, não há como resolver os trabalhos pelos usuários. O objetivo do Clube do Hardware é auxiliar seus usuários a encontrar soluções para que possam sanar suas dúvidas, e não de trazer soluções prontas para seus usuários. Além disso, copiar e colar respostas que não são de autoria própria do qualquer usuário é considerado plágio, o que é ilegal. Esperamos que compreenda. Atenciosamente, Equipe Clube do Hardware

@Jefferson Gomes Confessor, esse código não está compilando em Pascal. Faltou declarar umas variáveis e fechar algumas strings. Tentei dar uma arrumada geral, segue: {$CODEPAGE UTF8} //Uma forma de tentar conseguir imprimir palavras acentuadas uses CRT; const g = 9.81; var //TxTArq: text; i, j, n: integer; //ch, fixatela: char; ch : char; C2, K1, K2, K3, K4, EcN, EcS, tempoPrec, t, dt, V, tfim, alt, L, hb, deltaD, Ca, vou, PS, D, Ip: real; procedure Entra_Dados; begin ClrScr; GotoXY(8,8); writeln(' FORNECA OS SEGUINTES DADOS: '); write ('- Intensidade de Precipitacão, mm h-1....... I = '); readln(Ip); write ('- Diâmetro medio das gotas; mm............ D = ' ); readln(D); write ('- Pressão nos bicos, PSI, ........................ P = '); readln(PS); write ('- Altura do Bico, m, .............................. H = '); readln(hb); write ('- Duração da precipitação, h,......... T ='); readln(tempoPrec); end; function f (a, b: real): real; begin f := g - C2 * sqr(v) end; procedure Calcula_Velocidade; begin t := 0; dt := 0.001; tfim := 2; alt := hb - 0.30; C2 := EXP(ln(0.4671)-0.9859 * ln(D)); vou := 0; vou := 0.95 * sqrt((2 * 9.81) * (PS * (10/14.2))); v := vou; deltaD := 0; while (t <= tfim) and (alt >= 0) do begin K1 := dt * f(t,v); K2 := dt * f(t + dt/2, v + K1/2); K3 := dt * f(t + dt/2, v + K2/2); K4 := dt * f(t + dt , v + K3); t := t + dt; v := v + (1/6) * (K1 + 2 * K2 + 2 * K3 + K4); deltaD := v * dt; alt := alt - deltaD; end; end; procedure Calcula_Energias_Cinetica; begin L := Ip * tempoPrec; EcS := ((sqr(v)*L)/2); EcN := ((2.27093 * (Ln(Ip)) + 17.124)) * L; end; procedure Mostra_Resultados; begin ClrScr; GotoXY(14,2); writeln('-------------------------------------------------------------------'); writeln(' DADOS DE ENTRADA:'); writeln('- Intensidade de Precipitação...............I = ', Ip:3:1,' mm h-1'); writeln('- Diâmetro metro medio das gotas .....D50 = ', D:3:2,' mm'); writeln('- Pressão nos bicos............................. PS = ', PS:3:1,' PSI.'); writeln('- Altura do Bico ............................... Hb = ', Hb:3:1,' m'); write ('- Duração da precipitação, h,.................T='); readln(tempoPrec); writeln('-------------------------------------------------------------------'); GotoXY(14,12); writeln('-------------------------------------------------------------------'); writeln(' DADOS DE SAIDA:'); writeln; writeln('- Velocidade Inicial da gota .......... vou = ', vou:3:2, ' m s-1'); writeln('- Velocidade Final da gota ..............Vf = ', V:3:2, ' m s-1'); writeln('- Energia Cinética Simulada......... EcS = ', Ecs :3:2, ' J m-2'); writeln('- Energia Cinética da Chuva......... EcN = ', Ecn :3:2, ' J m-2'); writeln('- Relação EcS / EcN ............RE = ', (Ecs/Ecn)*100:3:0, ' %'); writeln('-------------------------------------------------------------------'); end; BEGIN ClrScr; Entra_Dados; Calcula_velocidade; Calcula_Energias_Cinetica; Mostra_Resultados; ReadKey; END. Sobre a questão sobre converter (ou não) deixo para outros membros mais experientes tratarem. Favor aguardar.

Inicialmente se atente aos princípios básicos. Faltou o comando algoritmo no topo do código; Faltou o comando fimAlgoritmo no fim do código; A função chama-se valorPagamento, e não ValorPagamento; Dentro da função só utilize o que veio por parâmetro ou foi declarado dentro da função. O programa não deve utilizar dentro da função as variáveis globais (externas à função). Se precisar de novas variáveis, declare-as dentro da função; O que mediafinal tem a ver com o contexto do programa? O resultado deve ser informado no momento do encerramento, ou seja: após inserir 0 para o número de prestações. @Alice Braga, sugiro recomeçar. Deixe esse programa guardado e faça um novo. Foque primeiramente apenas na função. Se ela não funcionar, nada adianta. Exemplo de base: algoritmo "Cálculo de valor de pagamento" var //nomeCliente: caractere valorPrestacao: real diasAtraso: inteiro funcao valorPagamento(parPrestacao:real; parAtraso:inteiro):real var total: real inicio total <- 0 //calcular sem atraso se (parAtraso = 0) entao total <- parPrestacao fimSe //calcular juros e multa para atraso se (parAtraso >= 1) entao fimSe retorne total fimFuncao inicio //TESTES DE RETORNOS DA FUNÇÃO valorPagamento() escreval("Valaro 1000 / Atraso 0:", valorPagamento(1000, 0)) //deve aparecer 1000 escreval("Valaro 500 / Atraso 2:", valorPagamento(500, 2)) //deve aparecer xxxx escreval("Valaro 360 / Atraso 6:", valorPagamento(360, 6)) //deve aparecer yyyy fimAlgoritmo Veja... Nesse primeiro momento apenas testar os resultados da função... O item 2.3.1.1 já implementei. Implemente agora o item 2.3.1.2. Lembre-se: você NÃO pode utilizar nada externo à função. As únicas coisas que ela precisa já estão sendo passadas pelo parâmetro. Se precisar de alguma variável, declare-a dentro da própria função. Tente fazer apenas isso e poste o código completo aqui. Qualquer dúvida é só perguntar. No aguardo

Como sugerido na minha postagem anterior, utilize uma matriz fixa... é meio suspeito ter que ficar digitando 35 valores para cada teste. Por favor, faça isso!!! (Ou me diga que não quer fazer. Não precisa nem explicar o motivo.) Sobre encontrar o ponto de sela: o que é um ponto de sela? o que é necessário fazer para encontrar o tal ponto de sela? Primeiramente é necessário entender o problema! Isso é fundamental. Então, vamos analisar o que tem no código: Sobre: O que significa "Descobrir a linha de menor valor"? No caso, o que seria "menor valor" para esse contexto? A frase me pareceu confusa. Mas analisando o código, suponho que você está tentando descobrir o menor valor da matriz e a linha onde ela se encontra. Sobre: O que significa "Descobrir a coluna de maior valor"? O que seria "maior valor" para esse contexto? A frase me pareceu confusa. Mas analisando o código, suponho que você está tentando descobrir o maior valor da matriz e a coluna onde ela se encontra. Então, é isso que você precisa? De qualquer forma, uma forma de analisar os valores encontrados é exibi-los na tela. Algo como: exiba a matriz na tela para ter uma referência melhor; exiba os valores encontrados em cada etapa, ex.: writeln('Menor :', menor); writeln('Linha :', linha); e writeln('Maior :', maior); writeln('Coluna:', coluna); Compara os valores apresentados com os valores da matriz. Daí, você terá já uma referência que o problema não está em uma dessas etapas. Sobre: Analisando o código, você está comparando 35 vezes a mesma coisa!!! O valor de menor e maior são sempre iguai, logo sempre, OU vão ser 35 vezes iguais, OU vão ser 35 vezes diferentes. CONCLUSÃO: Primeiro entenda (mais ou menos) o que é um ponto de sela. Após vem o principal: saiba como encontrar um ponto de sela. Você precisa ter em mente um "algoritmo" (não confundir com "código") que consiga encontrar o tal ponto de cela. Por exemplo: esqueça o Pascal... Imagine que é uma questão de uma prova, daquelas de papel mesmo... precisa responder no papel ou caneta. Lá tem essa matriz: 1 2 3 4 5 6 7 2 3 4 5 6 7 8 13 14 15 10 15 24 13 4 5 6 7 8 9 10 5 6 7 8 9 10 11 Qual é a localização do ponto de cela? Você já disse: De onde tirou essa informação? Então: tomando que a resposta está certa, você precisa entender como foi feito para descobrir ela. Faça isso.. imagine que você não sabe a resposta acima!!! Escreva a matriz no papel e aplique uma lógica com o que você já entende o que seja um ponto de cela e o que já entende de como é feito para encontrar a resposta!! Dando tudo certo. Tente com outra matriz que você também já saiba a resposta e veja se dar certo. Adianto que verás que simplesmente "encontrar o menor e o maior valor da matriz" não será suficiente. RESUMINDO: Primeiro entenda o problema e entenda um fluxo para encontrar uma resposta para ela. Esqueça o Pascal por enquanto. Descreva como você fez para encontrar a resposta correta!! Caso tenha NÃO tenha conseguido entender como, posta aqui no tópico o que você entendeu que é para ser feito ou em que parte está com dúvidas. A sugestão é NÃO TENTAR REFAZER NO PASCAL, pois não fará sentido!! Perceba: se eventualmente ainda não entendeu o que é para ser feito, como seria capaz de transcrever para uma linguagem de programação? Consiga lá primeiro resolver no papel*... após, qualquer coisa, ajudamos a traduzir uma lógica para Pascal. No aguardo.

@Braga03, poste o código completo do que conseguiu fazer e em qual parte está com dúvidas.

@Leonardo pinheiro, o segredo é sempre inserir coisas novas de modo completo, ou seja: o código sempre tem que está rodável!!! Exemplo: algoritmo "número primo" var vet: vetor[1..10] de inteiro c, i , n, p: inteiro inicio fimAlgoritmo Se botar para rodar, vai rodar... não vai fazer algo, mas vai rodar sem erros. Aí vai inserindo algo novo, mas sempre deixando rodável, exemplo: algoritmo "número primo" var vet: vetor[1..10] de inteiro c, i , n, p: inteiro inicio //para n de 1 ate 10 faca para n de 1 ate 3 faca escreval("Digite os valores: ") leia(vet[n]) finPara fimAlgoritmo Vai dar erro no finPara, só mudar para fimPara. O próprio compilador vai deixar claro, mas se não deixasse, eu teria uma boa base que o erro está no algo novo que acabei de inserir, já que antes estava rodando... Não adianta fazer tudo de uma vez!!! Por aí vai... ao testar, por exemplo, esse código acima, já daria para ver se está lendo o vetor corretamente na "Áreas das variáveis de memória". Exemplo: OUTRAS DICAS: - Use nomenclaturas de variáveis mais sugestíveis; - Sempre mantenha seu código identando. No VisualG, ao pressionar Ctrl+G ele já dar uma ajuda!!! Segue um esboço: //a) Crie um vetor que seja de 10 posições. Preencha o vetor com valores //inteiros. Percorra o vetor e diga se o valor de cada posição é um algoritmo "Números primos de um vetor" var vetNumeros: vetor[1..10] de inteiro n, i: inteiro qtdDivisores: inteiro divisor: inteiro inicio //para n de 1 ate 10 faca para n de 1 ate 3 faca escreval("Digite os valores: ") leia(vetNumeros[n]) fimPara para i de 1 ate n faca qtdDivisores <- 0 //Aqui implementar parte que conta quantos divisores tem cada número atual se (qtdDivisores = 2) entao escreva(vetNumeros[i]) fimSe fimPara fimAlgoritmo

1# Não use read(), use somente readln() O read() pode trazer problema. Apenas sempre use readln(). 2# Sempre mantenha o código identado Exemplo: {$CODEPAGE UTF8} //Uma forma de tentar conseguir imprimir palavras acentuadas program Pzim; uses CRT; //Não necessário no PZim var m: array [1..5, 1..7] of integer; i, j, menor, maior, linha, coluna: integer; begin for i:=1 to 5 do begin for j:= 1 to 7 do begin write ('Preencha a linha/coluna [',i,',',j,']:'); readln(m[i,j]); end; end; //Descobrir a coluna de menor valor menor := m[1,1]; coluna := 1; for j:= 1 to 7 do begin if m[i,j] < menor then begin menor := m[i,j]; coluna := j; end; end; writeln(menor); //Descobrir a linha de maior valor maior := m[1,coluna]; linha := 1; for i:= 1 to 5 do begin for j:= 1 to 7 do begin if m [i,coluna] > maior then begin maior:= m[i,coluna]; linha:= i; end; end; end; writeln (maior); writeln ('Matriz resultante: '); for i:= 1 to 5 do begin for j:= 1 to 7 do begin write(m[i,j], ' '); end; writeln; end; if maior = menor then writeln (' O ponto de sela está na posição [' ,linha, coluna,']') else writeln (' Não há ponto de sela '); ReadKey; end. 3# Defina uma matriz fixa É muito chato ter que ficar preenchendo 35 valores a cada testes. Coloque para gerar valores aleatórios (pesquise no Google) ou defina valores fixos (pesquise no Google). Como é um pouco chato de achar, vai um exemplo: var m: array [1..5, 1..7] of integer = (( 1, 2, 3, 4, 5, 6, 7), ( 8, 9,10,11,12,13,14), (15,16,17,18,19,20,21), (22,23,24,25,26,27,28), (29,30,31,32,33,34,35)); i, j, menor, maior, linha, coluna: integer; begin for i:=1 to 5 do begin for j:= 1 to 7 do begin write ('Preencha a linha/coluna [',i,',',j,']:'); //readln(m[i,j]); writeln(m[i,j]); end; end; Ali na declaração da matriz, insira os dados de uma matriz conhecida, ou seja: que já sabe qual é o tal valor de ponto de sela. Após, tente analisar o que está acontecendo com o código e corrija até sair a resposta certa para essa matriz (não precisa ficar mudando ela). Só mais a frente para para colocar para gerar valores aleatórios e compara o resultado do programa com o resultado real... no final, deixa gerando automático mesmo ou coloca para ler do usuário. Qualquer dúvida é só perguntar... mas antes tente entender o que está ocorrendo. Faça testes. Tente ver o que está dando errado. Pesquise no Google... se persistir, descreve o que está ocorrendo e o que não conseguiu descobrir como contornar... No aguardo

@joaoz1404, resumidamente, o case/of tem o seu próprio end;. É interessante marcar esses end, exemplo: case livro of end; //case livro end. Algo como: {$CODEPAGE UTF8} //uma forma de tentar conseguir imprimir palavras acentuadas program fidelidade; uses CRT; var livro: integer; begin writeln('Informe a quantidade de livros comprado: '); readln(livro); case livro of 0 :begin writeln('Ele ganhará 0 pontos'); end; 1 :begin writeln('Ele ganhará 5 pontos'); end; 2 :begin writeln('Ele ganhará 15 pontos'); end; 3 :begin writeln('Ele ganhará 30 pontos'); end; 4.. 100:begin writeln('Ele ganhará 60 pontos'); end; end; //case livro ReadKey; end. adicionado 1 minuto depois Se um caso do case tiver apenas uma instrução, nem precisa do begin/end. Exemplo: {$CODEPAGE UTF8} //uma forma de tentar conseguir imprimir palavras acentuadas program fidelidade; uses CRT; var livro: integer; begin writeln('Informe a quantidade de livros comprado: '); readln(livro); case livro of 0 :writeln('Ele ganhará 0 pontos'); 1 :writeln('Ele ganhará 5 pontos'); 2 :writeln('Ele ganhará 15 pontos'); 3 :writeln('Ele ganhará 30 pontos'); 4.. 100:writeln('Ele ganhará 60 pontos'); end; //case livro ReadKey; end.

Caro usuário, Seja bem-vindo ao Clube do Hardware. No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware. Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a resposta está correta ou não, ou para que possa ser auxiliado com a dúvida no desenvolvimento do exercício. Infelizmente, não há como resolver os trabalhos pelos usuários. O objetivo do Clube do Hardware é auxiliar seus usuários a encontrar soluções para que possam sanar suas dúvidas, e não de trazer soluções prontas para seus usuários. Além disso, copiar e colar respostas que não são de autoria própria do qualquer usuário é considerado plágio, o que é ilegal. Esperamos que compreenda. Atenciosamente, Equipe Clube do Hardware

@John Senaka, por favor. Poste o texto do código. Fica mais fácil para copiar e possibilita a indexação. adicionado 5 minutos depois Em relação ao erro, existem pelo menos 2 problemas: O VisualG não permite colocar mais de uma instrução na mesma linha, ou seja: não coloque as instruções ao lado do entao, o correto é colocar embaixo; Para comparar textos, utilize " (aspas duplas). Ex.: se (operacao = "multiplicacao") entao

@Alice Braga, creio que seria apenas uma função. Ex: calcularNovoSalario(salario, codCargo). Dentro da função cria a lógica que verifica o cargo e calcular o novo salário. adicionado 3 minutos depois ADENDO: a parte do dependentes seria também um parâmetro, mas por enquanto ignore a sua existência. Apenas considere a profissão. Depois paramos para reanalisar isso.

@Alice Braga, por favor, edite tua postagem e insira o código dentro da tag CODE, ou seja: lá onde você colocou <> deveria está o código. No aguardo.

@Leonardo pinheiro, basicamente precisaria entender o enunciado e fazer o que está pedindo. Exemplo: algoritmo "Exercício 01" var idade : inteiro inicio escreval("Informe tua idade") leia(idade) fimAlgoritmo algoritmo "Exercício 01" var idade : inteiro inicio escreval("Informe tua idade") leia(idade) se (idade >= 18) entao escreval("Maior de idade") fimSe fimAlgoritmo algoritmo "Exercício 01" var idade : inteiro inicio escreval("Informe tua idade") leia(idade) se (idade >= 18) entao escreval("Maior de idade") senao escreval("Menor de idade") fimSe fimAlgoritmo algoritmo "Exercício 01" var idade : inteiro inicio escreval("Informe tua idade") leia(idade) se (idade >= 18) entao escreval("Maior de idade") escreval("Pode tirar a habilitação") senao escreval("Menor de idade") fimSe fimAlgoritmo Por fim: //Receba a idade do usuário e verifique se ele tem 18 anos ou mais. Se a //resposta for positiva escrever “maior de idade”, senão “menor de idade”. //Se o usuário tiver idade maior igual a 18, escreva que pode tirar a //habilitação, senão, deve indicar quantos anos que faltam para ele tirar a //habilitação. algoritmo "Exercício 01" var idade : inteiro inicio escreval("Informe tua idade") leia(idade) se (idade >= 18) entao escreval("Maior de idade") escreval("Pode tirar a habilitação") senao escreval("Menor de idade") escreval("Faltam", (18 - idade), " para poder tirar habilitação") fimSe fimAlgoritmo adicionado 2 minutos depois Caso entendam-se que são duas verificações separadas, só separá-las. Exemplo: //Receba a idade do usuário e verifique se ele tem 18 anos ou mais. Se a //resposta for positiva escrever “maior de idade”, senão “menor de idade”. //Se o usuário tiver idade maior igual a 18, escreva que pode tirar a //habilitação, senão, deve indicar quantos anos que faltam para ele tirar a //habilitação. algoritmo "Exercício 01" var idade : inteiro inicio escreval("Informe tua idade") leia(idade) se (idade >= 18) entao escreval("Maior de idade") senao escreval("Menor de idade") fimSe se (idade >= 18) entao escreval("Pode tirar a habilitação") senao escreval("Faltam", (18 - idade), " para poder tirar habilitação") fimSe fimAlgoritmo

@Mariozz, se está mandando declarar as variáveis numeroA e numeroB, faça isso... Sobre: Nos teus códigos não tem a variável Soma. Pode está compilando outro arquivo...

Na verdade deveria ter dado erro para Programadora antes. Resumindo: faltou as " para o texto da profissão, e usou variáveis erradas para o cartaoDeVisita. Poderia ser algo assim: var nome = "Natalia" var sobrenome = "Lira" var profissao = "Programadora" var cartaoDeVisita = nome + " " + sobrenome + " - " + profissao consolo.log(cartaoDeVisita)

@SampaoliDexter, primeiramente poste o enunciado completo da questão. Ele por ele que precisa se basear. Então, o que função comecaComMaiuscula(palavra) faz? Tente entender para para ela serve e como funciona. Para adiantar, tente inicialmente simplificar o problema. Em vez de se preocupar com um vetor de palavras, faça um programa que use apenas uma palavra... você lê a palavra e, com a ajuda da função, informe se começa com maiúscula ou com minúscula. Além do enunciado, poste um código código completo. Caso tenha dúvidas em alguma parte, é só falar.

@SrJoker, no PascalZim funciona como em qualquer outra "IDE" para Pascal. Dê uma pesquisada sobre a "Estrutura case no Pascal". Exemplo: https://pt.wikibooks.org/wiki/Pascal/Estrutura_Condicional#Estrutura_Case

@Leonardo pinheiro, matriz seria um vetor com duas coordenadas. Poste o que já conseguiu fazer e em qual parte está com dúvidas.

@Leonardo pinheiro, poste o que já conseguiu fazer e em qual parte está com dúvidas.

@Enzinholo, poste teu código completo para analisarmos e também poder servi de referência para outros visitantes.

Antes, um dúvida: O que seria parlitro e porquê ele passa a ser igual a combustivel*valorAlcool? Tá meio suspeito isso aí... 1 - obrigatório uso de funções; OK, mas o que significa CalGaso()? E qual a relação de media com o contexto do programa? 2 - o programa deverá funcionar até que o cliente digite o valor 0 no número de litros vendidos; Não acho interessante uso do interrompa para finalizar o programa. Um mais correto seria deixar o programa percorrer o código e sair do laço de repetição. De qualquer forma, sugeriria alterar de: Para algo como: enquanto VERDADEIRO faca Caso deseje, depois podemos nos aprofundar em o porquê não usar esse tipo de estrutura. 3 - o programa não pode aceitar valores negativos para o litro de combustível; OK, mas entra na mesma questão do "mal" uso do interrompa. 4 - o programa não pode aceitar tipos de combustíveis diferente de Álcool e Gasolina; OK, mas entra na mesma questão do "mal" uso do interrompa. 5 - imprima junto com o valor a ser pago o número de litros vendidos e o NOME do combustível escolhido para melhor visualização e conferência do cliente; Está no mínimo faltando o número de litros. No aguardo.

@Enzinholo, Dica básica: mantenha teu código sempre identando. Exemplo: {$CODEPAGE UTF8} //uma forma de tentar conseguir imprimir palavras acentuadas program pesquisa; uses CRT; var s, n, pergunta: string; begin TextBackground(Green) ; TextColor(White) ; writeln('Olá, meu amigo(a)') ; readln; writeln('Essa pesquisa foi feita por Enzo Felipe'); readln; writeln('Ele é um cara muito lindo e maravilhoso'); readln; writeln('voce sabe o que e "RPG" ?'); readln; writeln('Digite sua resposta(s)para sim ou(n)para nao:'); readln(pergunta); if pergunta = 'S' then begin writeln('Que bom mas para explicar "RPG", a melhor definição seria um jogo em que os jogadores assumem papéis de personagens e criam narrativas colaborativamente.'); writeln('O progresso de um jogo se dá de acordo com um sistema de regras predeterminado, dentro das quais os jogadores podem improvisar livremente.'); readln(s); writeln('Opa, voce quer saber o que significa a sigla "RPG"?'); writeln('Digite sua resposta(s)para sim ou(n)para nao:'); readln(pergunta); if pergunta = 'S' then begin writeln('Que bom você tem uma sede de conhecimento incrivel, e porque os primeiros "RPG" eram de dados ai ele ficou conhecido como Role-playing game'); writeln('Que na sua tradução seria "jogo de rolamento" incrivel não é'); writeln('Bom já que você chegou até o final, pode curtir nosso game'); writeln('Bom, se tiver qualquer duvida entre em contato conosco(71)9.9853-5631'); readln(s); end; if pergunta = 'N' then begin writeln('Okay, qualquer duvida entre em contato conosco(71)9.9853-5631'); readln(n); end; if pergunta = 'N' then begin writeln('Okay, voce vai aprender agora, RPG e um jogo em que os jogadores assumem papéis de personagens e criam narrativas colaborativamente.'); writeln(' O progresso de um jogo se dá de acordo com um sistema de regras predeterminado, dentro das quais os jogadores podem improvisar livremente.'); writeln('Opa, voce quer saber o que significa a sigla "RPG"?'); writeln('Digite sua resposta(s)para sim ou(n)para nao:'); readln(n); readln(pergunta); if pergunta = 'S' then begin writeln('Que bom você tem uma sede de conhecimento incrivel, e porque os primeiros "RPG" eram de dados ai ele ficou conhecido como Role-playing game'); writeln('Que na sua tradução seria "jogo de rolamento" incrivel não é'); writeln('Bom já que você chegou até o final, pode curtir nosso game'); writeln('Bom, se tiver qualquer duvida entre em contato conosco(71)9.9853-5631'); readln(s); end; if pergunta = 'N' then begin writeln('Okay, qualquer duvida entre em contato conosco(71)9.9853-5631'); readln(n); end; end; //está faltnado (obs.: não necessariamente deveria ficar aqui!) end; //está faltnado (obs.: não necessariamente deveria ficar aqui!) end. Só pelo alinhamento dar para ver que estava faltando algo... no caso está faltando 2 end;. Aí só você para dizer onde eles deveriam ficar. PS: - A variável pergunta está lendo uma resposta, logo, em vez de pergunta, seria melhor utilizar resposta, concorda? - Para que está servindo as variáveis n e s? No aguardo.