Ir ao conteúdo
  • Cadastre-se

Pascal/Delphi Explicação do que era RPG


Posts recomendados

Galera estava fazendo uma explicação pro professor que e pra entregar na sexta dia 11/07, ele pediu pra gente fazer uma explicação do que era RPG.

 

Ai fiz um programinha no Pascal ai deu um erro alguém me ajuda?

Program  pesquisa;
    
     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.

 

 

Ai o erro foi esse.

Erro sintatico na linha 61

''.'' não esperado

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Membro VIP

@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.

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Obrigado cara me salvou 

20 minutos atrás, Simon Viegas disse:

uses CRT;

hum...gostei de aprender não sabia disso.

 

Percebi que os ends não estavam colocados no lugar certo, ajeitei o programa muito oobrigado cara.

Como não quero ter tanto trabalho não vou consertar a var, (talvez conserte)

 

Muito obrigadão tenho 14 anos, primeira linguagem, e ainda minha autodicta, nem faço curso ai tem vezes que n consigo fazer o programa funcionar, aprendendo para depois fazer uma facu ou um curso.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...