Delphi

[zaq2000]

Пожалусто решите мне задачку

Подготовить модуль в среде Delphi для выполнения задачи расчета среднего балла каждого из N студентов группы сдавшего M экзаменов.
Построить гистограмму оценок по итогам сданных экзаменов (количество 5-к, 4-к, 3-к, 2-к.)

[Stilet]

каждого из N студентов группы сдавшего M экзаменов

А данные о студентах откуда берутся?

[Z1000000]

я думаю из головы можно взять.

пожалусто помогите хотя бы начать.

Сообщение от zaq2000

я думаю из головы можно взять.

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

я думаю наверно лучше будет забивать данные.

[Stilet]

Подготовить модуль в среде Delphi для выполнения задачи расчета среднего балла каждого из N студентов группы сдавшего M экзаменов.

Например так:

unit Unit1;

interface


const m=3;  n=3;
type
 Ts=record
  Stud:String;
  Bal:array[1..m] of integer;
 end;
var studs:Array[1..n] of ts;i:integer;

procedure vvod;
procedure vivod;
procedure Gisto;

implementation
uses forms,TeeProcs, TeEngine, Chart,Controls,Series,Graphics;

procedure Gisto;
var
 f:TForm;
     Chart1: TChart;
    Series1: TBarSeries;
    i:integer;
begin
 f:=TForm.Create(nil);
  Chart1:=TChart.Create(f);
  Chart1.Parent:=f;
  Chart1.Align:=alClient;
  Chart1.Show;
   Series1:=TBarSeries.Create(Chart1);
   Series1.ParentChart:=Chart1;
   with    Series1 do begin
     for i:=1 to n do begin
      Series1.AddBar(studs[i].bal[1],'',clred);
     end;
   end;
 f.ShowModal;
 f:=nil;
end;

 procedure vvod; var o:integer;
 begin    writeln;
  write('input FIO ');
  readln(studs[i].Stud);
  for o:=1 to m do begin
   write('input bal ');
   readln(studs[i].bal[o]);
  end;
  inc(i);
 end;

 procedure vivod;
 var e,q,w:integer;
 begin
  for q:=1 to n do begin e:=0;
   for w:=1 to m do     e:=e+studs[q].bal[w];
   writeln(studs[q].stud,e:10);
  end;
 end;

begin
 i:=1;
end.

Вызов:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

begin
 vvod;vvod;vvod;
 vivod;
 gisto;
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.