dúvida Pascal (Média de Array)

[rsm_rlb]

Galera, tem alguém aqui que manje da linguagem pascal? 

To enrolado para tirar a média do Array. Se alguém souber e puder me ajudar, cologo o código aqui pra darem uma olhada.

 

program Trabalho_Conclusao_Semestre;
const
  QDT_alunosS=3; //ID do Aluno (Aluno 1, 2 e 3)
var
  alunos: array [1..QDT_alunosS] of string;
  mat, port, hist, geo, cie: array[1..2,1..QDT_alunosS] of real; //[unidade,id_do_aluno]
  i,j      :integer;
  md: array[1..2,1..QDT_alunosS] of real;

//INÍCIO DO PROGRAMA
begin
TextColor(White); //cor do texto branca 

	for i:=1 to 3 do
 		begin
  		write  ('Digite o nome do alunos: ');
			readln (alunos[i]);
  	end;
  	
ClrScr;	//limpa a tela

//Insira as notas do Primeiro Bimestre
	for i:=1 to 3 do
  	begin
  		ClrScr;
  		write  ('Digite a nota do Primeiro Bim de Matemática para ',alunos[i],': ');
			readln (mat[1,i]);
  		write  ('Digite a nota do Primeiro Bim de Português para  ',alunos[i],': ');
			readln(port[1,i]);
  	end;

ClrScr;
 
 //Insira as notas do Segundo Bimestre 	
	for i:=1 to 3 do
		begin
			ClrScr;
			write  ('Digite a nota do Segundo Bim de Matemática para  ',alunos[i],': ');
			readln (mat[2,i]);
			write  ('Digite a nota do Segundo Bim de Português para   ',alunos[i],': ');
			readln(port[2,i]);
		end;

ClrScr;

//Notas de 1º e 2º Bimestre
	for i:=1 to 3 do
	  	begin
	  		ClrScr;
	  		writeln('====||Quadro de Notas||===');
	  		writeln;
  			writeln(alunos[i],': ',mat[1,i]:0:2 ,' no 1 bim e ', mat[2,i]:0:2 ,' no 2 bim de Matemática.');
  			writeln(alunos[i],': ',port[1,i]:0:2,' no 1 bim e ', port[2,i]:0:2 ,' no 2 bim de Português.');
  			readln;

  	end;
  	
	
	 		md := (mat[1,i] + mat[2,i])/2;

	
	for i:=1 to 3 do
		begin	 
		 writeln('A Média do ', alunos[i] ,' é ', ((mat[1,i) + (mat[2,i)) / 2);
		end;
end.

[Douglas.]

Portugol:

 

v_tamanho inteiro := X;
v_array real[v_tamanho];
v_soma real := 0.0;

para i de 1 até v_tamanho faça

v_soma := v_soma + v_array[i];

fim para;

escreve v_soma / v_tamanho;

 

 

Pascal mesmo é foda lembrar. Só lembro que atribuição é ":=" mesmo mas o resto da sintaxe eu não faço idéia mais.

[rsm_rlb]

Portugol:

 

v_tamanho inteiro := X;
v_array real[v_tamanho];
v_soma real := 0.0;

para i de 1 até v_tamanho faça

v_soma := v_soma + v_array[i];

fim para;

escreve v_soma / v_tamanho;

 

 

Pascal mesmo é foda lembrar. Só lembro que atribuição é ":=" mesmo mas o resto da sintaxe eu não faço idéia mais.

Pois é. só fica dando erro de sintaxe aqui. E eu tenho que apresentar um projeto com isso no fim do semestre. Era pra ser em dupla mas a minha dupla sumiu.

 

coloquei meu código em spoiler no primeiro tópico.

[Douglas.]

O melhor conselho que posso dar é testar do início pra ver se as declarações estão corretas. Preenche manualmente os arrays e só imprime. Se der erro, tem algo errado na declaração, índices...

[rsm_rlb]

O melhor conselho que posso dar é testar do início pra ver se as declarações estão corretas. Preenche manualmente os arrays e só imprime. Se der erro, tem algo errado na declaração, índices...

Já fiz esse teste. Passo a passo. O problema tá só na hora de calcular a média.

 

"Atribuição com tipos de dados incompatível para a variável"

 

Não sei o que fazer. Joguei minha variável como real. porque os valores que serão recebidos, são números reais. Mesmo assim tá dando erro.