Листинги программ к лабораторной работе 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.

Приложение Г