помогите решить задачу!, Нужно решить задачу с помощью процедуры и функции. Опции

[natik3]

В общем надо решить следующую задачу: Известно, что в следующем фрагменте программы массив матрица содержит оценки студентов группы, фамилии которых перечислены в типе фамилий

 type 
 fam=(Ivanov,Petrov,Sidorov); 
 pred=(Algebra,Russkii,Informatika); 
 var 
 matr:array[fam,pred] of integer 

Необходимо выяснить сколько студентов группы имеют средний балл, наименее всего отклоняющийся по абсолютному значению от среднего балла всей группы.
Не могу понять как решать с помощью процедуры и функции.Помогите!!!

[Lapp]

Делаешь функцию, возвращающую средний балл студента:

function AverageGrade(Student: fam): real;
var
  i: pred;
  s: real;
begin
  s:= 0;
  for i:= Low(pred) to High(pred) do s:= s + matr[Student,i];
  AverageGrade:= s/(Ord(High(pred))+1)
end;

А потом используешь ее..
Для нахождения общего среднего:

  s:= 0;
  for i:= Low(fam) to High(fam) do s:= s + AvegrageGrade(i);  // i is ot type fam here
  TotalAverage:= s/(Ord(High(fam))+1);

И для выяснения наименьшее отклонение от него, тоже в цикле по студентам:

  MinDeviation:= High(integer);    // MaxDeviation опиши как real
  for i:= Low(fam) to High(fam) do
    if Abs(AvegrageGrade(i)-TotalAverage)<MinDeviation then begin
      MinDeviation:= Abs(AvegrageGrade(i)-TotalAverage);
      Count:= 1
    end
    else if Abs(Abs(AvegrageGrade(i)-TotalAverage)-MinDiviation)<1e-8 then Inc(Count) //corrected, see post from TarasBer below
  WriteLn(Count,' студентов имеют минимальное отклонение от среднего балла группы');

Вот, примерно все.. Осталось только собрать все, правильно описать переменные и сделать ввод данных.
Спрашивай, что неясно. Успехов тебе.

Сообщение отредактировано: Lapp - 5.04.2012 0:56

[natik3]

Делаешь функцию, возвращающую средний балл студента:

function AverageGrade(Student: fam): real;
var
  i: pred;
  s: real;
begin
  s:= 0;
  for i:= Low(pred) to High(pred) do s:= s + matr[Student,i];
  AverageGrade:= s/(Ord(High(pred))+1)
end;

А потом используешь ее..
Для нахождения общего среднего:

  s:= 0;
  for i:= Low(fam) to High(fam) do s:= s + AvegrageGrade(i);  // i is ot type fam here
  TotalAverage:= s/(Ord(High(fam))+1);

И для выяснения наименьшее отклонение от него, тоже в цикле по студентам:

  MinDeviation:= High(integer);    // MaxDeviation опиши как real
  for i:= Low(fam) to High(fam) do
    if Abs(AvegrageGrade(i)-TotalAverage)<MinDeviation then begin
      MinDeviation:= Abs(AvegrageGrade(i)-TotalAverage);
      Count:= 1
    end
    else if Abs(AvegrageGrade(i)-TotalAverage)<1e-8 then Inc(Count)
  WriteLn(Count,' студентов имеют минимальное отклонение от среднего балла группы');

Вот, примерно все.. Осталось только собрать все, правильно описать переменные и сделать ввод данных.
Спрашивай, что неясно. Успехов тебе.

спасибо.а не подскажешь откуда в Abs(AvegrageGrade(i)-TotalAverage)<1e-8 мы берем 1e-8?