Документирования результатов учебной деятельности учреждения образования

tify">s:=s+combobox2.text+' ';

l:=l+1;

combobox2.ItemIndex:=-1;

end

else begin

append(gruppa);

label5.Caption:='Выберите оценку по '+stringgrid1.Cells[l-1,0];

stringgrid1.Cells[l-1,k]:=combobox2.text;

s:=s+combobox2.text+' ';

l:=l+1;

combobox2.ItemIndex:=-1;

writeln(gruppa);

write(gruppa,s);

combobox2.Visible:=false;

label5.Visible:=false;

button5.Visible:=false;

button4.Enabled:=true;

edit5.Enabled:=true;

edit6.Enabled:=true;

edit7.Enabled:=true;

edit8.Enabled:=true;

closefile(gruppa);

edit5.Text:='';

if k=chel then begin

combobox1.Enabled:=true;

button1.Enabled:=true;

button4.Visible:=false;

edit5.Visible:=false;

edit6.Visible:=false;

edit7.Visible:=false;

edit8.Visible:=false;

label6.Visible:=true;

button8.Enabled:=true;

for i:=0 to stringgrid1.ColCount do  begin

stringgrid1.Cells[i,0]:='';

stringgrid1.Cells[i,1]:=''

end;

stringgrid1.RowCount:=2;

end;

end;

end; 

procedure TForm1.Button1Click(Sender: TObject);

begin

button10.Visible:=false;

stringgrid1.RowCount:=2;

for i:=0 to stringgrid1.ColCount do begin

stringgrid1.Cells[i,1]:='';

stringgrid1.Cells[i,0]:='';

end;

label1.Visible:=true;

label2.Visible:=true;

label3.Visible:=true;

edit1.Visible:=true;

edit2.Visible:=true;

edit3.Visible:=true;

button2.Visible:=true;

button1.Enabled:=false;

combobox1.Enabled:=false;

button6.Enabled:=false;

label6.Visible:=false;

button8.Enabled:=false;

end; 

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

ss:='';

button6.Enabled:=true;

button11.Enabled:=false;

button10.Visible:=true;

assignfile(gruppa,ComboBox1.text+'.txt');

reset(gruppa);

readln(gruppa,s);

readln(gruppa,s);

chel:=strtoint(s);

readln(gruppa,s);

pr:=strtoint(s);

stringgrid1.ColCount:=pr+5;

stringgrid1.RowCount:=2;

stringgrid1.Cells[0,0]:='ФИО';

stringgrid1.Cells[pr+1,0]:='Ср.балл';

stringgrid1.Cells[pr+2,0]:='Поведение';

stringgrid1.Cells[pr+3,0]:='Пропуски';

stringgrid1.Cells[pr+4,0]:='Пропуски  без ув причин';

for i:=1 to pr do begin

readln(gruppa,s);

stringgrid1.Cells[i,0]:=s;

end;

for i:=1 to chel do begin

readln(gruppa,s);

stringgrid1.Cells[0,i]:=s; 

readln(gruppa,s);

stringgrid1.Cells[pr+2,i]:=s;

readln(gruppa,s);

stringgrid1.Cells[pr+3,i]:=s;

readln(gruppa,s);

stringgrid1.Cells[pr+4,i]:=s; 

readln(gruppa,s);

l:=1;

for k:=1 to length(s) do begin

if s[k]<>' ' then

ss:=ss+s[k]

else begin

stringgrid1.Cells[l,i]:=ss;

l:=l+1;

sr:=sr+strtoint(ss);

ss:='';

end;

end; 

stringgrid1.Cells[pr+1,i]:=floattostr(RoundTo(sr/pr,-2)); 

sr:=0;

for j:=0 to stringgrid1.ColCount do

stringgrid1.Cells[j,i+1]:='';

stringgrid1.RowCount:=stringgrid1.RowCount+1;

end;

closefile(gruppa);

stringgrid1.Width:=stringgrid1.ColWidths[0];

for i:=1 to stringgrid1.ColCount do

stringgrid1.Width:=stringgrid1.Width+stringgrid1.ColWidths[i];

end; 

procedure TForm1.Button6Click(Sender: TObject);

begin

stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goColSizing,goediting];

button1.Enabled:=false;

combobox1.Enabled:=false;

button7.Enabled:=true;

button8.Enabled:=false;

end; 

procedure TForm1.Button7Click(Sender: TObject);

begin

stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goColSizing];

button1.Enabled:=true;

button8.Enabled:=true;

combobox1.Enabled:=true;

button7.Enabled:=false;

button6.Enabled:=false;

reset(gruppa);

readln(gruppa,s);

closefile(gruppa);

rewrite(gruppa);

writeln(gruppa,s);

writeln(gruppa,inttostr(chel));

writeln(gruppa,inttostr(pr)); 

for i:=1 to pr do

writeln(gruppa,stringgrid1.cells[i,0]);

for i:=1 to chel do begin

s:='';

writeln(gruppa,stringgrid1.cells[0,i]);

writeln(gruppa,stringgrid1.cells[pr+2,i]);

writeln(gruppa,stringgrid1.cells[pr+3,i]);

writeln(gruppa,stringgrid1.cells[pr+4,i]);

for j:=1 to pr do

s:=s+stringgrid1.cells[j,i]+' '; 

writeln(gruppa,s);

end;

closefile(gruppa);

assignfile(gruppa,ComboBox1.text+'.txt');

reset(gruppa);

readln(gruppa,s);

readln(gruppa,s);

chel:=strtoint(s);

readln(gruppa,s);

pr:=strtoint(s);

stringgrid1.ColCount:=pr+5;

stringgrid1.RowCount:=2;

stringgrid1.Cells[0,0]:='ФИО';

stringgrid1.Cells[pr+1,0]:='Ср.балл';

stringgrid1.Cells[pr+2,0]:='Поведение';

stringgrid1.Cells[pr+3,0]:='Пропуски';

stringgrid1.Cells[pr+4,0]:='Пропуски  без ув причин';

for i:=1 to pr do begin

readln(gruppa,s);

stringgrid1.Cells[i,0]:=s;

end;

for i:=1 to chel do begin

readln(gruppa,s);

stringgrid1.Cells[0,i]:=s;

readln(gruppa,s);

stringgrid1.Cells[pr+2,i]:=s;

readln(gruppa,s);

stringgrid1.Cells[pr+3,i]:=s;

readln(gruppa,s);

stringgrid1.Cells[pr+4,i]:=s;

readln(gruppa,s);

l:=1;

for k:=1 to length(s) do begin

if s[k]<>' ' then

ss:=ss+s[k]

else begin

stringgrid1.Cells[l,i]:=ss;

l:=l+1;

sr:=sr+strtoint(ss);

ss:='';

end;

end;

stringgrid1.Cells[pr+1,i]:=floattostr(RoundTo(sr/pr,-2));

sr:=0;

for j:=0 to stringgrid1.ColCount do

stringgrid1.Cells[j,i+1]:='';

stringgrid1.RowCount:=stringgrid1.RowCount+1;

end;

closefile(gruppa); 
 
 

end; 

procedure TForm1.Button8Click(Sender: TObject);

begin

close;

end; 

procedure TForm1.Button9Click(Sender: TObject);

begin

button1.Visible:=true;

button6.Visible:=true;

button7.Visible:=true;

button8.Visible:=true;

button11.Visible:=true;

button12.Visible:=true;

combobox1.Visible:=true;

label6.Visible:=true;

stringgrid1.Visible:=true;

button9.Visible:=false;

label7.Visible:=false;

image1.Visible:=false;

end; 

procedure TForm1.Button10Click(Sender: TObject);

begin

for i:=1 to 10 do

stringgrid1.Rows[chel+i].Clear;

button11.Enabled:=true;

stringgrid1.RowCount:=stringgrid1.RowCount+1;

stringgrid1.Cells[0,chel+1]:='Руд';

stringgrid1.Cells[pr+3,chel+3]:='СОЭ:';

stringgrid1.Cells[pr+3,chel+4]:='РУД:';

for i:=1 to pr+1 do  begin

sr1:=0;

for j:=1 to chel do begin

ss:=stringgrid1.Cells[i,j];

sr1:=sr1+strtofloat(ss);

end;

stringgrid1.Cells[i,chel+1]:=floattostr(RoundTo(sr1/chel,-2));

d:=sr1/chel;

end;

n:=2;

for i:=10 downto 3 do  begin

stringgrid1.RowCount:=stringgrid1.RowCount+1;

stringgrid1.Cells[0,chel+n]:='"'+inttostr(i)+'"';

for j:=1 to pr do begin

sr1:=0;

for l:=1 to chel do begin

ss:=stringgrid1.Cells[j,l];

if strtofloat(ss)=i then

sr1:=sr1+1;

end;

stringgrid1.Cells[j,chel+n]:=floattostr(sr1);

end;

n:=n+1;

end;

sum:=0;

for i:=1 to chel do

sum:=sum+strtofloat(stringgrid1.cells[pr+3,i]);