Разработка приложения "Базовые логические операции"

Не выбрана одна или более операций над функциями

Выдается сообщение: «Заполните все операции 3 функции» и ожидается исправления замечания

Таблица 4 Результаты тестирования программы

№	Входные данные	Ожидаемый результат	Аномалия
1	Правильное значение	нормальная работа	Нет
2	Отсутствие нужного значения	переход на пустое поле	Да
3	Отсутствие ненужного значения	нормальная работа	Нет
4	Некорректные значения	блокировка ввода	Да

Приложение Б

Входные формы приложения

Общая входная форма

Входная форма для преподавателя



Входная форма для студента

Форма для выбора действия преподавателя

Форма создания новой группы

Форма редактирования группы

Форма просмотра группы

Форма создания функций для домашнего задания

Форма для выбора действий студенту

Форма получения домашнего задания

Форма получения домашнего задания

Приложение В

Выходные формы

Форма после входа преподавателя

Форма создания новой группы

Форма редактирования группы

Форма просмотра группы

Форма входа студента

Вывод оценки студенту после проверки домашнего задания

Приложение Г

Листинг программы (Unit1).

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Mask, ExtCtrls, jpeg;

type

TForm1 = class(TForm)

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

Button2: TButton;

ComboBox1: TComboBox;

MaskEdit1: TMaskEdit;

Panel1: TPanel;

Panel2: TPanel;

Label4: TLabel;

Label5: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Image1: TImage;

procedure Button2Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

var

s:string;

sl: TStringList;

i: integer;

b: boolean;

begin

s:=ComboBox1.Items[ComboBox1.ItemIndex];

if s = 'Преподаватель' then

begin

if (edit1.Text='') or (MaskEdit1.text='') then

ShowMessage('Введите Фамилию и/или Пароль!')

else

begin

sl := TStringList.Create;

sl.LoadFromFile( 'spiski\prep.txt' );

for i := 0 to sl.Count-1 do

if Pos( Edit1.Text, sl[i] ) > 0 then

if Pos( MaskEdit1.Text, sl[i+1] ) > 0 then

begin

form6.Show;

form6.label1.caption:=Edit1.Text;

end

else

ShowMessage('Неверно введен логин и/или пароль!!!');

sl.Free; end; end;

if s = 'Студент' then

begin

if (edit2.Text='') or (edit3.text='') then

ShowMessage('Введите Фамилию и/или Группу!')

else

begin

if FileExists('spiski\'+Edit3.Text+'.txt') then

begin

b:=false;

sl := TStringList.Create;

sl.LoadFromFile( 'spiski\'+Edit3.Text+'.txt' );

for i := 0 to sl.Count-1 do

if Pos( Edit2.Text, sl[i] ) > 0 then

begin

form4.label1.caption:=Edit2.Text;

form4.label2.caption:=Edit3.Text;

form5.Show;

b:=true;

break;

end;

if not b then

ShowMessage('Неверно введена фамилия и/или группа');

sl.Free;

end

else

Begin

ShowMessage('Неправильно введен № группы!');

Edit3.Text:='';

end;

end;

end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

var

s:string;

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

MaskEdit1.Text:='';

s:=ComboBox1.Items[ComboBox1.ItemIndex];

if s = 'Преподаватель' then

begin

Panel1.Visible:=true;

Panel2.Visible:=false;

end;

if s = 'Студент' then

begin

Panel2.Visible:=true;

Panel1.Visible:=false;

end;

end;

end.

Листинг программы (Unit2).

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, ComObj, WordXP, OleServer;

type

TForm2 = class(TForm)

GroupBox1: TGroupBox;

Label7: TLabel;

Label8: TLabel;

ChB11: TCheckBox;

CoB11: TComboBox;

Button2: TButton;

CoB12: TComboBox;

ChB12: TCheckBox;

Label9: TLabel;

ChB13: TCheckBox;

CoB13: TComboBox;

Label10: TLabel;

ChB14: TCheckBox;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

ChB21: TCheckBox;

CoB21: TComboBox;

Button1: TButton;

CoB22: TComboBox;

ChB22: TCheckBox;

Label3: TLabel;

ChB23: TCheckBox;

CoB23: TComboBox;

Label4: TLabel;

ChB24: TCheckBox;

Label6: TLabel;

GroupBox3: TGroupBox;

Label13: TLabel;

Label14: TLabel;

ChB31: TCheckBox;

CoB31: TComboBox;

Button3: TButton;

CoB32: TComboBox;

ChB32: TCheckBox;

Label15: TLabel;

ChB33: TCheckBox;

CoB33: TComboBox;

Label16: TLabel;

ChB34: TCheckBox;

GroupBox4: TGroupBox;

Label5: TLabel;

Label11: TLabel;

Label12: TLabel;

Label17: TLabel;

ChB41: TCheckBox;

CoB41: TComboBox;

Button4: TButton;

CoB42: TComboBox;

ChB42: TCheckBox;

ChB43: TCheckBox;

CoB43: TComboBox;

ChB44: TCheckBox;

GroupBox5: TGroupBox;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

ChB51: TCheckBox;

CoB51: TComboBox;

Button5: TButton;

CoB52: TComboBox;

ChB52: TCheckBox;

ChB53: TCheckBox;

CoB53: TComboBox;

ChB54: TCheckBox;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Label22: TLabel;

Label23: TLabel;

Label26: TLabel;

Label24: TLabel;

Label25: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

Label42: TLabel;

Label43: TLabel;

Label44: TLabel;

Label45: TLabel;

Button6: TButton;

WordApplication1: TWordApplication;

Button7: TButton;

Memo1: TMemo;

Memo2: TMemo;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);

var

s1,s2,s3,y1,y2,y3: string;

x1l1,x2l1,x3l1,x4l1:string;

x1l2,x2l2,x3l2,x4l2:string;

x1l3,x2l3,x3l3,x4l3:string;

x1l4,x2l4,x3l4,x4l4:string;

begin

Label23.Caption:='';

Label24.Caption:='';

Label25.Caption:='';

Label26.Caption:='';

if (CoB11.Text='') or (CoB12.Text='') or (CoB13.Text='') then

ShowMessage('Заполните все операции 1 функции!!!')

else

begin

begin

if Chb11.Checked = true then

begin

x1l1:='not x1 ';

x1l2:='x1 ';

x1l3:='not x1 ';

x1l4:='not x1 ';

end

else

x1l4:='x1 ';

x1l1:='x1 ';

x1l3:='x1 ';

x1l2:='not x1 ';

end;

Begin

s1:=Cob11.Items[Cob11.ItemIndex];

if s1 = 'Конъюнкция (*)' then

y1:='and ';

if s1 = 'Дизъюнкция (+)' then

y1:='or ';

if s1 = 'Исключающее (ИЛИ)' then

y1:='xor ';

end;

begin

if Chb12.Checked = true then

begin

x2l4:='not x2 ';

x2l1:='not x2 ';

x2l2:='x2 ';

x2l3:='x2 ';

end

else

x2l4:='x2 ';

x2l2:='not x2 ';

x2l1:='x2 ';

x2l3:='not x2 ';

end;

Begin

s2:=Cob12.Items[Cob12.ItemIndex];

if s2 = 'Конъюнкция (*)' then

y2:='and ';

if s2 = 'Дизъюнкция (+)' then

y2:='or ';

if s2 = 'Исключающее (ИЛИ)' then

y2:='xor ';

end;

begin

if Chb13.Checked = true then

begin

x3l4:='not x3 ';

x3l2:='not x3 ';

x3l1:='x3 ';

x3l3:='not x3 ';

end

else

x3l4:='x3 ';

x3l2:='x3 ';

x3l1:='not x3 ';

x3l3:='not x3 ';

end;

Begin

s3:=Cob13.Items[Cob13.ItemIndex];

if s3 = 'Конъюнкция (*)' then

y3:='and ';

if s3 = 'Дизъюнкция (+)' then

y3:='or ';

if s3 = 'Исключающее (ИЛИ)' then

y3:='xor ';

end;

begin

if Chb14.Checked = true then

begin

x4l4:='not x4 ';

x4l1:='not x4 ';

x4l2:='x4 ';

x4l3:='not x4 ';

end

else

x4l4:='x4 ';

x4l1:='x4 ';

x4l2:='not x4 ';

x4l3:='x4 ';

end;

begin

Label23.Caption:=x1l4+y1+x2l4+y2+x3l4+y3+x4l4;

Label24.Caption:=x1l1+y2+x2l1+y3+x3l1+y1+x3l1;

Label25.Caption:=x1l2+y3+x3l2+y2+x3l2;

Label26.Caption:=x1l3+y1+x2l3+y2+x3l3+y3+x4l3+y1+x1l3;

end; end;

end;

procedure TForm2.Button1Click(Sender: TObject);

var

s1,s2,s3,y1,y2,y3: string;

x1l1,x2l1,x3l1,x4l1:string;

x1l2,x2l2,x3l2,x4l2:string;

x1l3,x2l3,x3l3,x4l3:string;

x1l4,x2l4,x3l4,x4l4:string;

begin

Label30.Caption:='';

Label31.Caption:='';

Label32.Caption:='';

Label33.Caption:='';

if (CoB21.Text='') or (CoB22.Text='') or (CoB23.Text='') then

ShowMessage('Заполните все операции 2 функции!!!')

else

begin

begin

if Chb21.Checked = true then

begin

x1l1:='not x1 ';

x1l2:='x1 ';

x1l3:='not x1 ';

x1l4:='not x1 ';

end

else

x1l4:='x1 ';

x1l1:='x1 ';

x1l3:='x1 ';

x1l2:='not x1 ';

end;

Begin

s1:=Cob21.Items[Cob21.ItemIndex];

if s1 = 'Конъюнкция (*)' then

y1:='and ';

if s1 = 'Дизъюнкция (+)' then

y1:='or ';

if s1 = 'Исключающее (ИЛИ)' then

y1:='xor ';

end;

begin

if Chb22.Checked = true then

begin

x2l4:='not x2 ';

x2l1:='not x2 ';

x2l2:='x2 ';

x2l3:='x2 ';

end

else

x2l4:='x2 ';

x2l2:='not x2 ';

x2l1:='x2 ';

x2l3:='not x2 ';

end;

Begin

s2:=Cob22.Items[Cob22.ItemIndex];

if s2 = 'Конъюнкция (*)' then

y2:='and ';

if s2 = 'Дизъюнкция (+)' then

y2:='or ';

if s2 = 'Исключающее (ИЛИ)' then

y2:='xor ';

end;

begin

if Chb23.Checked = true then

begin

x3l4:='not x3 ';

x3l2:='not x3 ';

x3l1:='x3 ';

x3l3:='not x3 ';

end

else

x3l4:='x3 ';

x3l2:='x3 ';

x3l1:='not x3 ';

x3l3:='not x3 ';

end;

Begin

s3:=Cob23.Items[Cob23.ItemIndex];

if s3 = 'Конъюнкция (*)' then

y3:='and ';

if s3 = 'Дизъюнкция (+)' then

y3:='or ';

if s3 = 'Исключающее (ИЛИ)' then

y3:='xor ';

end;

begin

if Chb24.Checked = true then

begin

x4l4:='not x4 ';

x4l1:='not x4 ';

x4l2:='x4 ';

x4l3:='not x4 ';

end

else

x4l4:='x4 ';

x4l1:='x4 ';

x4l2:='not x4 ';

x4l3:='x4 ';

end;

begin

Label30.Caption:=x1l4+y1+x2l4+y2+x3l4+y3+x4l4;

Label32.Caption:=x1l1+y2+x2l1+y3+x3l1+y1+x3l1;

Label33.Caption:=x1l2+y3+x3l2+y2+x3l2;

Label31.Caption:=x1l3+y1+x2l3+y2+x3l3+y3+x4l3+y1+x1l3;

end;

end;

end;

procedure TForm2.Button3Click(Sender: TObject);

var

s1,s2,s3,y1,y2,y3: string;

x1l1,x2l1,x3l1,x4l1:string;

x1l2,x2l2,x3l2,x4l2:string;

x1l3,x2l3,x3l3,x4l3:string;

x1l4,x2l4,x3l4,x4l4:string;

begin

Label34.Caption:='';

Label35.Caption:='';

Label36.Caption:='';

Label37.Caption:='';

if (CoB31.Text='') or (CoB32.Text='') or (CoB33.Text='') then

ShowMessage('Заполните все операции 3 функции!!!')

else

begin

begin

if Chb31.Checked = true then

begin

x1l1:='not x1 ';

x1l2:='x1 ';

x1l3:='not x1 ';

x1l4:='not x1 ';

end

else

x1l4:='x1 ';

x1l1:='x1 ';

x1l3:='x1 ';

x1l2:='not x1 ';

end;

Begin

s1:=Cob31.Items[Cob31.ItemIndex];

if s1 = 'Конъюнкция (*)' then

y1:='and ';

if s1 = 'Дизъюнкция (+)' then

y1:='or ';

if s1 = 'Исключающее (ИЛИ)' then

y1:='xor ';

end;

begin

if Chb32.Checked = true then

begin

x2l4:='not x2 ';

x2l1:='not x2 ';

x2l2:='x2 ';

x2l3:='x2 ';

end

else

x2l4:='x2 ';

x2l2:='not x2 ';

x2l1:='x2 ';

x2l3:='not x2 ';

end;

Begin

s2:=Cob32.Items[Cob32.ItemIndex];

if s2 = 'Конъюнкция (*)' then

y2:='and ';

if s2 = 'Дизъюнкция (+)' then

y2:='or ';

if s2 = 'Исключающее (ИЛИ)' then

y2:='xor ';

end;

begin

if Chb33.Checked = true then

begin

x3l4:='not x3 ';

x3l2:='not x3 ';

x3l1:='x3 ';

x3l3:='not x3 ';

end

else

x3l4:='x3 ';

x3l2:='x3 ';

x3l1:='not x3 ';

x3l3:='not x3 ';

end;

Begin

s3:=Cob33.Items[Cob33.ItemIndex];

if s3 = 'Конъюнкция (*)' then

y3:='and ';

if s3 = 'Дизъюнкция (+)' then

y3:='or ';

if s3 = 'Исключающее (ИЛИ)' then

y3:='xor ';

end;

begin

if Chb34.Checked = true then

begin

x4l4:='not x4 ';

x4l1:='not x4 ';

x4l2:='x4 ';

x4l3:='not x4 ';

end

else

x4l4:='x4 ';

x4l1:='x4 ';

x4l2:='not x4 ';

x4l3:='x4 ';

end;

begin

Label34.Caption:=x1l4+y1+x2l4+y2+x3l4+y3+x4l4;

Label37.Caption:=x1l1+y2+x2l1+y3+x3l1+y1+x3l1;

Label35.Caption:=x1l2+y3+x3l2+y2+x3l2;

Label36.Caption:=x1l3+y1+x2l3+y2+x3l3+y3+x4l3+y1+x1l3;

end;

end;

end;

procedure TForm2.Button4Click(Sender: TObject);

var

s1,s2,s3,y1,y2,y3: string;

x1l1,x2l1,x3l1,x4l1:string;

x1l2,x2l2,x3l2,x4l2:string;

x1l3,x2l3,x3l3,x4l3:string;

x1l4,x2l4,x3l4,x4l4:string;

begin

Label38.Caption:='';

Label39.Caption:='';

Label40.Caption:='';

Label41.Caption:='';

if (CoB41.Text='') or (CoB42.Text='') or (CoB43.Text='') then

ShowMessage('Заполните все операции 4 функции!!!')

else

begin

begin

if Chb41.Checked = true then

begin

x1l1:='not x1 ';

x1l2:='x1 ';

x1l3:='not x1 ';

x1l4:='not x1 ';

end

else

x1l4:='x1 ';

x1l1:='x1 ';

x1l3:='x1 ';

x1l2:='not x1 ';

end;

Begin

s1:=Cob41.Items[Cob41.ItemIndex];

if s1 = 'Конъюнкция (*)' then

y1:='and ';

if s1 = 'Дизъюнкция (+)' then

y1:='or ';

if s1 = 'Исключающее (ИЛИ)' then

y1:='xor ';

end;

begin

if Chb42.Checked = true then

begin

x2l4:='not x2 ';

x2l1:='not x2 ';

x2l2:='x2 ';

x2l3:='x2 ';

end

else

x2l4:='x2 ';

x2l2:='not x2 ';

x2l1:='x2 ';

x2l3:='not x2 ';

end;

Begin

s2:=Cob42.Items[Cob42.ItemIndex];

if s2 = 'Конъюнкция (*)' then

y2:='and ';

if s2 = 'Дизъюнкция (+)' then

y2:='or ';

if s2 = 'Исключающее (ИЛИ)' then

y2:='xor ';

end;

begin

if Chb43.Checked = true then

begin

x3l4:='not x3 ';

x3l2:='not x3 ';

x3l1:='x3 ';

x3l3:='not x3 ';

end

else

x3l4:='x3 ';

x3l2:='x3 ';

x3l1:='not x3 ';

x3l3:='not x3 ';

end;

Begin

s3:=Cob43.Items[Cob43.ItemIndex];

if s3 = 'Конъюнкция (*)' then

y3:='and ';

if s3 = 'Дизъюнкция (+)' then

y3:='or ';

if s3 = 'Исключающее (ИЛИ)' then

y3:='xor ';

end;

begin

if Chb44.Checked = true then

begin

x4l4:='not x4 ';

x4l1:='not x4 ';

x4l2:='x4 ';

x4l3:='not x4 ';

end

else

x4l4:='x4 ';

x4l1:='x4 ';

x4l2:='not x4 ';

x4l3:='x4 ';

end;

begin

Label38.Caption:=x1l4+y1+x2l4+y2+x3l4+y3+x4l4;

Label39.Caption:=x1l1+y2+x2l1+y3+x3l1+y1+x3l1;

Label40.Caption:=x1l2+y3+x3l2+y2+x3l2;

Label41.Caption:=x1l3+y1+x2l3+y2+x3l3+y3+x4l3+y1+x1l3;

end;

end;

end;

procedure TForm2.Button5Click(Sender: TObject);

var

s1,s2,s3,y1,y2,y3: string;

x1l1,x2l1,x3l1,x4l1:string;

x1l2,x2l2,x3l2,x4l2:string;

x1l3,x2l3,x3l3,x4l3:string;

x1l4,x2l4,x3l4,x4l4:string;

begin

Label42.Caption:='';

Label43.Caption:='';

Label44.Caption:='';

Label45.Caption:='';

if (CoB51.Text='') or (CoB52.Text='') or (CoB53.Text='') then

ShowMessage('Заполните все операции 5 функции!!!')

else

begin

begin

if Chb51.Checked = true then

begin

x1l1:='not x1 ';

x1l2:='x1 ';

x1l3:='not x1 ';

x1l4:='not x1 ';

end

else

x1l4:='x1 ';

x1l1:='x1 ';

x1l3:='x1 ';

x1l2:='not x1 ';

end;

Begin

s1:=Cob51.Items[Cob51.ItemIndex];

if s1 = 'Конъюнкция (*)' then

y1:='and ';

if s1 = 'Дизъюнкция (+)' then

y1:='or ';

if s1 = 'Исключающее (ИЛИ)' then

y1:='xor ';

end;

begin

if Chb52.Checked = true then

begin

x2l4:='not x2 ';

x2l1:='not x2 ';

x2l2:='x2 ';

x2l3:='x2 ';

end

else

x2l4:='x2 ';

x2l2:='not x2 ';

x2l1:='x2 ';

x2l3:='not x2 ';

end;

Begin

s2:=Cob52.Items[Cob52.ItemIndex];

if s2 = 'Конъюнкция (*)' then

y2:='and ';

if s2 = 'Дизъюнкция (+)' then

y2:='or ';

if s2 = 'Исключающее (ИЛИ)' then

y2:='xor ';

end;

begin

if Chb53.Checked = true then

begin

x3l4:='not x3 ';

x3l2:='not x3 ';

x3l1:='x3 ';

x3l3:='not x3 ';

end

else

x3l4:='x3 ';

x3l2:='x3 ';

x3l1:='not x3 ';

x3l3:='not x3 ';

end;

Begin

s3:=Cob53.Items[Cob53.ItemIndex];

if s3 = 'Конъюнкция (*)' then

y3:='and ';

if s3 = 'Дизъюнкция (+)' then

y3:='or ';

if s3 = 'Исключающее (ИЛИ)' then

y3:='xor ';

end;

begin

if Chb54.Checked = true then

begin

x4l4:='not x4 ';

x4l1:='not x4 ';

x4l2:='x4 ';

x4l3:='not x4 ';

end

else

x4l4:='x4 ';

x4l1:='x4 ';

x4l2:='not x4 ';

x4l3:='x4 ';

end;

begin

Label42.Caption:=x1l4+y1+x2l4+y2+x3l4+y3+x4l4;

Label45.Caption:=x1l1+y2+x2l1+y3+x3l1+y1+x3l1;

Label43.Caption:=x1l2+y3+x3l2+y2+x3l2;

Label44.Caption:=x1l3+y1+x2l3+y2+x3l3+y3+x4l3+y1+x1l3;

end;

end;

end;

procedure TForm2.Button6Click(Sender: TObject);

var

MSWord: Variant;

begin

if (Label23.Caption='') or (Label30.Caption='') or (Label34.Caption='') or (Label38.Caption='') or( Label42.Caption='') then

showmessage('Заполните все функции!')

else

begin

try

MSWord:=CreateOleObject('Word.Application');

MSWord.Visible:=true;

except

Exception.Create('Error');

end;

MSWord.Documents.Add;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

MSWord.Selection.TypeText(Memo1.Text);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

MSWord.Selection.TypeText(Memo2.Text);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Домашнее задание');

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Вариант 1');

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label23.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label30.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label34.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label38.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label42.Caption);

MSWord.Selection.InsertNewPage;

//.............................

MSWord.Selection.Font.Size := 10;

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

MSWord.Selection.TypeText(Memo1.Text);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

MSWord.Selection.TypeText(Memo2.Text);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Домашнее задание');

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Вариант 2');

MSWord.Selection.Font.Bold := false;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(Label24.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label31.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label35.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label39.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label43.Caption);

MSWord.Selection.InsertNewPage;

//.............................

MSWord.Selection.Font.Size := 10;

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

MSWord.Selection.TypeText(Memo1.Text);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

MSWord.Selection.TypeText(Memo2.Text);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Домашнее задание');

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Вариант 3');

MSWord.Selection.Font.Bold := false;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(Label25.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label32.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label36.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label40.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label44.Caption);

MSWord.Selection.InsertNewPage;

//.............................

MSWord.Selection.Font.Size := 10;

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

MSWord.Selection.TypeText(Memo1.Text);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

MSWord.Selection.TypeText(Memo2.Text);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Домашнее задание');

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Вариант 4');

MSWord.Selection.Font.Bold := false;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(Label26.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label33.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label37.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label41.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Label45.Caption);

MSWord.ActiveDocument.SaveAs('C:\Lab_rab.doc');

end;

end;

procedure TForm2.Button7Click(Sender: TObject);

var

f1,f2,f3,f4: Textfile;

begin

if (Label23.Caption='') or (Label30.Caption='') or (Label34.Caption='') or (Label38.Caption='') or( Label42.Caption='') then

showmessage('Заполните все функции!')

else

begin

AssignFile(f1, 'lab_rab\var1.txt');

AssignFile(f2, 'lab_rab\var2.txt');

AssignFile(f3, 'lab_rab\var3.txt');

AssignFile(f4, 'lab_rab\var4.txt');

ReWrite(f1);

ReWrite(f2);

ReWrite(f3);

ReWrite(f4);

Writeln(f1,Label23.Caption);

Writeln(f1,Label30.Caption);

Writeln(f1,Label34.Caption);

Writeln(f1,Label38.Caption);

Writeln(f1,Label42.Caption);

////////////////////////////

Writeln(f2,Label24.Caption);

Writeln(f2,Label31.Caption);

Writeln(f2,Label35.Caption);

Writeln(f2,Label39.Caption);

Writeln(f2,Label43.Caption);

////////////////////////////

Writeln(f3,Label25.Caption);

Writeln(f3,Label32.Caption);

Writeln(f3,Label36.Caption);

Writeln(f3,Label30.Caption);

Writeln(f3,Label44.Caption);

///////////////////////////

Writeln(f4,Label26.Caption);

Writeln(f4,Label33.Caption);

Writeln(f4,Label37.Caption);

Writeln(f4,Label41.Caption);

Writeln(f4,Label45.Caption);

Closefile(f1);

Closefile(f2);

Closefile(f3);

Closefile(f4);

end;

end;

end.

Листинг программы (Unit3).

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, XPMan, Menus;

type

TForm3 = class(TForm)

XPManifest1: TXPManifest;

Panel1: TPanel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Memo1: TMemo;

Memo2: TMemo;

Button2: TButton;

Label1: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4;

{$R *.dfm}

function prov (s,s1:string):integer;

var

i:integer;

begin

result:=0;

for i:=1 to 16 do

begin

if s[i]<>s1[i] then

result:=result+1;

end;

end;

function element( var s:string):integer;

var

l,n:integer;

begin

l:=length(s);

if s[1]='x' then

begin

n:=StrToInt(s[2]);

result:=2*n-1;

s:=copy(s,4,l-3);

end

else

begin

n:=StrToInt(s[6]);

result:=2*n;

s:=copy(s,8,l-7);

end;

end;

function oper(var s:string):integer;

var

l:integer;

begin

l:=length(s);

if s[1]='a' then

begin

result:=1;

s:=copy(s,5,l-4);

end

else

if s[1]='o' then

begin

result:=2;

s:=copy(s,4,l-3);

end

else

begin

result:=3;

s:=copy(s,5,l-4);

end;

end;

function Bin(x: Integer): string;

const t:array[0..1] of char = ('0','1');

var res:string;

d:0..1;

begin

res:='';

while (x<>0) do

begin

d:=x mod 2 ;

res:=t[d]+res;

x:=x div 2 ;

end;

Bin:=res;

end;

procedure TForm3.FormCreate(Sender: TObject);

var

a,i,j:integer;

s,s1,s2,s3,s4,s5:string;

f: TextFile; // файл

fName: String[80]; // имя файла

buf: string[80]; // буфер для чтения из файла

x1,x2,x3,x4:byte;

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

for i:= 0 to 15 do

begin

Memo1.Lines.Add(Bin(i));

end;

for i:= 0 to 15 do

for j:= 0 to 15 do

begin

if length(Memo1.Lines[i])<4 then

Memo1.Lines[i]:='0'+Memo1.Lines[i];

end;

s:=Memo1.Lines[13] ;

//ShowMessage(s[3]);

begin

AssignFile(f, 'lab_rab\var1.txt');

Reset(f); // открыть для чтения

// чтение из файла

while not EOF(f) do

begin

readln(f, buf); // прочитать строку из файла

Memo2.Lines.Add(buf); // добавить строку в поле Memo1

end; // закрыть файл

CloseFile(f);

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

var

sl: TStringList;

s,s1,s2:string;

x1,x2,x3,x4,i,res,j,k,o:integer;

a:array [1..5] of integer;

begin

if (length(Edit1.text)<>16)or (length(Edit2.text)<>16)or(length(Edit3.text)<>16)or(length(Edit4.text)<>16)or(length(Edit5.text)<>16)then

begin

Showmessage('длина ответа должна рaвняться 16 символам!');

exit;

end;

for i:=1 to 16 do

if not(Edit1.Text[i] in ['0','1']) or not(Edit2.Text[i] in ['0','1']) or not(Edit3.Text[i] in ['0','1']) or not(Edit4.Text[i] in ['0','1']) or not(Edit5.Text[i] in ['0','1']) then

begin

ShowMessage('Вводятся только "0" и "1"!');

Exit;

end;

s1:=Memo2.Lines[0] ;

Label2.Caption:='';

for i:= 0 to 15 do

begin

s2:=s1;

s:=Memo1.Lines[i] ;

x1:=StrToInt(s[1]);

x2:=StrToInt(s[2]);

x3:=StrToInt(s[3]);

x4:=StrToInt(s[4]);

case element(s2) of

1: res:=x1;

2: res:=1-x1;

3: res:=x2;

4: res:=1-x2;

5: res:=x3;

6: res:=1-x3;

7: res:=x4;

8: res:=1-x4;

end;

while length(s2)>0 do

begin

case oper(s2) of

1:

case element(s2) of

1: res:=res and x1;

2: res:=res and (1-x1);

3: res:=res and x2;

4: res:=res and (1-x2);

5: res:=res and x3;

6: res:=res and (1-x3);

7: res:=res and x4;

8: res:=res and (1-x4);

end;

2:

case element(s2) of

1: res:=res or x1;

2: res:=res or (1-x1);

3: res:=res or x2;

4: res:=res or (1-x2);

5: res:=res or x3;

6: res:=res or (1-x3);

7: res:=res or x4;

8: res:=res or (1-x4);

end;

3:

case element(s2) of

1: res:=res xor x1;

2: res:=res xor (1-x1);

3: res:=res xor x2;

4: res:=res xor (1-x2);

5: res:=res xor x3;

6: res:=res xor (1-x3);

7: res:=res xor x4;

8: res:=res xor (1-x4);

end;

end;

end;

label2.Caption:=Label2.Caption+IntToStr(res);

end;

// вторая функция

s1:=Memo2.Lines[1] ;

Label3.Caption:='';

for i:= 0 to 15 do

begin

s2:=s1;

s:=Memo1.Lines[i] ;

x1:=StrToInt(s[1]);

x2:=StrToInt(s[2]);

x3:=StrToInt(s[3]);

x4:=StrToInt(s[4]);

case element(s2) of

1: res:=x1;

2: res:=1-x1;

3: res:=x2;

4: res:=1-x2;

5: res:=x3;

6: res:=1-x3;

7: res:=x4;

8: res:=1-x4;

end;

while length(s2)>0 do

begin

case oper(s2) of

1:

case element(s2) of

1: res:=res and x1;

2: res:=res and (1-x1);

3: res:=res and x2;

4: res:=res and (1-x2);

5: res:=res and x3;

6: res:=res and (1-x3);

7: res:=res and x4;

8: res:=res and (1-x4);

end;

2:

case element(s2) of

1: res:=res or x1;

2: res:=res or (1-x1);

3: res:=res or x2;

4: res:=res or (1-x2);

5: res:=res or x3;

6: res:=res or (1-x3);

7: res:=res or x4;

8: res:=res or (1-x4);

end;

3:

case element(s2) of

1: res:=res xor x1;

2: res:=res xor (1-x1);

3: res:=res xor x2;

4: res:=res xor (1-x2);

5: res:=res xor x3;

6: res:=res xor (1-x3);

7: res:=res xor x4;

8: res:=res xor (1-x4);

end;

end;

end;

label3.Caption:=Label3.Caption+IntToStr(res);

end;

// третья функция

s1:=Memo2.Lines[2] ;

Label4.Caption:='';

for i:= 0 to 15 do

begin

s2:=s1;

s:=Memo1.Lines[i] ;

x1:=StrToInt(s[1]);

x2:=StrToInt(s[2]);

x3:=StrToInt(s[3]);

x4:=StrToInt(s[4]);

case element(s2) of

1: res:=x1;

2: res:=1-x1;

3: res:=x2;

4: res:=1-x2;

5: res:=x3;

6: res:=1-x3;

7: res:=x4;

8: res:=1-x4;

end;

while length(s2)>0 do

begin

case oper(s2) of

1:

case element(s2) of

1: res:=res and x1;

2: res:=res and (1-x1);

3: res:=res and x2;

4: res:=res and (1-x2);

5: res:=res and x3;

6: res:=res and (1-x3);

7: res:=res and x4;

8: res:=res and (1-x4);

end;

2:

case element(s2) of

1: res:=res or x1;

2: res:=res or (1-x1);

3: res:=res or x2;

4: res:=res or (1-x2);

5: res:=res or x3;

6: res:=res or (1-x3);

7: res:=res or x4;

8: res:=res or (1-x4);

end;

3:

case element(s2) of

1: res:=res xor x1;

2: res:=res xor (1-x1);

3: res:=res xor x2;

4: res:=res xor (1-x2);

5: res:=res xor x3;

6: res:=res xor (1-x3);

7: res:=res xor x4;

8: res:=res xor (1-x4);

end;

end;

end;

label4.Caption:=Label4.Caption+IntToStr(res);

end;

// четвертая функция

s1:=Memo2.Lines[3] ;

Label5.Caption:='';

for i:= 0 to 15 do

begin

s2:=s1;

s:=Memo1.Lines[i] ;

x1:=StrToInt(s[1]);

x2:=StrToInt(s[2]);

x3:=StrToInt(s[3]);

x4:=StrToInt(s[4]);

case element(s2) of

1: res:=x1;

2: res:=1-x1;

3: res:=x2;

4: res:=1-x2;

5: res:=x3;

6: res:=1-x3;

7: res:=x4;

8: res:=1-x4;

end;

while length(s2)>0 do

begin

case oper(s2) of

1:

case element(s2) of

1: res:=res and x1;

2: res:=res and (1-x1);

3: res:=res and x2;

4: res:=res and (1-x2);

5: res:=res and x3;

6: res:=res and (1-x3);

7: res:=res and x4;

8: res:=res and (1-x4);

end;

2:

case element(s2) of

1: res:=res or x1;

2: res:=res or (1-x1);

3: res:=res or x2;

4: res:=res or (1-x2);

5: res:=res or x3;

6: res:=res or (1-x3);

7: res:=res or x4;

8: res:=res or (1-x4);

end;

3:

case element(s2) of

1: res:=res xor x1;

2: res:=res xor (1-x1);

3: res:=res xor x2;

4: res:=res xor (1-x2);

5: res:=res xor x3;

6: res:=res xor (1-x3);

7: res:=res xor x4;

8: res:=res xor (1-x4);

end;

end;

end;

label5.Caption:=Label5.Caption+IntToStr(res);

end;

// пятая функция

s1:=Memo2.Lines[4] ;

Label6.Caption:='';

for i:= 0 to 15 do

begin

s2:=s1;

s:=Memo1.Lines[i] ;

x1:=StrToInt(s[1]);

x2:=StrToInt(s[2]);

x3:=StrToInt(s[3]);

x4:=StrToInt(s[4]);

case element(s2) of

1: res:=x1;

2: res:=1-x1;

3: res:=x2;

4: res:=1-x2;

5: res:=x3;

6: res:=1-x3;

7: res:=x4;

8: res:=1-x4;

end;

while length(s2)>0 do

begin

case oper(s2) of

1:

case element(s2) of

1: res:=res and x1;

2: res:=res and (1-x1);

3: res:=res and x2;

4: res:=res and (1-x2);

5: res:=res and x3;

6: res:=res and (1-x3);

7: res:=res and x4;

8: res:=res and (1-x4);

end;

2:

case element(s2) of

1: res:=res or x1;

2: res:=res or (1-x1);

3: res:=res or x2;

4: res:=res or (1-x2);

5: res:=res or x3;

6: res:=res or (1-x3);

7: res:=res or x4;

8: res:=res or (1-x4);

end;

3:

case element(s2) of

1: res:=res xor x1;

2: res:=res xor (1-x1);

3: res:=res xor x2;

4: res:=res xor (1-x2);

5: res:=res xor x3;

6: res:=res xor (1-x3);

7: res:=res xor x4;

8: res:=res xor (1-x4);

end;

end;

end;

label6.Caption:=Label6.Caption+IntToStr(res);

end;

k:=prov(Edit1.Text,Label2.Caption);

if k=0 then

a[1]:=5

else

if k<=2 then

a[1]:=4

else

if k<=7 then

a[1]:=3

else

a[1]:=2;

k:=prov(Edit2.Text,Label3.Caption);

if k=0 then

a[2]:=5

else

if k<=2 then

a[2]:=4

else

if k<=7 then

a[2]:=3

else

a[2]:=2;

k:=prov(Edit3.Text,Label4.Caption);

if k=0 then

a[3]:=5

else

if k<=2 then

a[3]:=4

else

if k<=7 then

a[3]:=3

else

a[3]:=2;

k:=prov(Edit4.Text,Label5.Caption);

if k=0 then

a[4]:=5

else

if k<=2 then

a[4]:=4

else

if k<=7 then

a[4]:=3

else

a[4]:=2;

k:=prov(Edit5.Text,Label6.Caption);

if k=0 then

a[5]:=5

else

if k<=2 then

a[5]:=4

else

if k<=7 then

a[5]:=3

else

a[5]:=2;

o:=(a[1]+a[2]+a[3]+a[4]+a[5])div 5;

Showmessage('Оценка '+IntToStr(o));

sl := TStringList.Create;

sl.LoadFromFile( 'spiski\'+form4.label2.caption+'.txt' );

for i := 0 to sl.Count-1 do

if Pos( form4.label1.Caption, sl[i] ) > 0 then

begin

sl[i+1]:=sl[i+1]+' Оценка '+IntToStr(o);

sl.SaveToFile('spiski\'+form4.label2.Caption+'.txt');

sl.Free;

Form3.Close;

break;

end;

end;

end.

Листинг программы (Unit4).

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, OleServer, WordXP;

type

TForm4 = class(TForm)

Label1: TLabel;

Label2: TLabel;

ComboBox1: TComboBox;

Memo1: TMemo;

Button1: TButton;

WordApplication1: TWordApplication;

Memo2: TMemo;

Memo3: TMemo;

procedure ComboBox1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses ComObj;

{$R *.dfm}

procedure TForm4.ComboBox1Change(Sender: TObject);

var

s:string;

f: TextFile; // файл

buf: string[80]; // буфер для чтения из файла

begin

s:=ComboBox1.Items[ComboBox1.ItemIndex];

if s = 'Вариант 1' then

begin

Memo1.Clear;

AssignFile(f, 'lab_rab\var1.txt');

Reset(f); // открыть для чтения

// чтение из файла

while not EOF(f) do

begin

readln(f, buf); // прочитать строку из файла

Memo1.Lines.Add(buf); // добавить строку в поле Memo1

end; // закрыть файл

CloseFile(f);

end;

if s = 'Вариант 2' then

begin

Memo1.Clear;

AssignFile(f, 'lab_rab\var2.txt');

Reset(f); // открыть для чтения

while not EOF(f) do// чтение из файла

begin

readln(f, buf); // прочитать строку из файла

Memo1.Lines.Add(buf); // добавить строку в поле Memo1

end; // закрыть файл

CloseFile(f);

end;

if s = 'Вариант 3' then

begin

Memo1.Clear;

AssignFile(f, 'lab_rab\var3.txt');

Reset(f); // открыть для чтения

// чтение из файла

while not EOF(f) do

begin

readln(f, buf); // прочитать строку из файла

Memo1.Lines.Add(buf); // добавить строку в поле Memo1

end; // закрыть файл

CloseFile(f);

end;

if s = 'Вариант 4' then

begin

Memo1.Clear;

AssignFile(f, 'lab_rab\var4.txt');

Reset(f); // открыть для чтения

// чтение из файла

while not EOF(f) do

begin

readln(f, buf); // прочитать строку из файла

Memo1.Lines.Add(buf); // добавить строку в поле Memo1

end; // закрыть файл

CloseFile(f);

end;

end;

procedure TForm4.Button1Click(Sender: TObject);

var

sl: TStringList;

i: integer;

MSWord: Variant;

begin

begin

sl := TStringList.Create;

sl.LoadFromFile( 'spiski\'+label2.Caption+'.txt' );

for i := 0 to sl.Count-1 do

if Pos( label1.Caption, sl[i] ) > 0 then

if sl.Count>=(i+2) then

begin

if pos ('Вариант',sl[i+1])>0 then

begin

showmessage('задание уже получено!');

sl.Free;

form4.Close;

exit;

end

else

begin

sl.Insert((i+1),ComboBox1.Text );

sl.SaveToFile('spiski\'+label2.Caption+'.txt');

sl.Free;

break;

end;

end

else

begin

sl.Insert((i+1),ComboBox1.Text );

sl.SaveToFile('spiski\'+label2.Caption+'.txt');

sl.Free;

break;

end;

end;

begin

try

MSWord:=CreateOleObject('Word.Application');

MSWord.Visible:=true;

except

Exception.Create('Error');

end;

MSWord.Documents.Add;

MSWord.Selection.Font.Size := 10;

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;

MSWord.Selection.TypeText(Memo3.Text);

MSWord.Selection.Font.Size := 12;

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Домашнее задание');

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;

MSWord.Selection.TypeText('Группа : ');

MSWord.Selection.TypeText(Label2.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText('Студент : ');

MSWord.Selection.TypeText(Label1.Caption);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Memo2.Text);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(ComboBox1.Text);

MSWord.Selection.TypeText(#13#10);

MSWord.Selection.TypeText(Memo1.Text);

end;

Application.Terminate;

end;

end.

Листинг программы (Unit5).

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, XPMan;

type

TForm5 = class(TForm)

Button1: TButton;

Button2: TButton;

XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit4, Unit3;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

var

i:integer;

sl: TStringList;

begin

sl := TStringList.Create;

sl.LoadFromFile( 'spiski\'+form4.label2.caption+'.txt' );

for i := 0 to sl.Count-1 do

if Pos( form4.label1.Caption, sl[i] ) > 0 then

if sl.Count=i+1 then

begin

Form4.Show;

break;

end

else

if pos ('Вариант',sl[i+1])>0 then

showmessage('Вариант уже выбран!')

else

begin

Form4.Show;

break;

end;

end;

procedure TForm5.Button2Click(Sender: TObject);

var

i:integer;

sl: TStringList;

begin

sl := TStringList.Create;

sl.LoadFromFile( 'spiski\'+form4.label2.caption+'.txt' );

for i := 0 to sl.Count-1 do

if Pos( form4.label1.Caption, sl[i] ) > 0 then

if sl.Count=i+1 then

begin

Form4.Show;

break;

end

else

if pos ('Оценка',sl[i+1])>0 then

showmessage('Оценка уже получена')

else

begin

Form3.Show;

break;

end;

end;

end.

Листинг программы (Unit6).

unit Unit6;

interface

uses

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

Dialogs, XPMan, StdCtrls;

type

TForm6 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2, Unit7;

{$R *.dfm}

procedure TForm6.Button4Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

Form7.show;

Form7.Panel1.Show;

Form7.Caption:='Создание';

Form7.Panel2.Hide;

Form7.Panel3.Hide;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Form7.show;

Form7.Caption:='Редактирование';

Form7.Panel2.Show;

Form7.Panel1.Hide;

Form7.Panel3.Hide;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

Form7.Show;

Form7.Panel3.Show;

Form7.Caption:='Просмотр';

Form7.Panel1.Hide;

Form7.Panel2.Hide;

end;

end.

Листинг программы (Unit7).

unit Unit7;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, XPMan;

type

TForm7 = class(TForm)

Memo1: TMemo;

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Panel1: TPanel;

Label2: TLabel;

Panel2: TPanel;

Edit2: TEdit;

Memo2: TMemo;

Button2: TButton;

Label3: TLabel;

Label4: TLabel;

Button3: TButton;

XPManifest1: TXPManifest;

Panel3: TPanel;

Edit3: TEdit;

Label5: TLabel;

Label6: TLabel;

Memo3: TMemo;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

f1:string;

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

var

f:Textfile;

begin

if Edit1.Text='' then

showmessage('Введите номер группы!')

else

begin

AssignFile(f,'spiski\'+Edit1.Text+'.txt');

ReWrite(f);

Writeln(f,Memo1.Text);

Closefile(f);

Showmessage('Группа успешно создана');

Edit1.Clear;

form6.show;

form7.Close;

end;

end;

procedure TForm7.Button2Click(Sender: TObject);

var

f:Textfile;

begin

if Edit2.Text='' then

showmessage('Введите номер группы!')

else

begin

DeleteFile('spiski\'+f1+'.txt');

AssignFile(f,'spiski\'+Edit2.Text+'.txt');

ReWrite(f);

Writeln(f,Memo2.Text);

Closefile(f);

Showmessage('Группа успешно редактирована');

Edit1.Clear;

form6.show;

form7.Close;

end;

end;

procedure TForm7.Button3Click(Sender: TObject);

var

f:Textfile;

buf: string[80];

begin

if Edit2.Text='' then

showmessage('Введите номер группы!')

else

begin

Memo2.Clear;

Memo2.Show;

Label4.Show;

f1:=Edit2.Text;

Button2.Show;

AssignFile(f,'spiski\'+Edit2.Text+'.txt');

Reset(f);

while not EOF(f) do

begin

readln(f, buf); // прочитать строку из файла

Memo2.Lines.Add(buf); // добавить строку в поле Memo1

end; // закрыть файл

CloseFile(f);

end;

end;

procedure TForm7.Button4Click(Sender: TObject);

var

f:Textfile;

buf: string[80];

begin

Memo3.Clear;

Memo3.Show;

Label6.Show;

if Edit3.Text='' then

ShowMessage('Введите название группы!')

else

begin

AssignFile(f,'spiski\'+Edit3.Text+'.txt');

Reset(f);

while not EOF(f) do

begin

readln(f, buf); // прочитать строку из файла

Memo3.Lines.Add(buf); // добавить строку в поле Memo1

end; // закрыть файл

CloseFile(f);

end; end;

procedure TForm7.FormShow(Sender: TObject);

begin

Form7.Memo1.Clear;

Form7.Edit1.Clear;

Form7.Edit2.Clear;

Form7.Memo2.Clear;

Form7.Memo3.Clear;

Form7.Edit3.Clear;

end;

end.

Размещено на Allbest.ru