Теорія формальних граматик і мов.. Лабораторна робота з Дискретна математика. Робота № 201118

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

Теорія формальних граматик і мов.

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

ВУЗ:

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

Інститут:

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

Факультет:

Не вказано

Кафедра:

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

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

Рік:

2007

Тип роботи:

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

Предмет:

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

Група:

ПМ-21

Завантажити

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

Міністерство освіти і науки України Національний Університет „Львівська політехніка” Інститут прикладної математики і фундаментальних наук Кафедра прикладної математики Лабораторна робота №4 Тема: Теорія формальних граматик і мов Виконала: студентка групи ПМ – 21 Львів 2007 Мета роботи: Ознайомитись з теорією формальних граматик і мов Завдання: Побудувати граматику, яка породжує основні консанти дійсного типу мови 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 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!

поділитись