Ir ao conteúdo
  • Cadastre-se
Seja um moderador do Clube do Hardware!
Gabrielon07

Problema em compilar programa em Pascal

Por , em Pascal/Delphi

Recommended Posts

Gabrielon07    0

Gabrielon07
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

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

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

×