Подсчитать средний балл каждого студента, общий средний балл по каждому предмету - Turbo Pascal - Ответ 4050727

unit Un_TABLE;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
      const Value: String);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n:byte;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  n:=0;
  with stringGrid1 do
  begin
    cells[0,0]:= 'Имя и фамилия';
    cells[1,0]:= 'Математический анализ';
    cells[2,0]:= 'Информатика';
    cells[3,0]:= 'Программирование';
    cells[4,0]:= 'Физика';
    cells[5,0]:= 'Средний балл';
    cells[0,1]:= 'Средний балл по предмету';
  end;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var j:byte;
begin
  if edit1.text=''
   then showMessage('Введите фамилию и имя!')
   else
     begin
       stringGrid1.Enabled:=true;
       n:=n+1;
       with StringGrid1 do
       begin
         RowCount:= RowCount+1;
         for j:=0 to 5 do
           begin
             cells[j,RowCount-1]:=cells[j,RowCount-2];
             cells[j,RowCount-2]:='';
           end;
         cells[0,RowCount-2]:=Edit1.Text;
       end;
       edit1.Clear;
       if Form1.Height<400
        then Form1.Height:=Form1.Height+25;
     end;
   edit1.SetFocus;
end;
 
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
var b, c:integer;
    j, k:byte;
    SumRow, SumCol: real;
begin
  with stringGrid1 do
    if (ARow<>RowCount-1) and (ACol<>ColCount-1) then
    begin
      if Value<>'' then
      begin
        val(value,b,c);
        if (c<>0) or (not (b in [1..5])) then
         cells[Acol,Arow]:='';
      end;
      SumRow:=0;
      k:=0;
      for j:=1 to 4 do
        if cells[j,Arow]<>'' then
         begin
           SumRow:=SumRow + StrToInt(cells[j,Arow]);
           inc(k);
         end;
      if k<>0 then SumRow:=SUmRow/k;
      cells[5,Arow]:=FormatFloat('##.##',SumRow);
      SumCol:=0;
      k:=0;
      for j:=1 to n do
        if cells[Acol,j]<>'' then
         begin
           SumCol:=SumCol + StrToInt(cells[Acol,j]);
           inc(k);
         end;
      if k<>0 then SumCol:=SumCol/k;
      cells[Acol,n+1]:=FormatFloat('##.##',SumCol);
    end;
 
end;
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if (Acol=StringGrid1.ColCount-1) or (Arow=StringGrid1.RowCount-1)
   then canselect:=false;
end;
 
end.