Разработка приложения "Базовые логические операции"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
1);
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;:=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
0then"> 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;;.
Листинг программы (Unit4).Unit4;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, WordXP;
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;
Form4: TForm4;ComObj;
{$R *.dfm}TForm4.ComboBox1Change(Sender: TObject);
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;;TForm4.Button1Click(Sender: TObject);
sl: TStringList;
i: integer;
MSWord: Variant;
begin
sl := TStringList.Create;
sl.LoadFromFile( spiski\+label2.Caption+.txt );
for i := 0 to sl.Count-1 do
0then"> if Pos( label1.Caption, sl[i] ) > 0 then
=(i+2)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;;.
Листинг программы (Unit5).Unit5;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
TForm5 = class(TForm)
Button1: TButton;
Button2: TButton;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form5: TForm5;Unit4, Unit3;
{$R *.dfm}TForm5.Button1Click(Sender: TObject);
i:integer;
sl: TStringList;
sl := TStringList.Create;
sl.LoadFromFile( spiski\+form4.label2.caption+.txt );
for i := 0 to sl.Count-1 do
0then"> 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;;TForm5.Button2Click(Sender: TObject);
i:integer;
sl: TStringList;
sl := TStringList.Create;
sl.LoadFromFile( spiski\+form4.label2.caption+.txt );
for i := 0 to sl.Count-1 do
0then"> if Pos( form4.label1.