Escrever um algoritmo e um programa que leia quatro valores referentes a quatro notas escolares de um aluno e imprimir uma mensagem dizendo que o aluno foi “aprovado”, se o valor da média escolar for maior ou igual a 5.0. Se o aluno não foi aprovado, indicar uma mensagem informando esta condição. Apresentar junto com uma das mensagens o valor da média do aluno para qualquer condição. – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Escrever um algoritmo e um programa que leia quatro valores referentes a quatro notas escolares de um aluno e imprimir uma mensagem dizendo que o aluno foi “aprovado”, se o valor da média escolar for maior ou igual a 5.0. Se o aluno não foi aprovado, indicar uma mensagem informando esta condição. Apresentar junto com uma das mensagens o valor da média do aluno para qualquer condição.

 

Sugestão de resposta em linguagem algorítmica

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
programa Exercicio22;
 
var
  nota1, nota2, nota3, nota4 : Real;
  media : Real;  
inicio
  Escreva('Informe a nota 1: ');
  Leia(nota1);
 
  Escreva('Informe a nota 2: ');
  Leia(nota2);
 
  Escreva('Informe a nota 3: ');
  Leia(nota3);
 
  Escreva('Informe a nota 4: ');
  Leia(nota4);
 
  media := (nota1 + nota2 + nota3 + nota4) / 4;
 
  se (media >= 5) entao
    Escreva('O aluno foi APROVADO com media: ', media)
  senao
    Escreva('O aluno foi REPROVADO com media: ', media); 
fim.

Sugestão de resposta em Pascal, Lazarus, Delphi

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program Exercicio25;
 
{$mode objfpc}{$H+}
 
uses
  Classes,
  SysUtils;
 
var
  nota1, nota2, nota3, nota4 : Double;
  media : Double;
begin
  try
    Write('Informe a nota 1: ');
    Readln(nota1);
 
    Write('Informe a nota 2: ');
    Readln(nota2);
 
    Write('Informe a nota 3: ');
    Readln(nota3);
 
    Write('Informe a nota 4: ');
    Readln(nota4);
 
    media := (nota1 + nota2 + nota3 + nota4) / 4;
 
    if (media >= 5) then
      Writeln('O aluno foi APROVADO com media: ', media :0:2)
    else
      Writeln('O aluno foi REPROVADO com media: ', media :0:2);
 
    Write(#10#13#10#13, 'Tecle "Enter" para sair.');
    Readln;
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Outras linguagens?
Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.

Facebook Comments

Posts Relacionados

  • Administrador
  • 385 views
  • 0 comentários
  • 2 de fevereiro de 2016

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados