50873

Работа с файлами, строками и списками

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

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

Задан список списков. Необходимо указать в каких словах есть шипящие буквы. Результат сохранить в файле.

Русский

2014-01-31

64.5 KB

1 чел.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ, НАУКИ, МОЛОДЕЖИ И СПОРТА УКРАИНЫ

ОДЕССКИЙ НАЦИОНАЛЬНЫЙ МОРСКОЙ УНИВЕРСИТЕТ

Кафедра «Информационные технологии»

Отчёт о выполнении лабораторной работы №7

 

«Работа с файлами, строками и списками»

Выполнил:

Студент КСФ 4 к. 4 гр.

Мельников В.Е.

Проверил:

Бодарев А.Д.

Одесса 2013

Задание к работе

Задан список списков. Необходимо указать в каких словах есть шипящие буквы. Результат сохранить в файле.

Листинг

domains

 file = f1

 object = string*

 list = object*

predicates

nondeterm analiz_string(string,integer,integer)

nondeterm glasn_bukva(char)

nondeterm videlenie_stroki(object,object)

nondeterm videlenie_spiska(list,object,object)

append(object,object,object)

save_file(object)

nondeterm start

clauses

     glasn_bukva('ш').

glasn_bukva('щ').

glasn_bukva('ч').

glasn_bukva('х').

 

analiz_string("",0,0).

analiz_string(S,Glas,Sogl) if

  frontchar(S,X,Y),

  glasn_bukva(X),  

  analiz_string(Y,Glasn,Sogl),

  Glas=Glasn+1.

  

analiz_string(S,Glas,Sogl) if

  frontchar(S,X,Y),

  not(glasn_bukva(X)),

  analiz_string(Y,Glas,Sogln),

  Sogl = Sogln+1.

videlenie_stroki([],[]).

videlenie_stroki([X|L],L2) if

  analiz_string(X,G,S),

  G>0,

  write(X,"- есть шипящие\n"),

  videlenie_stroki(L,L1),

  L2 = [X|L1].

     videlenie_stroki([X|L],L1) if

  analiz_string(X,G,S),

  G<=0,

  write(X," - нет шипящих, ","\n"),

  videlenie_stroki(L,L1).

 

append([],L,L).

append([X|L1],L2,[X|Lr]) if

  append(L1,L2,Lr).

 

 

videlenie_spiska([],L,L).

videlenie_spiska([X|L],L1,Rez) if

  videlenie_stroki(X,Spis),

  append(L1,Spis,L2),

  videlenie_spiska(L,L2,Rez).

 save_file(Rez) if

  openwrite(f1,"rezult.txt"),

  writedevice(f1),

  write("Список слов, в которых согласных больше гласных\n"),

  write(Rez),

  closefile(f1).

 

start if

 write("Задан список списков. Из него следует сформировать новый список,\n"),

 write("элементами которого будут слова исходного списка, в которых согласных\n"),

 write("больше гласных. Результат сохранить в файле.\n\n"),  

 write("Список списков строкового типа:\n"),

  readchar(_),

 List = [["проща","земля","пуща","особняк"],["шипилявый","шапошник","чижик-пыжик"],["парабола","штангенциркуль"]],

 write(List,"\n\n"),

 readchar(_),

 videlenie_spiska(List,[],Rez),

 %write("\nСписок из слов, в которых согласных больше гласных:\n"),

 %write(Rez,"\n\n"),

 save_file(Rez),

 write("Результат сохранен в файле rezult.txt\n"),

 readchar(_).

goal

start.

Выполнение программы


 

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

38792. Методы оценки кредитоспособности ссудозаемщика коммерческого банка 1.08 MB
  Кредит выступает опорой современной экономики, неотъемлемым элементом экономического развития. Его используют как крупные предприятия и объединения, так и малые производственные, сельскохозяйственные и торговые структуры; как государства, правительства, так и отдельные граждане. Он становится неизбежным атрибутом товарного хозяйства.
38793. Лісові природно-заповідні території як осередки еволюційного збереження лісового дендрофіторізноманіття 403 KB
  Сучасний стан лісових генетичних ресурсів та стратегії їх збереження. Стратегії збереження генетичної мінливості лісової дендрофлори. Підходи до збереження генетичної мінливості лісового генофонду. Збереження видів деревних рослин іn situ.
38794. ПОВЫШЕНИЕ ЭФФЕКТИВНОСТИ ДЕЯТЕЛЬНОСТИ ПРЕДПРИЯТИЯ В РЫНОЧНЫХ УСЛОВИЯХ (НА ПРИМЕРЕ ООО «ДАБАН») 856.5 KB
  Анализ объема и ассортимента продукции. Анализ структуры продукции и влияние структурных сдвигов на изменение стоимости продукции. Понятие эффективности Целью деятельности любого промышленного предприятия является выпуск определенной продукции выполнение работ оказание услуг установленного объема и качества в определенные сроки. Но при установлении масштабов производства следует исходить не только из народнохозяйственных и индивидуальных потребностей в данной продукции но и в необходимости учитывать достижение максимального...
38795. ЭКОНОМИЧЕСКАЯ ЭФФЕКТИВНОСТЬ ДЕЯТЕЛЬНОСТИ ОРГАНИЗАЦИИ И ПУТИ ЕЕ ПОВЫШЕНИЯ НА ПРИМЕРЕ РУП «КЛИМОВИЧСКОГО ЛИКЕРО-ВОДОЧНОГО ЗАВОДА» 742 KB
  К ним в частности относятся: увеличение реализации остатков готовой продукции на складах продажа неиспользуемого оборудования снижение себестоимости продукции в результате приобретения нового оборудования. Для успешного функционирования каждый хозяйствующий субъект должен стремиться к повышению эффективности своей деятельности на основе рационального использования ресурсного потенциала увеличения прибыльности производства улучшения качества реализуемой продукции. В основе этого понятия лежит ограниченность ресурсов желание экономить...
38796. Исследование учета и анализа денежных средств на примере коммерческой организации ВООИ «Синтез» 555.5 KB
  Теоретические и организационные основы учета и анализа денежных средств. Виды денежных средств организации.Классификация денежных потоков. Нормативная база учета и анализа денежных средств.
38797. Уголовно - правовая квалификация мошенничества 325 KB
  Актуальность темы исследования состоит в том что в ней существует ряд дискуссионных проблем в частности относительно объективной и субъективной природы признаков мошенничества. В условиях недостаточно глубокого исследования признаков и специфики мошенничества наличия в теории уголовного права многих спорных вопросов по этой проблеме нередко возникают затруднения и ошибки при квалификации...
38798. Расчет автоматизированного электропривода поперечной подачи плоскошлифовального станка 3Е711 3.36 MB
  Для увеличения точности шлифования в данном курсовом проекте необходимо уделить особое внимание приводу вертикальной подачи поэтому рассмотрим несколько вариантов его реализации: На основе применения вентильного двигателя: Подключение вентильного двигателя можно реализовать с помощью микросхемы MC 33033 и MC 33039 рис.1 Схема привода на основе БДПТ На основе шагового двигателя: Основные функциональные узлы разомкнутого шагового электропривода приведены на рис. Принцип его работы заключается в том что при изменении частоты...
38799. СТАНОВЛЕНИЕ И РАЗВИТИЕ СОВЕТСКОЙ СУДЕБНОЙ СИСТЕМЫ В СРЕДНЕМ ЗАУРАЛЬЕ (1918–1938 гг.) 1.07 MB
  Деятельность советских судебных органов в Среднем Зауралье 1918 –1938 гг. В условиях изменяющихся политических режимов происходит всесторонняя деформация судебной системы усиление политических и идеологических факторов и подчинение им органов правосудия. Потому для установления подлинной истории судебных советских органов необходимо преодолеть предвзятое отношение к советскому правосудию. Оценка и анализ деятельности судебных органов 19171938х гг.
38800. Системный анализ и синтез предмета нейровоздействия маркетинговых коммуникаций 174 KB
  Сущность формы реализации современных систем маркетинговых коммуникаций. Системный анализ отношений систем маркетинговых коммуникаций. Синтез понятия маркетинговых коммуникаций.