Calcular Media Algoritimo

[Asskiller 4]

Espero que gostem desse meu humilde algoritimo em Pascal para calcular media das notas para minha escola

Abracos

 

www.nkilla.com
const
Media = 25; // Constante da Media

var
i : integer; // Inteiro
C : Char; // Char

procedure linha;
var
a : integer;                     // Procedure para dar um charme na aplicacao
begin
For a := 1 to 80 do write('-');
end;

// Inicio da Procedure de escolha de materia
Procedure Materia;
begin
Write('Qual e a Materia que voce deseja calcular Media ?');
writeln;
writeln;
writeln('---+---+-----+---+-----+---+-----+---+-----+---+--+-----+---+--');
writeln(' 1 Ingles | 2 Matematica | 3 Portugues ');
writeln('---+---+-----+---+-----+---+-----+---+-----+---+--+-----+---+--');
writeln(' 4 Fisica | 5 Quimica | 6 Biologia ');
writeln('---+---+-----+---+-----+---+-----+---+-----+---+--+-----+---+-- ');
writeln(' 7 Historia| 8 Geografia | 9 Ingles');
writeln('---+---+-- ---+---+-----+---+-----+---+-----+---+--+-----+---+--');
writeln(' 10 Atualidades| 11 Sociologia | 12 Filosofia | 13 Espanhol');
writeln;
Writeln('Escolha o Numero referente a Materia que voce Deseja Calcular');
Readln(i);
Writeln;
case i of
1 : write('Materia: Ingles');
2 : write('Materia: Matematica');
3 : write('Materia: Portugues');
4 : write('Materia: Fisica');
5 : write('Materia: Quimica');
6 : write('Materia: Biologia');
7 : write('Materia: Historia');
8 : write('Materia: Geografia');
9 : write('Materia: Ingles');
10 : write('Materia: Atualidades');
11 : write('Materia: Sociologia');
12 : write('Materia: Filosofia');
13 : write('Materia: Espanhol');
end;

end;
// Calculo da materia
Procedure CalculoMateria;
var n,z,a,Part,Prova,Teste : real;
begin
Writeln;
Writeln('Digite as Notas da Materia Acima :');
Writeln;
Write('Nota do Teste :');
Writeln;
readln(Teste);
n := Teste * 0.4; // Multiplica o valor do teste por 0,4
Writeln('Nota do Teste = ',n:5:2); Dado 5:2 , Quantidade de Zeros nas casas decimais
Write('Nota da Prova :');
Writeln;
readln(Prova);
a := Prova * 0.5; // Multiplica a prova por 0,5
Writeln('Nota da Prova = ',a:5:2);
Write('Nota de Participacao :');
Writeln;
Readln(Part); // Soma o total e da o valor abaixo
z := (n+a+Part);
Writeln;
Writeln('Media Total na Materia Nesse Bimestre =',z:5:2);
end;

Procedure RepeatCalc;
begin
Repeat
 WriteLn ('Voce Deseja Calcular a Media de Outra Materia (S/N)  ?');   // Procedimento para repeticao de calculo
 C := ReadKey;
 Materia;
 CalculoMateria;
Until C='n';
C := ReadKey;
Exit;
End;


begin

linha;
Writeln('Aplicativo para Calcular Media por Breno Sobral');
linha;
writeln;
Materia;
writeln;
CalculoMateria;
writeln;
RepeatCalc;

readln;

end.

[LCS 0]

Muito legal.. Agora so falta você modelar um banco de dados e puxar as notas cadastradas dele.

 

Abcx,

 

LCS

[Asskiller 4]

Nao sei muito sobre banco de dados , mais estarei pesquisando

 

Em pascal e possivel modelar o banco e salvar os dados do aluno ?

[LCS 0]

Você utilizando o pascal no delphi pode fazer a conexão com o banco de dados.. logo o pascal não é banco de dados então não é possivle.