Разработка приложения "Базовые логические операции"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
f 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;TForm2.Button3Click(Sender: TObject);,s2,s3,y1,y2,y3: string;l1,x2l1,x3l1,x4l1:string;l2,x2l2,x3l2,x4l2:string;l3,x2l3,x3l3,x4l3:string;l4,x2l4,x3l4,x4l4:string;
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;TForm2.Button4Click(Sender: TObject);,s2,s3,y1,y2,y3: string;l1,x2l1,x3l1,x4l1:string;l2,x2l2,x3l2,x4l2:string;l3,x2l3,x3l3,x4l3:string;l4,x2l4,x3l4,x4l4:string;
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;TForm2.Button5Click(Sender: TObject);,s2,s3,y1,y2,y3: string;l1,x2l1,x3l1,x4l1:string;l2,x2l2,x3l2,x4l2:string;l3,x2l3,x3l3,x4l3:string;l4,x2l4,x3l4,x4l4:string;
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: