×
Ir ao conteúdo
  • Cadastre-se

Pascal Erro sintático na linha 19; 'possui média' não esperado!


Eyshila Gomes

Posts recomendados

não consigo resolver esse problema de ' possui média' não esperado

 

 

var 
nome: string;
l,a,e, mf: real; 
{l= Nota de laboratório a= Nota Av. Semestral e= Nota do exame final  mf= Média Ponderada final}
Begin
   write (' Digite o seu nome');
   readln (nome);
   write (' Digite a sua nota em Laboratório');
   readln (l);
   write (' Digite a sua nota em Av.Semestral');
   readln (a);
   write (' Digite a sua nota em Exame Final');
   readln (e);
   mf:= (l*3)+(a*3)+(e*4)/10;
   if  mf>= 8 then
   write (nome 'possui média' mf 'e faz parte do conceito A');
    if  mf<=10 then
   writeln (nome 'possui media' mf 'e faz parte do conceito A');
    if  mf>= 7 then
   writeln (nome 'possui media' mf 'e faz parte do conceito B');
    if  mf<8 then
   writeln (nome 'possui media' mf 'e faz parte do conceito B');
    if  mf>=6 then
   writeln (nome 'possui media' mf 'e faz parte do conceito C');
    if  mf<7 then
   writeln (nome 'possui media' mf 'e faz parte do conceito C');   
      if  mf>=5 then
   writeln (nome 'possui media' mf 'e faz parte do conceito D');
    if  mf<6 then
   writeln (nome 'possui media' mf 'e faz parte do conceito D');
    if  mf<5 then
   writeln (nome 'possui media' mf 'e faz parte do conceito E');
   
   
   
End.

  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

@Eyshila Gomes    ali o compilador está reclamando de erros de sintaxe , pois você não colocou um vírguLa depois da msg para separar a variável no comando writeln ,  e também não precisa repetir a mesma coisa várias vezes , não ,  e seu código bem modificado ficou assim  :

Program Pzim ;
var 
  nome      : string;
  l,a,e, mf : real; 
  conceito  : string;
{l= Nota de laboratório a= Nota Av. Semestral e= Nota do exame final  mf= Média Ponderada final}
Begin
  writeln('conceito ',conceito);
  write (' Digite o seu nome ');
  readln (nome);
  write (' Digite a sua nota em Laboratório --: ');
  readln (l);
  write (' Digite a sua nota em Av.Semestral -: ');
  readln (a);
  write (' Digite a sua nota em Exame Final --: ');
  readln (e);
  mf := ((l*3)+(a*3)+(e*4))/10;
  writeln('MeDia FinAL = ',mf);
  if ( mf >= 8 ) and ( mf <= 10 ) then conceito := 'A';
  if ( mf >= 7 ) and ( mf <   8 ) then conceito := 'B';
  if ( mf >= 6 ) and ( mf <   7 ) then conceito := 'C';
  if ( mf >= 5 ) and ( mf <   6 ) then conceito := 'D';
  if   mf <  5                    then conceito := 'E';
  writeln (nome, ' possui media ', mf:2:2, ' e faz parte do conceito ', conceito);
 End.

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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

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

Curso de Hacker Ético

LANÇAMENTO!

CLIQUE AQUI E CONFIRA!

* Este curso não é ministrado pela equipe do Clube do Hardware.