Ir ao conteúdo
  • Cadastre-se

writeln ta dando erro pascal


Visitante: rorlf

Posts recomendados

Visitante: rorlf
 

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

Link para o comentário
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;

Link para o comentário
Compartilhar em outros sites

Visitante: rorlf
 

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

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

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