Оператор IF, delphi - Delphi - Ответ 10574163

n:=0;
for i:=1 to 11 do
 begin
  j:=7;
  while (j<=11)and(StringGrid1.Cells[j,i])>=r) do inc(j);
  if j<=11 then
   begin
    n:=1;
    Memo1.Lines.Add(StringGrid1.Cells[1,i]+' '+StringGrid1.Cells[2,i]))
   end;
 end;
if n=0 then ShowMessage('Неуспевающих студентов нет');

procedure TForm1.Button1Click(Sender: TObject);
var
 s, x: tablica;
 r,j,i,n:integer;
 
begin
r:=3;
with s do
s.name:=StringGrid1.Cells[1,1];
s.surename:=StringGrid1.Cells[2,1];
s.srname:=StringGrid1.Cells[3,1];
s.group:=StringGrid1.Cells[4,1];
s.birthday:=StringGrid1.Cells[5,1];
s.sex:=StringGrid1.Cells[6,1];
s.math:=StringGrid1.Cells[7,1];
s.szi:=StringGrid1.Cells[8,1];
s.orgprav:=StringGrid1.Cells[9,1];
s.progr:=StringGrid1.Cells[10,1];
s.IT:=StringGrid1.Cells[11,1];
 
with x do
x.name:=StringGrid1.Cells[2,1];
x.surename:=StringGrid1.Cells[2,2];
x.srname:=StringGrid1.Cells[2,3];
x.group:=StringGrid1.Cells[2,4];
x.birthday:=StringGrid1.Cells[2,5];
x.sex:=StringGrid1.Cells[2,6];
x.math:=StringGrid1.Cells[2,7];
x.szi:=StringGrid1.Cells[2,8];
x.orgprav:=StringGrid1.Cells[2,9];
x.progr:=StringGrid1.Cells[2,10];
x.IT:=StringGrid1.Cells[2,11];
 
n:=0;
for i:=1 to 11 do
 begin
  j:=7;
  while (j<=11)and((StringGrid1.Cells[j,i])<=r)) do inc(j);
  if j<=11 then
   begin
    n:=1;
    Memo1.Lines.Add(StringGrid1.Cells[1,i]+' '+StringGrid1.Cells[2,i])
   end;
 end;
if n=0 then ShowMessage('Íåóñïåâàþùèõ ñòóäåíòîâ íåò');
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var z: integer;
begin
Stringgrid1.cells[0,0]:=('¹');
Stringgrid1.cells[1,0]:=('Èìÿ');
Stringgrid1.cells[2,0]:=('Ôàìèëèÿ');
Stringgrid1.cells[3,0]:=('Îò÷åñòâî');
Stringgrid1.cells[4,0]:=('Ãðóïïà');
Stringgrid1.cells[5,0]:=('Äåíü ðîæäåíèÿ');
Stringgrid1.cells[6,0]:=('Ïîë');
Stringgrid1.cells[7,0]:=('Ìàòåìàòèêà');
Stringgrid1.cells[8,0]:=('ÑÇÈ');
Stringgrid1.cells[9,0]:=('Îðãàíèçàöèîííîå ïðàâî');
Stringgrid1.cells[10,0]:=('Ïðîãðàììèðîâàíèå');
Stringgrid1.cells[11,0]:=('ÈÒ');
for z := 1 to 11  do
begin
  Stringgrid1.cells[0,z]:=inttostr(z);
end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.