Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
rorlf

writeln ta dando erro pascal

Recommended Posts

Galera....

Eu tava fazendo um programa pro colegio, tava tudo certo, só faltava colocar os textos...

Mas então eu descobrir que em cada linha so pode ter 255 caracteres...

e quando eu boto writeln ta dando erro...

olhem o inicio do meu programa( a parte que acho que seja relevante)


repeat
writeln('01 - Primeira Republica') ;
writeln;
writeln('02 - Primeira Grande Guerra');
writeln;
writeln('03 - A revoluçao Russa de 1917 ');
writeln;
writeln('04 - Aboliçao da escravidao');
writeln;
writeln('05 - Consequencias do processo de aboliaçao') ;
writeln;
readln (opcao);
If (opcao='01') or (opcao='1') then
begin
clrscr;
writeln('A- Abolicao da Escravatura');
writeln;
writeln('B- A Queda da monarquia');
writeln;
writeln('C- A Republica da Espada');
writeln;
writeln('D- A Republica Oligarquica');
writeln;
writeln('E -Os movimentos sociais: Rurais e urbanos');
writeln;
writeln('F - O Tenentistmo');
writeln;
writeln('G - A crise dos anos 1920');
writeln;
writeln(' escolha um tema');
readln (y);
clrscr;
case upcase(y) of
'A': writeln('No dia 13 de maio de 1888, através da Lei Áurea, assinada pela Princesa Isabel (filha de D. Pedro II), abolia de vez a escravidão em nosso país.');
writeln ('Ocorreram diversos movimentos para que acontecesse a abolição e mesmo após o acontecido a situação dos negros não foi fácil.');
'B': writeln(' Nas ultimas décadas do século XIX a população brasileira por toda parte estava descontente com a monarquia, os pobres cada vez mais pobres, a burguesia mais rica,');
writeln(' a família real com grandes gastos e países europeus mais industrializados fazendo viagens de exploração. Tudo resultou na queda da monarquia.');
'C': writeln('Foi o primeiro período republicano no Brasil, em 1889 a 1894. A "Espada" simboliza a mudança de monarquia para república, além dos presidentes desse período serem militares. ');
writeln ('Houve poupa participação popular.');
'D': writeln('A República Oligárquica inaugurou um novo período político no Brasil, durante a Primeira República, no qual a oligarquia rural cafeeira paulista dominou o poder político.');
'E': writeln('As ações coletivas mais conhecidas no Brasil são o Movimento dos Trabalhadores Sem Terra (MST), o Movimento dos Trabalhadores Sem Teto (MSTS) e os movimentos em defesa dos índios, negros e das mulheres.');
'F': writeln('Um movimento político militar e series de rebeliões de jovens oficiais do exercito brasileiro em 1920, descontentes com a situação politica do Brasil.');
'G': writeln('A década de 1920 foi um período de grandes transformações na sociedade brasileira houve a superprodução agrícola, diminuição do consumo, livre mercado o desencadeou uma crise econômica e influencias para a primeira guerra mundial.');
else
writeln('opção invalida');
end;
end;
Begin

A parte destaca é onde está o erro... Eu preciso continuar o texto... mas no mesmo writeln não dá, e quando eu coloco outro em baixo da erro...

Alguem sabe a solução??

obs: quando eu apago esse writeln que dá erro... o erro pula para o 2° writeln da opção B...

ou seja meu problema é eu querer escrever mais, só que quando eu coloco outro writeln não funciona.. :S

Editado por dif
Inserir a tag CODE e SPOILER

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá amigo.

O erro não é por causa do Writeln, mas sim pela falta do uso das cláusulas "begin" e "end".

Para que um "case" execute vários comandos ao localizar a condição correta, precisa colocar todos os comandos entre "begin" e "end", senão será gerado erro mesmo...

Sem o uso de "begin" e "end" apenas será executado 1 comando para a condição do "case" e não poderão ser acrescentados mais comandos...

Então, faça o código desta maneira:


case upcase(y) of
'A': [COLOR="Red"]begin[/COLOR]
writeln('No dia 13 de maio de 1888, através da Lei Áurea, assinada pela Princesa Isabel (filha de D. Pedro II), abolia de vez a escravidão em nosso país.');
writeln ('Ocorreram diversos movimentos para que acontecesse a abolição e mesmo após o acontecido a situação dos negros não foi fácil.');
[COLOR="Red"]end;[/COLOR]
'B': [COLOR="Red"]begin[/COLOR]
writeln(' Nas ultimas décadas do século XIX a população brasileira por toda parte estava descontente com a monarquia, os pobres cada vez mais pobres, a burguesia mais rica,');
writeln(' a família real com grandes gastos e países europeus mais industrializados fazendo viagens de exploração. Tudo resultou na queda da monarquia.');
[COLOR="Red"]end;[/COLOR]
'C': [COLOR="Red"]begin[/COLOR]
writeln('Foi o primeiro período republicano no Brasil, em 1889 a 1894. A "Espada" simboliza a mudança de monarquia para república, além dos presidentes desse período serem militares. ');
writeln ('Houve poupa participação popular.');
[COLOR="Red"]end;[/COLOR]
'D': writeln('A República Oligárquica inaugurou um novo período político no Brasil, durante a Primeira República, no qual a oligarquia rural cafeeira paulista dominou o poder político.');
'E': writeln('As ações coletivas mais conhecidas no Brasil são o Movimento dos Trabalhadores Sem Terra (MST), o Movimento dos Trabalhadores Sem Teto (MSTS) e os movimentos em defesa dos índios, negros e das mulheres.');
'F': writeln('Um movimento político militar e series de rebeliões de jovens oficiais do exercito brasileiro em 1920, descontentes com a situação politica do Brasil.');
'G': writeln('A década de 1920 foi um período de grandes transformações na sociedade brasileira houve a superprodução agrícola, diminuição do consumo, livre mercado o desencadeou uma crise econômica e influencias para a primeira guerra mundial.');
else
writeln('opção invalida');
end;

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Valeu... funcionou...xD

    Mas agora deu outro erro.... :S


    var
    x:integer;
    y:char;
    OP: char;
    opcao: string;
    conti: string;


    Begin
    repeat
    writeln('01 - Primeira Republica') ;
    writeln;
    writeln('02 - Primeira Grande Guerra');
    writeln;
    writeln('03 - A revoluçao Russa de 1917 ');
    writeln;
    writeln('04 - Aboliçao da escravidao');
    writeln;
    writeln('05 - Consequencias do processo de aboliaçao') ;
    writeln;
    readln (opcao);
    If (opcao='01') or (opcao='1') then
    begin
    clrscr;
    writeln('A- Abolicao da Escravatura');
    writeln;
    writeln('B- A Queda da monarquia');
    writeln;
    writeln('C- A Republica da Espada');
    writeln;
    writeln('D- A Republica Oligarquica');
    writeln;
    writeln('E -Os movimentos sociais: Rurais e urbanos');
    writeln;
    writeln('F - O Tenentistmo');
    writeln;
    writeln('G - A crise dos anos 1920');
    writeln;
    writeln(' escolha um tema');
    readln (y);
    clrscr;
    case upcase(y) of
    'A':begin
    writeln('No dia 13 de maio de 1888, através da Lei Áurea, assinada pela Princesa Isabel (filha de D. Pedro II), abolia de vez a escravidão em nosso país.');
    writeln ('Ocorreram diversos movimentos para que acontecesse a abolição e mesmo após o acontecido a situação dos negros não foi fácil.');
    end;
    'B':begin
    writeln(' Nas ultimas décadas do século XIX a população brasileira por toda parte estava descontente com a monarquia, os pobres cada vez mais pobres, a burguesia mais rica,');
    writeln(' a família real com grandes gastos e países europeus mais industrializados fazendo viagens de exploração. Tudo resultou na queda da monarquia.');
    end;
    'C': begin
    writeln('Foi o primeiro período republicano no Brasil, em 1889 a 1894. A "Espada" simboliza a mudança de monarquia para república, além dos presidentes desse período serem militares. ');
    writeln ('Houve poupa participação popular.');
    end;
    'D': writeln('A República Oligárquica inaugurou um novo período político no Brasil, durante a Primeira República, no qual a oligarquia rural cafeeira paulista dominou o poder político.');
    'E': writeln('As ações coletivas mais conhecidas no Brasil são o Movimento dos Trabalhadores Sem Terra (MST), o Movimento dos Trabalhadores Sem Teto (MSTS) e os movimentos em defesa dos índios, negros e das mulheres.');
    'F': writeln('Um movimento político militar e series de rebeliões de jovens oficiais do exercito brasileiro em 1920, descontentes com a situação politica do Brasil.');
    'G': writeln('A década de 1920 foi um período de grandes transformações na sociedade brasileira houve a superprodução agrícola, diminuição do consumo, livre mercado o desencadeou uma crise econômica e influencias para a primeira guerra mundial.');
    else
    writeln('opção invalida');
    end;
    end;


    if (opcao='02') or (opcao='2') then
    begin
    writeln('A: Antecedentes da guerra');
    writeln;
    writeln('B: O decorrer: campanhas e modalidades');
    writeln;
    writeln('C: O tratado de Versalhes');
    writeln;
    writeln('D: As consequencias da guerra: Declinio europeu e ascensao Norte americana');
    writeln;
    writeln('escolha um tema');
    readln(y);
    clrscr;
    case upcase(y) of
    'A': begin
    writeln('No século XIX, as grandes potências européias tinham ido para grandes distâncias para manter o equilíbrio de poder em toda a Europa, resultando na existência de uma complexa rede de alianças políticas e militares em todo o continente por volta de 1900.');
    writeln ('Um conflito europeu foi evitado em grande parte através de uma rede de tratados cuidadosamente planejada entre o Império Alemão e o resto da Europa e orquestrada por Bismarck. ')
    end;
    'B': begin
    writeln('As instituições assistenciais que surgem após o fim da Primeira Guerra Mundial possuem uma diferenciação face às atividades tradicionais de caridade.');
    writeln ('Contam com um aporte de recursos e contatos em nível de Estado que lhes permite o planejamento de obras assistenciais de maior envergadura e eficiência técnica. ');
    end;
    'C': begin
    writeln('O Tratado de Versalhes (1919) foi um tratado de paz assinado pelas potências européias que encerrou oficialmente a Primeira Guerra Mundial.');
    writeln ('Após seis meses de negociações, em Paris, o tratado foi assinado como uma continuação do armistício de Novembro de 1918, em Compiègne, que tinha posto um fim aos confrontos.');
    writeln ('O tratado tinha criado Liga das Nações que pretendia arbitrar disputas internacionais para evitar futuras guerras.');
    end
    'D': begin
    writeln('As transformações econômicas dessa nova fase histórica do capitalismo são assim definidas por Lênin: 1) substituição da livre concorrência entre capitalistas pelos monopólios das grandes corporações;');
    writeln ('2) exportação de capitais dos países imperialistas em escala global; 3) domínio absoluto do capital financeiro, a partir da fusão do capital bancário com o industrial.');
    end;

    else
    writeln('opção invalida')
    end;
    end;
    Program Pzim;

    A opção 2 está igual a 1.... Mas está dando erro na opção "D"...

    "D" não esperado...

    O que faço?

    desculpa galera.... já descobrir o que foi....

    Faltou o ";" na opção C...

    agora já ta de boa...

    Obrigado ao que respondeu

    Editado por Simon Viegas
    Por favor, ao postar um código utilize a tag CODE (Botão #). Se for muito complito também a tag SPOILER.

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário

    Entre para seguir isso  





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

    ×