writeln ta dando erro pascal

28 de março de 2013

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

rockzilla2109 · 28 de março de 2013

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;

28 de março de 2013

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;