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
  • Autor do tópico
  • 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

    ×