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.

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


 

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

31787. Система нормативного регулирования аудиторской деятельности в РФ. Федеральный закон «Об аудиторской деятельности» 37.5 KB
  Федеральный закон Об аудиторской деятельности. К правовым и законодательным документам по аудиторской деятельности в РФ относятся: Гражданский кодекс РФ; Федеральный закон Об аудиторской деятельности N 307 от 30122008 в ред. N 80 О вопросах государственного регулирования аудиторской деятельности в РФ ; Положение о лицензировании аудиторской деятельности утвержденное Постановлением Правительства РФ от 29 марта 2002 г.
31788. Система нормативного регулирования бухгалтерского учета и отчетности в России 30.5 KB
  Целью нормативного регулирования бухучета является обеспечение доступа всем заинтересованным пользователям к информации предоставляющей объективную картину финансового положения и результатов хозяйственной деятельности предприятия. Рыночная экономика потребовала разработки новой системы нормативных документов регламентирующих вопросы организации и ведения бухгалтерского учета в организации а также определения роли государственных органов в ее создании. Все вопросы организации бухучета регламентируются Министерством финансов РФ.
31789. Система «стандарт-кост» 36.5 KB
  традиционный учет по полной себестоимости принятый в отечественной промышленности или стандарткост принятый в зарубежной практике; Система неполного ограниченного включения затрат в себестоимость по какомулибо признаку например по признаку зависимости расходов от объемов производства то есть система директкостинг. Отличия системы нормативных затрат стандарткост и нормативного метода учета затрат лежат в нескольких плоскостях: 1 В способе калькулирования себестоимости продукции и определения прибыли: в нормативном учете в...
31790. Особенности организации системы внутреннего контроля в субъектах малого бизнеса 37.5 KB
  Особенности организации системы внутреннего контроля в субъектах малого бизнеса Аннотация:В малом бизнесе внутренний контроль организуется на средства хозяйствующего субъекта по решению руководства для повышения эффективности управления. Определяя необходимость функционирования внутрихозяйственного контроля целесообразно рассмотреть элементы системы внутреннего контроля. Определяя необходимость функционирования внутрихозяйственного контроля целесообразно рассмотреть элементы системы внутреннего контроля. В научной и учебной литературе...
31791. Системы управленческого учета 41.5 KB
  Финансовый учет это система сбора и обработки информации о финансовом состоянии организации он включает в себя бухучет. На микроуровне к финансовому учету относится отчетность предприятия перед вышестоящим предприятием. Управленческий учет – это система сбора и обработки информации в целях принятия управленческих решений на всех уровнях управления предприятия.
31792. Концепция автоматизации поддержки принятия управленческих решений 34.5 KB
  2Необходима поддержка со сторон др делового лица 3Необходимо применение человеком технологий основанных на использовании современных технологий коммуникации – СППР. СППР – интерактивная АИС использующая модели выбора решений обеспечивающая пользователям удобный и эффективный доступ к централизованным информационным ресурсам и предоставляющая возможности по переработке и отображению информации. Структура СППР: 1Функциональная подсистема принятия решений. Включает: акомпонент формирования морфологических таблиц бкомпонент математических...
31793. Факторы, определяющие эффективность управленческих решений 27.5 KB
  К числу этих факторов следует отнести: законы объективного мира связанные с принятием и реализацией управленческих решений; четкую формулировку цели для чего принимается управленческое решение какие реальные результаты могут быть достигнуты как измерить соотнести поставленную цель и достигнутые результаты; объём и ценность располагаемой информации для успешного принятия управленческого решения главным является не объём информации а ценность определяемая уровнем профессионализма опыта интуицией кадров; время разработки...
31794. Типы управленческих решений и формы их поддержки 28 KB
  Традиционно управленческие решения принято разделять на аналитические и поисковые творческие. Творческий поисковый подход используют тогда когда ищут нестандартные не использовавшиеся в прошлом решения. Кроме того серьезным препятствием является неумение выявить существенную информацию необходимую для принятия решения иногда это называют неумением отделить фигуру от фона.1 пример задачи с перекладыванием спичек может служить хорошей иллюстрацией введения искусственных ограничений: чаще всего поиск решения лежит в области арифметики ...
31795. Метод имитационного моделирования управленческого решения 35 KB
  Метод имитационного моделирования управленческого решения. Имитационное моделирование это частный случай математического моделирования. Применение имитационного моделирования К имитационному моделированию прибегают когда: дорого или невозможно экспериментировать на реальном объекте; невозможно построить аналитическую модель: в системе есть время причинные связи последствие нелинейности стохастические случайные переменные; необходимо сымитировать поведение системы во времени. Цель имитационного моделирования состоит в воспроизведении...