DevioLab CRYPTO TRADING AUTOMATION
LIVE
AUTOMATED CRYPTO TRADING • BINANCE
Автоматизуйте свій криптопортфель
Торгові боти DevioLab аналізують крипторинок, автоматично відкривають і закривають позиції та керують вашим портфелем на Binance 24/7.
CRYPTO 80 Bots
BINANCE Spot Trading
TRADING 24 / 7
Спробувати DevioLab
deviolab.com

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

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

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра прикладної математики

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

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Математика
Група:
ПМ-21

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

Міністерство освіти і науки України Національний Університет „Львівська політехніка” Інститут прикладної математики і фундаментальних наук Кафедра прикладної математики Лабораторна робота №4 Тема: Теорія формальних граматик і мов Львів 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 Приклад  Висновок: У даній лабораторній роботі я ознайомилась є теорією формальних граматик і мов.
Антиботан аватар за замовчуванням

2015

Коментарі

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

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

Нічого не вибрано
0%

Оголошення від адміністратора

Антиботан аватар за замовчуванням

Подякувати Студентському архіву довільною сумою

Admin

26.02.2023 12:38

Дякуємо, що користуєтесь нашим архівом!