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.

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


 

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

31795. Метод имитационного моделирования управленческого решения 35 KB
  Метод имитационного моделирования управленческого решения. Имитационное моделирование это частный случай математического моделирования. Применение имитационного моделирования К имитационному моделированию прибегают когда: дорого или невозможно экспериментировать на реальном объекте; невозможно построить аналитическую модель: в системе есть время причинные связи последствие нелинейности стохастические случайные переменные; необходимо сымитировать поведение системы во времени. Цель имитационного моделирования состоит в воспроизведении...
31796. Методы моделирования знаний при принятии управленческого решения 34.5 KB
  Методы моделирования знаний при принятии управленческого решения. Проблема моделирования знаний решается в разделе информатики который носит название Искусственный интеллект. Основой любой системы искусственного интеллекта является модель знаний и созданная на ее основе база знаний. Всякая конкретная база знаний содержит модель определенной предметной области.
31797. Место принятия решений в цикле управления. Сущность и классификация управленческих решений 37 KB
  Сущность и классификация управленческих решений. Одной из важнейших задач теории принятия решений ТПР явл достижение большей убедительности выводов и рекомендаций ЛПР и обоснованности выбора лучшего решения. Предметом РУР: не ответ на какое решение принять в той или иной ситуации а ответ на как организовать процесс разработки и принятия решений какие методы при этом использовать.
31798. Концепции и принципы принятия управленческих решений 34.5 KB
  Методология ТПР базируется на совокупности концепции принципов ТПР Концепции Принципы Системы Цели Рацть Множть альтер Наилучш реш Измерение Система необходимо рассм организационную среду как систему Рациональности принятие решения наилучшего варианта среди др принято считать логически не противоречивую полную и количественно подтвержденную систему докв. Наилучшего решения необходимо выбрать...
31799. Модель проблемной ситуации и принятие решений 30 KB
  situtio положение 1 соотношение обстоятельств и условий в крых разворачивается деятельность человека или группы содержащее противоречие и не имеющее однозначного решения; 2 психол. Начальным звеном разрешения возникшего противоречия является заданный человеком самому себе вопрос о причинах возникшей трудности. Проблемная ситуация предполагает неудовлетворенность лица принимающего решения целеустремленное состояние и необходимость действий для устранения проблемы. Свва проблем: 1ее нужно решать 2неповторимость ситуации выбора...
31800. Характеристика процесса разработки решений в сложных ситуациях 31.5 KB
  Характеристика процесса разработки решений в сложных ситуациях. В состав второго блока этапов разработки управленческого решения входят: генерирование альтернативных вариантов решений; отбор основных вариантов управленческих воздействий; разработка сценариев развития ситуации; экспертная оценка основных вариантов управляющих воздействий. Разработка решений это не есть однократный волевой акт осуществляемый ЛПР. Под сложными ситуациями разработки решений мы понимаем такие проблемные ситуации которые отличаются от несложных обыденных...
31801. Методы и технологии разработки управленческих решений в условиях определенности 30 KB
  2 Лексикографическая задача 3 Метод последовательных уступок Суть метода последовательных уступок Процедура решения многокритериальной задачи методом последовательных уступок заключается в том что все частные критерии располагают и нумеруют в порядке их относительной важности; максимизируют первый наиболее важный критерий; затем назначают величину допустимого снижения значения этого критерия и максимизируют второй по важности частный критерий при условии что значение первого критерия не должно отличаться от максимального более чем на...
31802. Понятие риска, составляющие и источники рисков в управлении 26 KB
  Понятие риска составляющие и источники рисков в управлении. Риск [греч. Риск предполагает неуверенность либо невозможность получения достоверного знания о благоприятном исходе в заданных внешних обстоятельствах; Риск в узком смысле измеряемая или рассчитываемая вероятность неблагоприятного исхода что подразумевает наличие статистических данных. Риск принято рассматривать как историческую и экономическую категории.
31803. Стратегии управления риском 24.5 KB
  При принятии страт решений необходимо проводить анализ рисков: 1Качественный анализ определение факторов риска и обстоятельств приводящих к рискованным ситуациям. 2Количественный анализ позволяет вычислить величину отдельных рисков и риска проекта в целом. Способы измерения риска: 1Стаитстическая оценка 2Экспертаная 3Оценка на основе моделей принятия решений.избежание риска.