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.

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


 

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

32052. Расчеты с покупателями и заказчиками 146 KB
  В книге продаж регистрируются счетафактуры с указанием суммы НДС. В этом случае при отгрузке продавцом товара покупателю и при предъявлении ему расчетных документов продавцом признается доход от продажи и делается запись на суммы указанные в этих документах: Дт 62 Расчеты с покупателями и заказчиками Кт 90 Продажи Одновременно начисляется НДС в бюджет Дт 903 НДС Кт 68 Расчеты по НДС При поступлении оплаты делается запись ДТ 51 50 52 Кт 62 Расчеты с покупателями...
32053. Разработка макета промышленного манипулятора 1.57 MB
  Основным заданием является проектирование и создание макета промышленного манипулятора, который способен перемещать металлический объект с конвейера весом не меньше 100 грамм.
32054. Особенности понимания и переживания террористической угрозы молодежью города Саранска 676.5 KB
  Психология терроризма – одна из наиболее значимых отраслей современной психологической науки. Она включает в себя несколько направлений: психологию терроризма, психологию посттравматических стрессовых расстройств у людей, ставших прямыми и косвенными жертвами терактов, роль средств массовой информации в проблеме терроризма. По мнению В. В. Знакова, одним из важнейших направлений психологии терроризма является изучение переживания и понимания людьми террористической угрозы
32055. ПУТИ СОВЕРШЕНСТВОВАНИЯ УПРАВЛЕНИЯ ДЕНЕЖНЫМИ СРЕДСТВАМИ АО «Amanat Insurance» 1.57 MB
  Сущность и виды денежных потоков.2 Характеристика и управление расчётами денежных потоков. Методы оптимизации денежных потоков предприятия. Отчет о движении денежных средств АО mnt Insurnce.
32056. Влияние таких компонентов самосознания как дружелюбие и альтруистичность студентов педагогического факультета очной формы обучения и способов разрешения конфликтных ситуаций 838 KB
  Подходы к проблеме самосознания и история ее становления в работах отечественных и зарубежных психологов. Проблема становления подходов отечественных и зарубежных психологов к проблеме самосознания. Психологические особенности развития самосознания.
32057. Разработка и сборка солнечной батареи. Применение преобразователя для аккумулирования энергии 1.12 MB
  Снятие вольтамперных характеристик солнечной батареи. Применение DC DC преобразователя для аккумулирования солнечной энергии. Исследование характеристик солнечной батареи. Общая информация о солнечном излучении Количество солнечной энергии падающей на поверхность Земли связано с движением Солнца и зависит от времени суток и времени года.
32059. МЕТОДИЧЕСКИЕ УКАЗАНИЯ по выполнению дипломного проекта бакалавров 2.48 MB
  Сварка специальность оборудование и технологии сварки Краматорск 2011 Министерство образования и науки молодежи и спорта Украины Донбасская государственная машиностроительная академия МЕТОДИЧЕСКИЕ УКАЗАНИЯ по выполнению дипломного проекта бакалавров направление подготовки 6.050504 Сварка специальность оборудование и технологии сварки Утверждено...
32060. Формирование инфраструктуры региональной инновационной системы, обеспечивающую коммерциализацию результатов интеллектуальной собственности в Вологодской области 3.62 MB
  Схема инфраструктуры региональной инновационной системы Вологодской области, модель взаимодействия инвестиционной компании с субъектами инфраструктуры РИС Вологодской области, схема стерильной колонки с сорбентом для очистки крови, план эвакуации БУ ВО «Бизнес-инкубатор»