51431

Работа со строками

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

Информатика, кибернетика и программирование

Написать предикат выделения первого символа строки, первого символа подстроки в заданной строке. Листинг программы

Русский

2014-02-11

40 KB

1 чел.

Московский государственный технический университет им. Н.Э. Баумана

Калужский филиал

Отчет по лабораторной работе №5

«Работа со строками»

Вариант 10

Выполнил: студентка группы ЭВМ-81

Щукина А.К.

Проверил: Смирнов С.Г.

Калуга, 2013

Условие

Написать предикат выделения первого символа строки, первого символа подстроки в заданной строке.

Листинг программы

domains

s = string

c = char

i = integer

predicates

 first_symbol_of_string(s,c) % ВЫВОД ПЕРВОГО СИМВОЛА СТРОКИ

first_symbol_of_substring(s,s,i,c) % ВЫВОД ПЕРВОГО СИМВОЛА ПОДСТРОКИ В СТРОКЕ И ЕГО НОМЕРА

 first_symbol_of_substring1(s,s,i,c) % ПРОВЕРКА НА ПОДСТРОКУ

clauses

% ЕСЛИ СТРОКА ПУСТА, ТО ТАМ НЕТ СИМВОЛОВ

 first_symbol_of_string("",_):- write("STRING IS EMPTY"), nl.

% ВЫВОД ПЕРВОГО СИМВОЛА СТРОКИ

first_symbol_of_string(Str,Char):- frontchar(Str,Char,_), write(Char), nl.

 % ЕСЛИ СТРОКА ПУСТА, ТО ОНА НЕ СОДЕРЖИТ ПОДСТРОКУ

 first_symbol_of_substring("",_,_,_):- write("STRING HASN'T THIS SUBSTRING"), nl.

 % ЕСЛИ ПОДСТРОКА ПУСТА, ТО ЕЕ НЕТ В СТРОКЕ

 first_symbol_of_substring(_,"",_,_):- write("SUBSTRING IS EMPTY"), nl.

 % ИЩЕМ ПЕРВЫЙ СИМВОЛ СТРОКИ, СОВПАДАЮЩИЙ С ПЕРВЫМ СИМВОЛОМ ПОДСТРОКИ

 first_symbol_of_substring(Str,SubStr,NumChar,Char):-

frontchar(Str,Char,_),                  frontchar(SubStr,SubChar,_),

Char=SubChar,

first_symbol_of_substring1(Str,SubStr,NumChar,Char).

 % ЕСЛИ НЕ СОВПАДАЕТ, ТО ПРОВЕРЯЕМ СТРОКУ ДАЛЬШЕ И УВЕЛИЧИВАЕМ НОМЕР СИМВОЛА

 first_symbol_of_substring(Str,SubStr,NumChar,ResChar):-

frontchar(Str,_,TStr),

NumChar1 = NumChar + 1,

first_symbol_of_substring(TStr,SubStr,NumChar1,ResChar).

 % ЕСЛИ НАШЛИ СИМВОЛ СТРОКИ, СОВПАДАЮЩИЙ С ПЕРВЫМ СИМВОЛОМ ПОДСТРОКИ,

% ТО ПРОВЕРЯЕМ, ДЕЙСТВИТЕЛЬНО ЛИ МЫ НАШЛИ ПОДСТРОКУ В СТРОКЕ

 first_symbol_of_substring1(Str,SubStr,NumChar,ResChar):-

frontchar(Str,Char,TStr),

frontchar(SubStr,SubChar,TSubStr),

Char=SubChar,

first_symbol_of_substring1(TStr,TSubStr,NumChar,ResChar).

 % ЕСЛИ ДА, ТО ВЫВОДИМ НОМЕР СИМВОЛА В СТРОКЕ И САМ СИМВОЛ  

 first_symbol_of_substring1(_,"",NumChar,ResChar):- write(NumChar,"-",ResChar), nl.

goal

Str = "MY LITLE STRING",

SubStr = "RING",

write("STRING:"), nl,

write(Str), nl,

write("SUBSTRING:"), nl,

write(SubStr), nl, nl,

write("1) "),

first_symbol_of_string(Str,Char),

write("2) "),

first_symbol_of_substring(Str,SubStr,1,Char1).

Скриншот

Рис. 1


 

А также другие работы, которые могут Вас заинтересовать

38655. Удосконалення технології відтворення свиней в товариства з обмеженою відповідальністю „Агрофірма"Вільне-2002” Новомосковського району Дніпропетровської області 477.5 KB
  Свинарство–галузь сільськогосподарського виробництва,що забезпечує населення багатьох країн світу цінними продуктами харчування. В Україні створена міцна матеріально-технічна база: розведення племінних свиней займаються більше ніж у 400 племінних господарствах (племзаводи, племрепродуктори), відновлюють роботу промислові комплекси. Товарну свинину виробляють як в державних підприємствах, так і в колективних, фермерських та індивідуальних присадибних селянських господарствах.
38656. Специализированные программные продукты для специалистов по связям с общественностью и рекламе 24.44 KB
  Работа специалиста по СсО и рекламе связана с процессом творения. В XX веке в мире неоднократно предпринимались попытки создания технологий решения нестандартных (креативных) задач. Однако, невзирая на заявления и обещания, фактически так и не удалось построить методики, если не гарантирующей, то хотя бы резко увеличивающей вероятность решения творческих задач
38657. Пути совершенствования организации производства в кафе «Q-Zone» 761 KB
  Современное технологическое оборудование как важная составляющая эффективности производства. Анализ организации производства кафе QZone Организационно-правовая характеристика предприятия и анализ хозяйственной деятельности. Анализ материальнотехнической базы производства кафе. Пути совершенствования организации производства в кафе QZone.
38658. Опис установки, налаштування і оптимізації Windows 7 для забезпечення навчального процесу у компютерних лабораторіях НЕМК в покроковому режимі 2.59 MB
  Знання операційної системи дозволити уникнути багатьох неприємностей. Віруси, «Троянські коні», програми-шпигуни, залишки видалених програм, а також помилки в самій операційній системі можуть привести до помітного зниження швидкодії компютера і втраті даних на жорсткому диску.
38659. Особенности логопедической работы по преодолению темпо-ритмических нарушений у дошкольников с заиканием 480.5 KB
  Обследование речи детей по методике Г. Выделение двух форм заикания – невротической и неврозоподобной – позволяет наиболее полно охарактеризовать не только судорожные проявления в речи заикающихся но и особенности личности как в начальный период развития заикания. Вместе с тем: недостаточная представленность в современной методической литературе психологопедагогической характеристики заикающихся дошкольников делает нашу проблему актуальной От логопеда требуется не только знание практических приемов коррекции речи при заикании но и...
38660. Реорганизация беспроводного сегмента сети ТНУ для обеспечения максимальной надежности, удобства использования и обслуживания 11.94 MB
  Локальные компьютерные сети получили своё развитие в 70х годах ХХ века и продолжают развиваться. Общеобразовательные сети на примере локальной вычислительной сети Таврического Национального Университета обязаны иметь надежный и стабильный доступ к глобальной сети для обеспечения полноценного высококвалифицированного образования. Наличие беспроводного доступа к локальным ресурсам и глобальной сети является конкурентоспособным преимуществом ВУЗа позволяя равномерно распределить доступ к сети между учащимися тем самым уменьшить загруженность...
38661. Избранные комбинаторные задачи 1.46 MB
  Сколькими способами они могут занять очередь Решение Метод перебора: ДАК ДКА АДК АКД КДА КАД. Дерево возможных вариантов: Ответ: 6 способами. Правило суммы: Если объект А может быть выбран n способами а объект В m способами то выбор объектов А или В может быть осуществлён m n способами. Правило произведения: Если объект А может быть выбран n способами и при каждом способе выбора объекта А объект В может быть выбран m способами то выбор объектов А и В можно произвести m ∙ n способами.
38662. Управление кредитным портфелем ОАО «Автовазбанк» (ОАО Банк АВБ) 1.08 MB
  Методы управления кредитным портфелем банка. Формирование кредитного портфеля является одним из основополагающих моментов в деятельности банка позволяющим более четко выработать тактику и стратегию развития коммерческого банка его возможности кредитования клиентов и развития деловой активности на рынке. Кредитный портфель служит главным источником доходов банка и одновременно – главным источником риска при размещении активов. От структуры и качества кредитного портфеля в значительной степени зависит...
38663. Анализ себестоимости продукции в СХПК «Элита» и резервы ее снижения 1.49 MB
  Экономическая сущность себестоимости продукции предприятия.1 Понятие виды состав и значение себестоимости продукции.3 Методы учета затрат и калькулирования себестоимости продукции. Анализ себестоимости продукции в СХПК Элита и резервы ее снижения.