Приложение в

 

Листинги программ к лабораторной работе 3

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, CheckLst, ExtCtrls;

type

  TForm1 = class(TForm)

    RadioGroup1: TRadioGroup;

    CheckListBox1: TCheckListBox;

    Button1: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var   Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

var I:integer;

begin

memo1.Clear;

for I:=0 to 10 do checklistbox1.checked:=false;

if radiogroup1.ItemIndex=-1

then showmessage('Необходимо выбрать аудиторию!')else

case radiogroup1.ItemIndex of

0:begin checklistBox1.Checked[2]:=true;

        checklistBox1.Checked[3]:=true;

        checklistBox1.Checked[4]:=true;

        checklistBox1.Checked[10]:=true;

        checklistBox1.Checked[11]:=true;

        memo1.Lines.Add('Желательно установить дополнительно программы');

   end;

1:begin checklistBox1.Checked[1]:=true;

        checklistBox1.Checked[3]:=true;

        checklistBox1.Checked[5]:=true;

        checklistBox1.Checked[6]:=true;

        checklistBox1.Checked[8]:=true;

        checklistBox1.Checked[9]:=true;

        checklistBox1.Checked[10]:=true;

        memo1.Lines.Add('Эта аудитория занята весь день');

   end;

2:begin checklistBox1.Checked[2]:=true;

        checklistBox1.Checked[3]:=true;

        checklistBox1.Checked[4]:=true;

        checklistBox1.Checked[6]:=true;

        checklistBox1.Checked[8]:=true;

        checklistBox1.Checked[9]:=true;

        memo1.Lines.Add('Можно установить ТурбоС++');

   end;

3:begin checklistBox1.Checked[5]:=true;

        checklistBox1.Checked[7]:=true;

        checklistBox1.Checked[9]:=true;

        memo1.Lines.Add('В этой аудитории проводятся занятия по спецдисциплинам');

   end;

4:begin checklistBox1.Checked[1]:=true;

        checklistBox1.Checked[2]:=true;

        checklistBox1.Checked[8]:=true;

        checklistBox1.Checked[3]:=true;

        memo1.Lines.Add('Это - аудитория преподавателей');

   end;

end;

end;

end.

Приложение г

 

Листинги программ к лабораторной работе 4

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, Grids;

type

  TForm1 = class(TForm)

    DrawGrid1: TDrawGrid;

    Timer1: TTimer;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

var k,i,j:integer; area:TRect;

begin

DrawGrid1.Canvas.Brush.Color:=clBlack;

for i:=0 to 174 do

   for j:=0 to 104 do

       begin

   area:= DrawGrid1.CellRect(j,i);

   drawGrid1.Canvas.FillRect(area);

        end;

        k:=-1;

        DrawGrid1.Canvas.Brush.Color:=clWhite;

        for i:=0 to 174 do

        for j:=0 to 104 do

        begin inc(k);

        if frac(sqrt(k))=0 then

        begin

          area:= DrawGrid1.CellRect(j,i);

         drawGrid1.Canvas.FillRect(area);

         end;

         end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

 

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids;

type

  TForm1 = class(TForm)

    StringGrid1: TStringGrid;

    StringGrid2: TStringGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,j:integer;

begin

 for j:=0 to 4 do

        if (j<>1)and (j<>3) then

          for i:=0 to 4 do

            StringGrid2.Cells[j,i]:=StringGrid1.Cells[j,i];

         for i:=0 to 4 do

            begin

              StringGrid2.Cells[1,i]:=StringGrid1.Cells[3,i];

              StringGrid2.Cells[3,i]:=StringGrid1.Cells[1,i];

            end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var i,j:integer;

begin

    for i:=0 to 4 do

      for j:=0 to 4 do

      StringGrid2.Cells[j,i]:=' ';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 stringgrid2.Cols[0]:=stringgrid1.Cols[0];

 stringgrid2.Cols[1]:=stringgrid1.Cols[3];

 stringgrid2.Cols[2]:=stringgrid1.Cols[2];

 stringgrid2.Cols[3]:=stringgrid1.Cols[1];

 stringgrid2.Cols[4]:=stringgrid1.Cols[4];

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.