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:  
Entre para seguir isso  
tony101

[Resolvido] (Pascal) Pequeno erro que não consegui resolver

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites
 
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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





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

×