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:  
Gabrielon07

Problema em compilar programa em Pascal

Por , em Pascal/Delphi

Recommended Posts

Gabrielon07    0

Gabrielon07
Postado (editado)

Então galera, estou com problema ao compilar o meu programa em pascal.

Aparece o seguinte erro: 'FIM DE ARQUIVO' não esperado;


num: integer;
D: char;
E: char;
F: char;
NUMERO1:integer;
NUMERO2:integer;
ADICAO:integer;
SUBTRACAO:integer;
DIVISAO: real;
MULTIPLICACAO:integer;
PONTUACAO: integer;
N: integer;
i: integer;
s: integer;

Begin

E:= 's';
while (E= 'sim') do

writeln ('Qual operação você deseja utilizar?');
writeln ('1 - Quatro operações mais par ou ímpar');
writeln ('2 - Multas');
writeln ('3 - contador');
writeln ('4 - Aluno notas');

Case D of

'1':

Begin
F:='s';
While (F= 's') do

writeln ('Por favor, digite um número inteiro');
readln(NUMERO1);
writeln ('Por favor digite outro número inteiro');
readln (NUMERO2);
ADICAO:= (NUMERO1+NUMERO2);
SUBTRACAO:=(NUMERO1-NUMERO2);
DIVISAO:=(NUMERO1/NUMERO2);
MULTIPLICACAO:= (NUMERO1*NUMERO2);

writeln ('O resultado da adição destes valores é:', ADICAO);
writeln ('O resultado da subtraçã dos valores é:', SUBTRACAO);
writeln ('O resultado da divisão dos valores é:', DIVISAO);
writeln ('O resultado da multiplicação dos valores é:', MULTIPLICACAO);

if ADICAO mod 2=0 then
writeln ('O resultado da adição é par.') else;
writeln ('O resultado da adição é ímpar');

if SUBTRACAO mod 2=0 then
writeln ('O resultado da subtração é par') else;
writeln ('O resultado da subtração é ímpar');

if MULTIPLICACAO mod 2=0 then
writeln ('O resultado da multiplicação é par') else;
writeln ('O resultado da multiplicação é ímpar');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;

'2':
Begin

F:='s';
While (F= 's') do

writeln ('Por favor, digite a sua pontuação');
read (PONTUACAO);
if
PONTUACAO=7
then
writeln ('Você cometeu uma infração gravíssima')
else
if
PONTUACAO=5
then
writeln ('Você cometeu uma infração grave')
else
if
PONTUACAO=4
then
writeln ('Você cometeu uma infração média')
else
if
PONTUACAO=3
then
writeln ('Você cometeu uma infração leve')
else
writeln ('Sua pontuação é inválida');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;

'3':
Begin

F:='s';
While (F= 's') do

writeln ('Por favor, digite um número inteiro entre 1 a 10');
readln (N);
while i < (N+1) do
Begin
s:= s+i;
i:=i+1;
end;
writeln (s);
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;

'4':

Begin

F:='s';
While (F='s') do

for i:= 1 to 10 do
begin
writeln ('Digite a nota do aluno', i);
readln (v[i]);
end;
for i:= 1 to 10 do
soma:= (soma+ v[i]);
media:= (soma/10);
if media>= 7 then
writeln ('A média da turma está nos padrões do IF')
else;
writeln ('A média da turma não está nos padrões do IF');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);



writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);


End
 var

Editado por Simon Viegas
Inserir tag SPOILER (devido ao tamanho). Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasgc1    1

lucasgc1
Postado

deve ser a compatibilidade entre o Delphil e o seu Windows ou instale de novo se seu windows for xp ou 7 x32 instale o delphil x32 bit se seu windows for x64 instale o delphil x64bit

Compartilhar este post

Link para o post
Compartilhar em outros sites

Simon Viegas    1.293

Simon Viegas
Postado
Então galera, estou com problema ao compilar o meu programa em pascal.

Aparece o seguinte erro: 'FIM DE ARQUIVO' não esperado;


num: integer;
D: char;
E: char;
F: char;
NUMERO1:integer;
NUMERO2:integer;
ADICAO:integer;
SUBTRACAO:integer;
DIVISAO: real;
MULTIPLICACAO:integer;
PONTUACAO: integer;
N: integer;
i: integer;
s: integer;

Begin

E:= 's';
while (E= 'sim') do

writeln ('Qual operação você deseja utilizar?');
writeln ('1 - Quatro operações mais par ou ímpar');
writeln ('2 - Multas');
writeln ('3 - contador');
writeln ('4 - Aluno notas');

Case D of

'1':

Begin
F:='s';
While (F= 's') do

writeln ('Por favor, digite um número inteiro');
readln(NUMERO1);
writeln ('Por favor digite outro número inteiro');
readln (NUMERO2);
ADICAO:= (NUMERO1+NUMERO2);
SUBTRACAO:=(NUMERO1-NUMERO2);
DIVISAO:=(NUMERO1/NUMERO2);
MULTIPLICACAO:= (NUMERO1*NUMERO2);

writeln ('O resultado da adição destes valores é:', ADICAO);
writeln ('O resultado da subtraçã dos valores é:', SUBTRACAO);
writeln ('O resultado da divisão dos valores é:', DIVISAO);
writeln ('O resultado da multiplicação dos valores é:', MULTIPLICACAO);

if ADICAO mod 2=0 then
writeln ('O resultado da adição é par.') else;
writeln ('O resultado da adição é ímpar');

if SUBTRACAO mod 2=0 then
writeln ('O resultado da subtração é par') else;
writeln ('O resultado da subtração é ímpar');

if MULTIPLICACAO mod 2=0 then
writeln ('O resultado da multiplicação é par') else;
writeln ('O resultado da multiplicação é ímpar');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;

'2':
Begin

F:='s';
While (F= 's') do

writeln ('Por favor, digite a sua pontuação');
read (PONTUACAO);
if
PONTUACAO=7
then
writeln ('Você cometeu uma infração gravíssima')
else
if
PONTUACAO=5
then
writeln ('Você cometeu uma infração grave')
else
if
PONTUACAO=4
then
writeln ('Você cometeu uma infração média')
else
if
PONTUACAO=3
then
writeln ('Você cometeu uma infração leve')
else
writeln ('Sua pontuação é inválida');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;

'3':
Begin

F:='s';
While (F= 's') do

writeln ('Por favor, digite um número inteiro entre 1 a 10');
readln (N);
while i < (N+1) do
Begin
s:= s+i;
i:=i+1;
end;
writeln (s);
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;

'4':

Begin

F:='s';
While (F='s') do

for i:= 1 to 10 do
begin
writeln ('Digite a nota do aluno', i);
readln (v[i]);
end;
for i:= 1 to 10 do
soma:= (soma+ v[i]);
media:= (soma/10);
if media>= 7 then
writeln ('A média da turma está nos padrões do IF')
else;
writeln ('A média da turma não está nos padrões do IF');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);



writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);


End
 var

Olá Gabrielon07, abaixo identei o seu código, veja.


num: integer;
D: char;
E: char;
F: char;
NUMERO1:integer;
NUMERO2:integer;
ADICAO:integer;
SUBTRACAO:integer;
DIVISAO: real;
MULTIPLICACAO:integer;
PONTUACAO: integer;
N: integer;
i: integer;
s: integer;
BEGIN
E:= 's';
while (E= 'sim') do
writeln ('Qual operação você deseja utilizar?');
writeln ('1 - Quatro operações mais par ou ímpar');
writeln ('2 - Multas');
writeln ('3 - contador');
writeln ('4 - Aluno notas');
Case D of
'1':
begin
F:='s';
while (F= 's') do
writeln ('Por favor, digite um número inteiro');
readln(NUMERO1);
writeln ('Por favor digite outro número inteiro');
readln (NUMERO2);
ADICAO:= (NUMERO1+NUMERO2);
SUBTRACAO:=(NUMERO1-NUMERO2);
DIVISAO:=(NUMERO1/NUMERO2);
MULTIPLICACAO:= (NUMERO1*NUMERO2);
writeln ('O resultado da adição destes valores é:', ADICAO);
writeln ('O resultado da subtraçã dos valores é:', SUBTRACAO);
writeln ('O resultado da divisão dos valores é:', DIVISAO);
writeln ('O resultado da multiplicação dos valores é:', MULTIPLICACAO);
if ADICAO mod 2=0 then
writeln ('O resultado da adição é par.') else;
writeln ('O resultado da adição é ímpar');
if SUBTRACAO mod 2=0 then
writeln ('O resultado da subtração é par') else;
writeln ('O resultado da subtração é ímpar');
if MULTIPLICACAO mod 2=0 then
writeln ('O resultado da multiplicação é par') else;
writeln ('O resultado da multiplicação é ímpar');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;
'2':
begin
F:='s';
while (F= 's') do
writeln ('Por favor, digite a sua pontuação');
read(PONTUACAO);
if PONTUACAO=7 then
writeln ('Você cometeu uma infração gravíssima')
else
if PONTUACAO=5 then
writeln ('Você cometeu uma infração grave')
else
if PONTUACAO=4 then
writeln ('Você cometeu uma infração média')
else
if PONTUACAO=3 then
writeln ('Você cometeu uma infração leve')
else
writeln ('Sua pontuação é inválida');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;
'3':
begin
F:='s';
while (F= 's') do
writeln ('Por favor, digite um número inteiro entre 1 a 10');
readln (N);
while i < (N+1) do
begin
s:= s+i;
i:=i+1;
end;
writeln (s);
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;
'4':
begin
F:='s';
while (F='s') do
for i:= 1 to 10 do
begin
writeln ('Digite a nota do aluno', i);
readln (v[i]);
end;
for i:= 1 to 10 do
soma:= (soma+ v[i]);
media:= (soma/10);
if media>= 7 then
writeln ('A média da turma está nos padrões do IF')
else;
writeln ('A média da turma não está nos padrões do IF');
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
writeln ('Deseja continuar?');
writeln ('s');
writeln ('N');
readln (F);
end;
end; //FIM CASE
END. //FIM DO PROGRAMA
var

Ficou faltando as duas últimas linhas (que estão com comentários).

Obs.: Só fiz identar e inserir os end.

deve ser a compatibilidade entre o Delphil e o seu Windows ou instale de novo se seu windows for xp ou 7 x32 instale o delphil x32 bit se seu windows for x64 instale o delphil x64bit

Olá lucasgc1.

Me parece que o problema seja de código, e não de IDE/aplicaçao.

***

No aguardo.,

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

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
Ir à lista de tópicos Pascal/Delphi




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

×