(Pascal) Pequeno erro que não consegui resolver

[tony101]

Escreva um programa em pascal que receba via teclado duas notas: Nota 1 e Nota 2. O programa deve imprimir na tela a media, o conceito do aluno. (Dado pela tabela a baixo).

Menor que 3: Insuficiente

Entre 3 e 6.9: Ruim

Entre 7 e 8.5: Bom

Maior que 8.5: Excelente

Ja fiz:

PROGRAM NOTAS;
USES CRT;

VAR
     N1,N2,MEDIA:REAL;

BEGIN
MEDIA:=0;
BEGIN
 WRITELN ('DIGITE A PRIMEIRA NOTA');
 READLN (N1);
 WRITELN ('DIGITE A SEGUNDA NOTA');
 READLN (N2);
 END;

 MEDIA:= (N1+N2)/2;

  WRITELN ('A MEDIA é:', MEDIA:2:2);

 IF MEDIA < 3 THEN
 WRITELN ('INSUFICIENTE');
 IF (MEDIA = 3) AND (MEDIA <= 6.9) THEN
 WRITELN ('RUIM');
 IF (MEDIA = 7) AND (MEDIA <= 8.5) THEN
 WRITELN ('BOM');
 IF (MEDIA > 8.5) THEN
 WRITELN ('EXCELENTE');

READKEY;
END.

[Wilson Neto]

Cara, antes de postar um novo tópico, pesquise nos tópicos do forum, pois surge um problema exatamente igual ao seu toda semana... mas acredito que o teu principal erro seja nas condições dos conceitos "bom" e "ruim", pois a primeira condição é "media = 7" e "media = 3", quando deveriam ser "media >= 7" e "media >= 3"...

PROGRAM NOTAS;
USES CRT;

VAR
     N1,N2,MEDIA:REAL;

BEGIN
 MEDIA:=0;
 WRITELN ('DIGITE A PRIMEIRA NOTA');
 READLN (N1);
 WRITELN ('DIGITE A SEGUNDA NOTA');
 READLN (N2);
 MEDIA:= (N1+N2)/2;
 WRITELN ('A MEDIA é:', MEDIA:2:2);
 IF MEDIA < 3 THEN
 WRITELN ('INSUFICIENTE');
 IF (MEDIA >= 3) AND (MEDIA <= 6.9) THEN
 WRITELN ('RUIM');
 IF (MEDIA >= 7) AND (MEDIA <= 8.5) THEN
 WRITELN ('BOM');
 IF (MEDIA > 8.5) THEN
 WRITELN ('EXCELENTE');
 READKEY;
END.

Acredito que agora irá funcionar... falou.

[tony101]

Cara, antes de postar um novo tópico, pesquise nos tópicos do forum, pois surge um problema exatamente igual ao seu toda semana... mas acredito que o teu principal erro seja nas condições dos conceitos "bom" e "ruim", pois a primeira condição é "media = 7" e "media = 3", quando deveriam ser "media >= 7" e "media >= 3"...

PROGRAM NOTAS;
USES CRT;

VAR
     N1,N2,MEDIA:REAL;

BEGIN
 MEDIA:=0;
 WRITELN ('DIGITE A PRIMEIRA NOTA');
 READLN (N1);
 WRITELN ('DIGITE A SEGUNDA NOTA');
 READLN (N2);
 MEDIA:= (N1+N2)/2;
 WRITELN ('A MEDIA é:', MEDIA:2:2);
 IF MEDIA < 3 THEN
 WRITELN ('INSUFICIENTE');
 IF (MEDIA >= 3) AND (MEDIA <= 6.9) THEN
 WRITELN ('RUIM');
 IF (MEDIA >= 7) AND (MEDIA <= 8.5) THEN
 WRITELN ('BOM');
 IF (MEDIA > 8.5) THEN
 WRITELN ('EXCELENTE');
 READKEY;
END.

Acredito que agora irá funcionar... falou.

Valeu... Obrigado, e vou seguir teu conselho sobre a pesquisa no fórum, é que não tenho muito tempo aqui

[gandalfnho]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.