Дипломдық жұмыс «Пропозициялық логика»
жүктеу/скачать 2,21 Mb.
|
bestreferat-314444 (2)
ҚОСЫМША ЕЛогикалық есептерді шешуге арналған бағдарламаның сипаттамасы «Логика» «Логика» бағдарламасы «Пропозициялық логика» тақырыбын қайталауға және бекітуге арналған. Оны мұғалім сабақта, факультативтік жұмыстарға және студенттердің өздік жұмыстарына пайдалана алады. Бағдарламаны пайдалану кезінде зерттелетін тақырыптың негізгі теориялық мәселелері, есептер шығару дағдылары (ақиқат кестесін құру, SDNF құру) қайталанады. Бағдарлама түрлі-түсті дизайнға ие және оқушының танымдық әрекетін белсендіруді қамтамасыз етеді. Бағдарлама Delphi 7-де жазылған, графикалық редактор Photoshop 8 графикасын құру үшін қолданылған. Бағдарлама интерфейсі келесідей көрінеді: Логикалық формуланы енгізу үшін операция таңбалары, айнымалы атаулары және жақшалары бар түймелер қолданылады. Қалпына келтіру түймесі енгізу терезесін тазартады. Ақиқат кестесін құру үшін студент есептеу қадамдарын бөлектеп, тиісті енгізу жолына енгізуі керек. Логикалық формуланы файлдан жүктеуге болады, ол үшін негізгі мәзірдің «файл» тармағына өтіп, «Ашу» опциясын таңдау керек. Қажетті ақпаратты енгізгеннен кейін студент ақиқат кестесін алады, ол бөлек терезеде көрсетіледі Құрылған ақиқат кестесіне сәйкес «SDNF құру» түймесін басқан кезде студент енгізілген формула үшін SDNF алады. Бағдарламада тексеру сынақтары бар. Тестілеуді орындағаннан кейін студентке тест тапсырмаларының дұрыс жауаптары, жинаған ұпайлары және дұрыс жауаптары туралы ақпарат беріледі. Бағдарлама анықтамалық жүйемен қамтамасыз етілген. Анықтама теориялық ақпаратты және есептерді шешу мысалдарын қамтиды. Анықтамаға Анықтама мәзірінің элементі арқылы қол жеткізуге болады. Листинг бағдарламалары бірлік Unit1; интерфейс пайдаланады Windows, хабарлар, SysUtils, нұсқалар, сыныптар, графика, басқару элементтері, пішіндер, Диалогтар, jpeg, ExtCtrls, StdCtrls, Мәзірлер, Түймешіктер; түрі
TForm1 = сынып (TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N11: TMenuItem; N21: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; Панель 2: TPanel; Панель 1: TPanel; Өңдеу1: TEdit; Label1: TLabel; Сурет1: TIMEmage; Image2: TIMEmage; Сурет3: TIMEmage; Image4: TIMEmage; Image5: TIMEmage; Image6: TIMEmage; Image7: TIMEmage; Image9: TIMEmage; Image8: TIMEmage; Кескін 10: TImage; BitBtn1: TBitBtn; Кескін 11: TImage; Сурет12: TIMEmage; Image13: TIMEmage; Label3: TLabel; Label4: TLabel; Өңдеу2: TEdit; Өңдеу3: TEdit; BitBtn2: TBitBtn; Label2: TLabel; Label5: TLabel; Label6: TLabel; Өңдеу4: TEdit; BitBtn3: TBitBtn; Өңдеу5: TEdit; Image14: TIMEmage; N31: TMenuItem; N10: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; OpenDialog1: TOpenDialog; N3: TMenuItem; процедурасы Image2Click(Жіберуші: TObject); процедурасы Image3Click(Жіберуші: TObject); процедурасы Image7Click(Жіберуші: TObject); процедурасы Image4Click(Жіберуші: TObject); процедурасы Image5Click(Жіберуші: TObject); процедура Image1Click(Жіберуші: TObject); процедурасы Image6Click(Жіберуші: TObject); процедурасы Image9Click(Жіберуші: TObject); процедурасы Image8Click(Жіберуші: TObject); процедура Image10Click(Жіберуші: TObject); процедурасы FormShow(Жіберуші: TObject); процедура Image11Click(Жіберуші: TObject); процедура Image12Click(Жіберуші: TObject); процедурасы BitBtn2Click(Жіберуші: TObject); процедурасы BitBtn3Click(Жіберуші: TObject); процедура Image13Click(Жіберуші: TObject); процедурасы Edit5Change(Жіберуші: TObject); процедурасы BitBtn1Click(Жіберуші: TObject); процедура Image14Click(Жіберуші: TObject); процедурасы N4Click(Жіберуші: TObject); процедурасы N2Click(Жіберуші: TObject); процедура N11Click(Жіберуші: TObject); процедура N10Click(Жіберуші: TObject); процедура N12Click(Жіберуші: TObject); процедура N13Click(Жіберуші: TObject); процедура N14Click(Жіберуші: TObject); процедурасы N9Click(Жіберуші: TObject); процедурасы N3Click(Жіберуші: TObject); жеке
{ Жеке декларациялар } қоғамдық
{ Қоғамдық мәлімдемелер } Соңы;
var Пішін1: TForm1; n,k:бүтін; s:array[1..5] of char ; g:бүтін санның массиві[1..50]; жүзеге асыру Unit3, Unit2, Unit5 пайдаланады; {$R *.dfm} процедурасы TForm1.Image2Click(Sender: TObject); БАСТА
Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'v'; n:=n+1 ; //Тұрғылықты(лар,н); s[n]:='v'; Соңы
Басқа Edit1.Text:=Edit1.Text+'v' Соңы; процедурасы TForm1.Image3Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'&'; n:=n+1 ;
s[n]:='&'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'&' Соңы; процедурасы TForm1.Image7Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+' г '; n:=n+1 ;
s[n]:=' г '; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+' г ' Соңы; процедурасы TForm1.Image4Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'~'; n:=n+1 ;
s[n]:='~'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'~' Соңы; процедурасы TForm1.Image5Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'|'; n:=n+1 ;
s[n]:='|'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'|' Соңы; процедурасы TForm1.Image1Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'->'; n:=n+1 ;
s[n]:='>'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'->' Соңы; процедурасы TForm1.Image6Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'!'; n:=n+1 ;
s[n]:='!'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'!' Соңы; процедурасы TForm1.Image9Click(Sender: TObject); БАСТА Form1.Edit1.Text:=Edit1.Text+'(' Соңы; процедурасы TForm1.Image8Click(Sender: TObject); БАСТА Form1.Edit1.Text:=Edit1.Text+')' Соңы; процедурасы TForm1.Image10Click(Sender: TObject); БАСТА Егер Form3.Visible=true болса БАСТА Edit4.Text:=''; n:=0; Соңы
Басқа Form1.Edit1.Text:='' Соңы; процедурасы TForm1.FormShow(Sender: TObject); БАСТА n:=0;
Соңы; процедура TForm1.Image11Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'A'; n:=n+1 ;
s[n]:='A'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'A' Соңы; процедурасы TForm1.Image12Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'B'; n:=n+1 ;
s[n]:='B'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'B' Соңы; процедурасы TForm1.BitBtn2Click(Жіберуші: TObject); БАСТА Form3.Show; k:=0 Соңы;
процедурасы TForm1.BitBtn3Click(Жіберуші: TObject); var i,j:integer ; Rez,t,h:логикалық; v: бульдік массив[1..4]; r: массив [1..50] логикалық; БАСТА
k:=k+1; Form3.StringGrid1.Cells[k+StrToInt(Edit2.Text),0]:=Edit4.Text; Edit4.Text:=''; егер k<= (StrToInt(Edit3.Text)-1), онда Label2.Caption:= ' Введите '+' '+Inttostr(k+1)+' '+' шаг '; // вычисление j:=1 үшін Form3.StringGrid1.RowCount-1 үшін орындаңыз БАСТА
i:=1 үшін StrToInt(Edit2.Text) орындаңыз Form3.StringGrid1.Cells[i,j]='1' болса, v[i]:=шын else v[i]:=false; i:=1 үшін k орындаңыз Егер Form3.StringGrid1.Cells[StrToInt(Edit2.Text)+i,j]='1' болса, r[i]:=шын else r[i]:=false; Егер ((s[1]=' г ') және ((s[2] ['A'..'D']) немесе(s[2]='R')) және (n=2)) содан кейін БАСТА
Егер s[2]='A' болса, t:=v[1] басқа
Егер s[2]='B' болса, t:=v[2] басқа
Егер s[2]='C' болса, t:=v[3] басқа
Егер s[2]='D' болса, t:=v[4] басқа
Егер (s[2]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[2]=i болса, онда t:=r[i]; Rez:=(емес(t)); Соңы басқа
Егер (((s[2] ['A'..'D']) немесе(s[2]='R'))және ((s[5] ['A'..'D'')] )немесе(s[5]='R'))) содан кейін БАСТА Егер s[2]='A' болса, t:=not(v[1]) басқа Егер s[2]='B' болса, t:=not(v[2]) басқа Егер s[2]='C' болса, t:=not(v[3]) басқа Егер s[2]='D' болса, t:=not(v[4]) басқа Егер (s[2]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[2]=i болса, t:=not(r[i]); Егер s[5]='A' болса, h:=not(v[1]) басқа
Егер s[5]='B' болса, h:=not(v[2]) басқа
Егер s[5]='C' болса, h:=not(v[3]) басқа
Егер s[5]='D' болса, h:=not(v[4]) басқа
Егер (s[5]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[5]=i болса, h:=not(r[i]); жағдай s[3] 'v': Rez:=(t немесе h); '&': Rez:=(t және h); '>': Rez:=(not(t) немесе h); '~': Rez:=((емес(t) немесе h)және(емес(h) немесе t)); '|': Rez:=not(t және h); '!': Rez:=not(t немесе h); басқа ShowMessage('Неправильно выделен шаг вычислений') Соңы Соңы
басқа Егер (((s[1] ['A'..'D'])немесе(s[1]='R'))және ((s[4] ['A'..'D'')] )немесе(s[4]='R'))) содан кейін БАСТА
Егер s[1]='A' болса, t:=v[1] басқа
Егер s[1]='B' болса, t:=v[2] басқа
Егер s[1]='C' болса, t:=v[3] басқа
Егер s[1]='D' болса, t:=v[4] басқа
Егер (s[1]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[1]=i болса, онда t:=r[i]; Егер s[4]='A' болса, h:=not(v[1]) басқа Егер s[4]='B' болса, h:=not(v[2]) басқа Егер s[4]='C' болса, h:=not(v[3]) басқа Егер s[4]='D' болса, h:=not(v[4]) басқа Егер (s[4]='R') болса, онда i:=1-ден k+1-ге дейін орындаңыз Егер g[4]=i болса, h:=not(r[i]); жағдай s[2] 'v': Rez:=(t немесе h); '&': Rez:=(t және h); '>': Rez:=(not(t) немесе h); '~': Rez:=((емес(t) немесе h)және(емес(h) немесе t)); '|': Rez:=not(t және h); '!': Rez:=not(t немесе h); басқа
ShowMessage('Неправильно выделен шаг вычислений') Соңы
Соңы басқа
Егер (((s[2] ['A'..'D']) немесе(s[2]='R'))және ((s[4] ['A'..'D'')] )немесе(s[4]='R'))) содан кейін БАСТА Егер s[2]='A' болса, t:=not(v[1]) басқа Егер s[2]='B' болса, t:=not(v[2]) басқа Егер s[2]='C' болса, t:=not(v[3]) басқа Егер s[2]='D' болса, t:=not(v[4]) басқа Егер (s[2]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[2]=i болса, t:=not(r[i]); Егер s[4]='A' болса, h:=v[1] басқа
Егер s[4]='B' болса, h:=v[2] басқа
Егер s[4]='C' болса, h:=v[3] басқа
Егер s[4]='D' болса, h:=v[4] басқа
Егер (s[4]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[4]=i болса, h:=r[i]; жағдай s[3] 'v': Rez:=(t немесе h); '&': Rez:=(t және h); '>': Rez:=(not(t) немесе h); '~': Rez:=((емес(t) немесе h)және(емес(h) немесе t)); '|': Rez:=not(t және h); '!': Rez:=not(t немесе h); басқа ShowMessage('Неправильно выделен шаг вычислений') Соңы Соңы
басқа Егер (((s[1] ['A'..'D'])немесе(s[1]='R'))және ((s[3] ['A'..'D'')] )немесе(s[3]='R'))) содан кейін БАСТА
Егер s[1]='A' болса, t:=v[1] басқа
Егер s[1]='B' болса, t:=v[2] басқа
Егер s[1]='C' болса, t:=v[3] басқа
Егер s[1]='D' болса, t:=v[4] басқа
Егер (s[1]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[1]=i болса, онда t:=r[i]; Егер s[3]='A' болса, h:=v[1] басқа Егер s[3]='B' болса, h:=v[2] басқа Егер s[3]='C' болса, h:=v[3] басқа Егер s[3]='D' болса, h:=v[4] басқа Егер (s[3]='R') болса i:=1-ден k+1-ге дейін орындаңыз Егер g[3]=i болса, h:=r[i]; жағдай s[2] 'v': Rez:=(t немесе h); '&': Rez:=(t және h); '>': Rez:=(not(t) немесе h); '~': Rez:=((емес(t) немесе h)және(емес(h) немесе t)); '|': Rez:=not(t және h); '!': Rez:=not(t немесе h); басқа
ShowMessage('Неправильно выделен шаг вычислений') Соңы
Соңы ; Егер (Rez=True) болса, Form3.StringGrid1.Cells[k+strtoint(Edit2.Text),j]:='1' else Form3.StringGrid1.Cells[k+strtoint(Edit2.Text),j]:='0'; Соңы ;
n:=0 Соңы;
процедурасы TForm1.Image13Click(Sender: TObject); БАСТА
Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'C'; n:=n+1 ; s[n]:='C'; Соңы Басқа
Form1.Edit1.Text:=Edit1.Text+'C' Соңы;
procedure TForm1.Edit5Change(Sender: TObject); var i:integer; БАСТА Edit4.Text:=Edit4.Text+'rez'+Edit5.Text; n:=n+1 ; i:=1 үшін strtoint(Edit3.Text) орындаңыз егер strtoint(Edit5.Text)=i содан кейін s[n]:='R' бастаңыз; g[n]:=i соңы; Соңы; процедурасы TForm1.BitBtn1Click(Жіберуші: TObject); БАСТА form2.Show; Соңы; процедурасы TForm1.Image14Click(Sender: TObject); БАСТА Form3.Visible=true болса, бастаңыз Edit4.Text:=Edit4.Text+'D'; n:=n+1 ;
s[n]:='D'; Соңы
Басқа Form1.Edit1.Text:=Edit1.Text+'D' Соңы; процедурасы TForm1.N4Click(Жіберуші: TObject); БАСТА Жабық;
Соңы; процедурасы TForm1.N2Click(Жіберуші: TObject); var OpenDialog1:TOpenDialog; MyFileName:AnsiString; f:мәтіндік файл; формула: AnsiString; БАСТА OpenDialog1:=TOpenDialog.Create(Form1); егер OpenDialog1.Execute болса БАСТА
MyFileName:=OpenDialog1.FileName; Assignfile(F,MyFileName) ; Қалпына келтіру(F); ReadLn(F, формула); Edit1.Text:=формула; Соңы
Соңы; процедура TForm1.N11Click(Жіберуші: TObject); БАСТА Пішін5.Көрсету Соңы; процедурасы TForm1.N10Click(Жіберуші: TObject); БАСТА Application.HelpFile := ' ВЫСКАЗЫВАНИЯ .hlp'; Application.HelpJump('TApplication_HelpJump'); Соңы;
процедура TForm1.N12Click(Жіберуші: TObject); БАСТА
Application.HelpFile := ' ОПЕРАЦИИ .hlp'; Application.HelpJump('TApplication_HelpJump'); Соңы; процедура TForm1.N13Click(Sender: TObject); БАСТА Application.HelpFile := ' ДНФ И КНФ .hlp'; Application.HelpJump('TApplication_HelpJump'); Соңы;
процедура TForm1.N14Click(Жіберуші: TObject); БАСТА
Application.HelpFile := ' СДНФ .hlp'; Application.HelpJump('TApplication_HelpJump'); Соңы; процедурасы TForm1.N9Click(Жіберуші: TObject); БАСТА Application.HelpFile := ' ПРИМЕР .hlp'; Application.HelpJump('TApplication_HelpJump'); Соңы;
процедура TForm1.N3Click(Жіберуші: TObject); БАСТА
Application.HelpFile := ' РАВНОСИЛЬНОСТИ .hlp'; Application.HelpJump('TApplication_HelpJump'); Соңы; Соңы.
бірлік Unit2; интерфейс пайдаланады Windows, хабарлар, SysUtils, нұсқалар, сыныптар, графика, басқару элементтері, пішіндер, Диалогтар, jpeg, ExtCtrls; түрі
TForm2 = сынып (TForm) Сурет1: TIMEmage; жеке { Жеке декларациялар } қоғамдық { Қоғамдық мәлімдемелер } Соңы; var
Пішін2: TForm2; жүзеге асыру {$R *.dfm} Соңы.
бірлік Unit3; интерфейс пайдаланады Windows, хабарлар, SysUtils, нұсқалар, сыныптар, графика, басқару элементтері, пішіндер, Диалогтар, Торлар, StdCtrls, Түймешіктер, ExtCtrls; түрі
TForm3 = сынып (TForm) StringGrid1: TStringGrid; Панель 1: TPanel; BitBtn1: TBitBtn; Панель 2: TPanel; процедурасы FormShow(Жіберуші: TObject); процедурасы BitBtn1Click(Жіберуші: TObject); жеке
{ Жеке декларациялар } қоғамдық
{ Қоғамдық мәлімдемелер } Соңы;
var Form3: TForm3; жүзеге асыру Unit2, Unit1, Unit4 пайдаланады; {$R *.dfm} процедурасы TForm3.FormShow(Sender: TObject); var k,s,i,j,d:integer; F:мәтіндік файл; БАСТА StringGrid1.ColCount:=1+strtoint(Form1.Edit2.Text)+strtoint(Form1.Edit3.Text); k:=StrToInt(Form1.Edit2.Text); s:=2 ;
i:=1 үшін k-1 орындаңыз s:=s*2;
StringGrid1.RowCount:=s+1; k=2 болса AssignFile(F,'matr2.txt'); StringGrid1.Cells[1,0]:='A'; StringGrid1.Cells[2,0]:='B'; i:=1-4 үшін StringGrid1.Cells[0,i]:=inttostr(i)end орындаңыз басқа k=3 болса, AssignFile(F,'matr3.txt');StringGrid1.Cells[1,0]:='A'; StringGrid1.Cells[2,0]:='B';StringGrid1.Cells[3,0]:='C'; i:=1-8 үшін StringGrid1.Cells[0,i]:=inttostr(i)end орындаңыз басқа k=4 болса, AssignFile(F,'matr4.txt');StringGrid1.Cells[1,0]:='A'; StringGrid1.Cells[2,0]:='B';StringGrid1.Cells[3,0]:='C'; StringGrid1.Cells[4,0]:='D'; i:=1-16 үшін StringGrid1.Cells[0,i]:=inttostr(i)end орындаңыз Қалпына келтіру(F); i:=1 үшін s басталады j:=1 үшін k істеу БАСТА
Оқу(F,d); StringGrid1.Cells[j,i]:=inttostr(d); Соңы; readln(F) ; Соңы; Файлды жабу(F) Соңы; процедурасы TForm3.BitBtn1Click(Жіберуші: TObject); БАСТА Form4.Show; Соңы; Соңы.
бірлік Unit4; интерфейс пайдаланады Windows, хабарлар, SysUtils, нұсқалар, сыныптар, графика, басқару элементтері, пішіндер, Диалогтар, StdCtrls, ExtCtrls; түрі
TForm4 = сынып (TForm) Панель 1: TPanel; Панель 2: TPanel; Өңдеу1: TEdit; Өңдеу2: TEdit; Label1: TLabel; Label2: TLabel; процедурасы FormShow(Жіберуші: TObject); жеке { Жеке декларациялар } қоғамдық { Қоғамдық мәлімдемелер } Соңы; var
4-форма: TForm4; жүзеге асыру Unit1, Unit3 пайдаланады; {$R *.dfm} процедурасы TForm4.FormShow(Sender: TObject); var i,j:integer; БАСТА Edit2.Text:=form1.Edit1.Text; i:=1 үшін (form3.StringGrid1.RowCount-1) орындаңыз Егер form3.StringGrid1.Cells[(form3.StringGrid1.ColCount-1),i]='1' болса, онда БАСТА егер Edit1.Text<>'' болса Edit1.Text:=Edit1.Text+'v'; j:=1 үшін strtoint(Form1.Edit2.text)do Егер form3.StringGrid1.Cells[j,i]='1' содан кейін Edit1.Text:=Edit1.Text+form3.StringGrid1.Cells[j,0] басқа
Edit1.Text:=Edit1.Text+' г '+form3.StringGrid1.Cells[j,0]; Соңы ;
Соңы; Соңы.
бірлік Unit5; интерфейс пайдаланады Windows, хабарлар, SysUtils, нұсқалар, сыныптар, графика, басқару элементтері, пішіндер, Диалогтар, ComCtrls, StdCtrls, ExtCtrls, Buttons, jpeg; түрі
TForm5 = сынып (TForm) Панель 2: TPanel; Панель 1: TPanel; Label1: TLabel; Өңдеу1: TEdit; Сурет1: TIMEmage; Өңдеу3: TEdit; Image2: TIMEmage; RadioGroup1: TradioGroup; Сурет3: TIMEmage; RadioGroup2: TradioGroup; Image5: TIMEmage; RadioGroup3: TradioGroup; Image4: TIMEmage; Өңдеу4: TEdit; Image6: TIMEmage; RadioGroup4: TradioGroup; Image7: TIMEmage; Өңдеу5: TEdit; Image8: TIMEmage; RadioGroup5: TradioGroup; Image9: TIMEmage; RadioGroup6: TradioGroup; Кескін 10: TImage; Өңдеу6: TEdit; Кескін 11: TImage; Сурет12: TIMEmage; Image13: TIMEmage; Image14: TIMEmage; Image15: TIMEmage; Image16: TIMEmage; ListBox1: TListBox; ListBox2: TListBox; ListBox3: TListBox; ListBox4: TListBox; ListBox5: TListBox; ListBox6: TListBox; ListBox7: TListBox; ListBox8: TListBox; ListBox9: TListBox; ListBox10: TListBox; ListBox11: TListBox; BitBtn1: TBitBtn; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Image17: TIMEmage; Image18: TIMEmage; Image19: TIMEmage; Image20: TIMEmage; Image21: TIMEmage; Image22: TIMEmage; Image23: TIMEmage; Image24: TIMEmage; процедурасы BitBtn1Click(Жіберуші: TObject); жеке
{ Жеке декларациялар } қоғамдық
{ Қоғамдық мәлімдемелер } Соңы;
var Пішін5: TForm5; жүзеге асыру Unit6 пайдаланады; {$R *.dfm} процедурасы TForm5.BitBtn1Click(Жіберуші: TObject); var k,ball:integer; БАСТА
Form6.Show; Form6.Label1.Caption:=Edit1.text; k:=0; Доп:=0;
Егер Edit3.Text=' таблицы истинности ' содан кейін k:=k+1; Шар:=Шар+2 соңы; RadioGroup1.ItemIndex=0 болса, k:=k+1; Шар:=Шар+2 соңы; RadioGroup2.ItemIndex=3 болса, k:=k+1; Доп:=Шар+3 соңы; RadioGroup3.ItemIndex=1 болса, k:=k+1; Шар:=Шар+2 соңы; Егер Edit4.Text=' КНФ ' болса, онда k:=k+1; Доп:=Шар+3 соңы; RadioGroup4.ItemIndex=0 болса, k:=k+1; Шар:=Шар+2 соңы; Edit5.Text=' СДНФ ' болса, k:=k+1; Шар:=Шар+4 соңы; RadioGroup5.ItemIndex=0 болса, k:=k+1; Шар:=Доп+3 соңы; RadioGroup6.ItemIndex=2 болса, k:=k+1; Шар:=Шар+4 соңы; Егер Edit6.Text=' аналитический и табличный ' содан кейін k:=k+1 бастаңыз; Доп:=Шар+3 соңы; Егер ((Listbox1.ItemIndex=2)және(Listbox2.ItemIndex=1)және(Listbox3.ItemIndex=4)және(Listbox4.ItemIndex=3)) содан кейін k:=k+1 бастаңыз; Шар:=Шар+5 соңы; Егер ((Listbox5.ItemIndex=4) және(Listbox6.ItemIndex=3) және(Listbox7.ItemIndex=8) және(Listbox8.ItemIndex=1) және(Listbox9.ItemIndex=6) және(Listbox10.ItemIndex=2) және(Listbox11.ItemIndex=5)) содан кейін k:=k+1 бастаңыз; Доп:=Шар+1 соңы; Доп:=дөңгелек(2,94*шар); Form6.Label2.Caption:=' Саны дұрыс жауаптар '+' '+inttostr(k); Form6.Label3.Caption:='Қате жауаптар саны'+' '+inttostr(12-k); Form6.Label4.Caption:=' Саны нүктелер '+' '+inttostr(шар); Соңы; Соңы.
бірлік Unit6; интерфейс пайдаланады Windows, хабарлар, SysUtils, нұсқалар, сыныптар, графика, басқару элементтері, пішіндер, Диалогтар, StdCtrls, ExtCtrls, Түймешіктер; түрі
TForm6 = сынып (TForm) Панель 1: TPanel; Панель 2: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; BitBtn1: TBitBtn; процедурасы BitBtn1Click(Жіберуші: TObject); жеке
{ Жеке декларациялар } қоғамдық
{ Қоғамдық мәлімдемелер } Соңы;
var Пішін6: TForm6; жүзеге асыру Unit7 пайдаланады; {$R *.dfm} процедурасы TForm6.BitBtn1Click(Жіберуші: TObject); БАСТА Пішін7.Көрсету Соңы; Соңы.
бірлік Unit7; интерфейс пайдаланады Windows, хабарлар, SysUtils, нұсқалар, сыныптар, графика, басқару элементтері, пішіндер, Диалогтар, jpeg, ExtCtrls; түрі
TForm7 = сынып (TForm) Сурет1: TIMEmage; жеке { Жеке декларациялар } қоғамдық { Қоғамдық мәлімдемелер } Соңы; var
Пішін7: TForm7; жүзеге асыру {$R *.dfm} Соңы. жүктеу/скачать 2,21 Mb. Достарыңызбен бөлісу:
|