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. |
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. |
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 [email protected].
Post Views: 12.422
-
InfusTec
-
- 0 comentários
- 2 de fevereiro de 2016
