Формальна логіка.. Лабораторна робота з Дискретна математика. Робота № 201083

Перехід до торгівельного партнера Binance

Формальна логіка.

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Інститут прикладної математики та фундаментальних наук

Факультет:

Не вказано

Кафедра:

Кафедра прикладної математики

Інформація про роботу

Рік:

2007

Тип роботи:

Лабораторна робота

Предмет:

Дискретна математика

Група:

ПМ-21

Завантажити

Частина тексту файла (без зображень, графіків і формул):

Міністерство освіти і науки України Національний Університет „Львівська політехніка” Інститут прикладної математики і фундаментальних наук Кафедра прикладної математики Лабораторна робота №4 Тема: Формальна логіка Виконав: студент групи ПМ – 21 Львів 2007 Варіант 7 Завдання: Побудувати граматику, яка породжує основні консанти дійсного типу мови Pascal з фіксованою точкою. Dim str1, str2, str3, str4 As String Dim str() As String Dim a, i As Byte Option Explicit Private Sub Command1_Click() ‘Ввід даних ‘Термінальних символів If Text1.Text <> "" Then str1 = str1 + " " + CStr(Text1.Text) + ", " Text1.Text = "" Text1.SetFocus End If ‘Нетермінальних символів If Text2.Text <> "" Then str2 = str2 + " " + CStr(Text2.Text) Text2.Text = "" Text2.SetFocus End If ‘Аксіоми If Text3.Text <> "" Then str3 = str3 + " " + CStr(Text3.Text) Text3.Text = "" Text3.SetFocus End If ‘Правил If Text4.Text <> "" Then i = i + 1 ReDim Preserve str(i) str(i) = CStr(Text4.Text) Text4.Text = "" Text4.SetFocus End If End Sub Private Sub Command2_Click() If Text1.Text <> "" Then str1 = str1 + " " + CStr(Text1.Text) Text1.Text = "" Text2.SetFocus End If If Text2.Text <> "" Then str2 = str2 + " " + CStr(Text2.Text) Text2.Text = "" Text3.SetFocus End If If Text3.Text <> "" Then str3 = str3 + " " + CStr(Text3.Text) Text3.Text = "" Text4.SetFocus End If If Text4.Text <> "" Then i = i + 1 ReDim Preserve str(i) str(i) = CStr(Text4.Text) Text4.Text = "" Call pobudova End If End Sub Sub pobudova() ‘Побудова граматики і мови 'For a = 1 To i - 1 'str4 = str4 + str3 + "--->" + str(a) + ";" + Chr(13) + Chr(10) 'Next a 'str4 = str4 + str3 + "--->" + str(i) 'Text5.Text = "U(òåðì³íàë.)= " + str1 + Chr(13) + Chr(10) + _ '"U(íåòåðì³í.) = " + str2 + Chr(13) + Chr(10) + _ '"i = " + str3 + Chr(13) + Chr(10) + _ '"Ï = " + str4 For a = 1 To i - 1 str4 = str4 + str3 + "--->" + str(a) + ";" Next a str4 = str4 + str3 + "--->" + str(i) Text5.Text = "<" + str1 + "; " + str2 + "; " + str3 + "; " + str4 + ">" For a = 1 To i Text6.Text = Text6 + str(a) + Chr(13) + Chr(10) Next a End Sub Private Sub Form_Load() i = 0 End Sub Приклад

Лабораторна робота Дискретна математика

01.01.1970 03:01-

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!

поділитись