5)Тема: « Работа с несколькими формами»
Составить ведомость с оценками по нескольким оценкам. Опpеделить по каждому пpедмету:
кол-во
"5";кол-во
"4";кол-во
"3";кол-во
"2";успеваемость
в %; качество в %;
unit Unit5;
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure B1Click(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure B3Click(Sender: TObject);
procedure B4Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure B5Click(Sender: TObject);
procedure B6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SG1.Cells[0,0]:='Математика';
SG1.Cells[0,1]:='Информатика';
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j,n,m:byte; f:textfile;k,t:string;
begin
if savedialog1.execute=true then
begin
k:=savedialog1.FileName;
assignfile(f,k);
rewrite(f);
writeln(f,SG1.rowcount);
writeln(f,SG1.colcount);
for i:=0 to SG1.rowcount-1 do
for j:=0 to SG1.colcount-1 do
writeln(f,SG1.Cells[j,i]);
closefile(f);
end;end;
procedure TForm1.Button2Click(Sender: TObject);
var j,i:byte;
begin
for j:=1 to sg1.colcount-1 do
for i:=0 to sg1.rowcount-1 do
sg1.Cells[j,i]:='';
E1.Text:='';
E2.Text:='';
E3.Text:='';
E4.Text:='';
E5.Text:='';
E6.Text:='';
E7.Text:='';
E8.Text:='';
E9.Text:='';
E10.Text:='';
E11.Text:='';
E12.Text:='';
end;
procedure TForm1.B1Click(Sender: TObject);
var i,j,k1,k2:byte;
begin
k1:=0;
k2:=0;
for j:=1 to sg1.colcount-1 do begin
if SG1.Cells[j,0]='5' then inc(k1);
E1.Text:=IntToStr(k1);
if SG1.Cells[j,1]='5' then inc(k2);
E7.Text:=IntToStr(k2);
end;
end;
procedure TForm1.B2Click(Sender: TObject);
var i,j,k1,k2:byte;
begin
k1:=0;
k2:=0;
for j:=1 to sg1.colcount-1 do begin
if SG1.Cells[j,0]='4' then inc(k1);
E2.Text:=IntToStr(k1);
if SG1.Cells[j,1]='4' then inc(k2);
E8.Text:=IntToStr(k2);
end;
end;
procedure TForm1.B3Click(Sender: TObject);
var i,j,k1,k2:byte;
begin
k1:=0;
k2:=0;
for j:=1 to sg1.colcount-1 do begin
if SG1.Cells[j,0]='3' then inc(k1);
E3.Text:=IntToStr(k1);
if SG1.Cells[j,1]='3' then inc(k2);
E9.Text:=IntToStr(k2);
end;
end;
procedure TForm1.B4Click(Sender: TObject);
var i,j,k1,k2:byte;
begin
k1:=0;
k2:=0;
for j:=1 to sg1.colcount-1 do begin
if SG1.Cells[j,0]='2' then inc(k1);
E4.Text:=IntToStr(k1);
if SG1.Cells[j,1]='2' then inc(k2);
E10.Text:=IntToStr(k2);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i,j,n,m:integer; f:textfile;k,t:string;
begin
if opendialog1.execute=true then
begin
k:=opendialog1.FileName;
assignfile(f,k);
reset(f);
readln(f,n);
SG1.Rowcount:=n;
readln(f,m);
SG1.ColCount:=m;
for i:=0 to n-1 do
for j:=0 to m-1 do begin
readln(f,k);
SG1.Cells[j,i]:=k;
end;
closefile(f);
end;
end;
procedure TForm1.B5Click(Sender: TObject);
var i,j:byte;k2,k3,sum:integer; del,pr:real;
begin
k2:=0;
for j:=1 to sg1.colcount-1 do begin
sum:=strtoint(E1.Text)+strtoint(E2.Text)+strtoint(E3.Text);
del:=sum/7;
pr:=del*100;
E5.Text:=floattostr(pr);
end;
k3:=0;
for j:=1 to sg1.colcount-1 do begin
sum:=strtoint(E7.Text)+strtoint(E8.Text)+strtoint(E9.Text);
del:=sum/7;
pr:=del*100;
E11.Text:=floattostr(pr);
end;
end;
procedure TForm1.B6Click(Sender: TObject);
var i,j:byte;k2,k3,sum:integer; del,pr:real;
begin
k2:=0;
for j:=1 to sg1.colcount-1 do begin
sum:=strtoint(E1.Text)+strtoint(E2.Text);
del:=sum/7;
pr:=del*100;
E6.Text:=floattostr(pr);
end;
k3:=0;
for j:=1 to sg1.colcount-1 do begin
sum:=strtoint(E7.Text)+strtoint(E8.Text);
del:=sum/7;
pr:=del*100;
E12.Text:=floattostr(pr);
end;
end;
end.