Скачать .docx |
Курсовая работа: Составление алгоритмов, реализованных в алгоритмическом языке Паскаль
Введение
Задание 1. Теоретический вопрос
Задание 2. Линейные алгоритмы
Задание 3. Алгоритмы ветвления
Задание 4. Алгоритмы обработки массивов
Задание 5. Алгоритмы обработки сложных структур
Заключение
Введение
Курсовая работа состоит из пяти заданий, которые представляют собой комплекс включающий:
1. теоретический вопрос, ответом на который должен являться мини-реферат;
2. четыре задания на составление алгоритмов, реализованных в алгоритмическом языке Паскаль.
Задание 1. Теоретический вопрос
Задание
Закон об информатизации и его основные положения.
Выполнение
ФЕДЕРАЛЬНЫЙ ЗАКОН ОТ 20 ФЕВРАЛЯ 1995 Г. № 24-ФЗ «ОБ ИНФОРМАЦИИ, ИНФОРМАТИЗАЦИИ И ЗАЩИТЕ ИНФОРМАЦИИ»
Принят Государственной Думой 25 января 1995 года.
ГЛАВА 1. ОБЩИЕ ПОЛОЖЕНИЯ
Статья 1. Сфера действия настоящего Федерального закона.
1. Настоящий Федеральный закон регулирует отношения, возникающие при:
· формировании и использовании информационных ресурсов на основе создания, сбора, обработки, накопления, хранения, поиска, распространения и предоставления потребителю документированной информации;
· создании и использовании информационных технологий и средств их обеспечения;
· защите информации, прав субъектов, участвующих в информационных процессах и информатизации.
2. Настоящий Федеральный закон не затрагивает отношений, регулируемых Законом Российской Федерации «Об авторском праве и смежных правах».
Статья 2. Термины, используемые в настоящем Федеральном законе, их определения.
В настоящем Федеральном законе используются следующие понятия:
· информация - сведения о лицах, предметах, фактах, событиях, явлениях и процессах независимо от формы их представления;
· информатизация - организационный социально-экономический и научно-технический процесс создания оптимальных условий для удовлетворения информационных потребностей и реализации прав граждан, органов государственной власти, органов местного самоуправления, организаций, общественных объединений на основе формирования и использования информационных ресурсов;
· документированная информация (документ) - зафиксированная на материальном носителе информация с реквизитами, позволяющими ее идентифицировать;
· информационные процессы - процессы сбора, обработки, накопления, хранения, поиска и распространения информации;
· информационная система - организационно упорядоченная, совокупность документов (массивов документов и информационных технологий, в том числе с использованием средств вычислительной техники и связи), реализующих информационные процессы;
· информационные ресурсы - отдельные документы и отдельные массивы документов, документы и массивы документов в ин формационных системах (библиотеках, архивах, фондах, банках данных, других информационных системах);
· информация о гражданах (персональные данные) - сведения о фактах, событиях и обстоятельствах жизни гражданина, позволяющие идентифицировать его личность;
· конфиденциальная информация - документированная информация, доступ к которой ограничивается в соответствии с законодательством Российской Федерации;
· средства обеспечения автоматизированных информационных систем и их технологий - программные, технические, лингвистические, правовые, организационные средства (программы для электронных вычислительных машин; средства вычислительной техники и связи; словари, тезаурусы и классификаторы; инструкции и методики; положения, уставы; должностные инструкции, схемы и их описания, другая эксплуатационная и сопроводительная документация), используемые или создаваемые при проектировании информационных систем и обеспечивающие их эксплуатацию;
· собственник информационных ресурсов, информационных систем, технологий и средств их обеспечения - субъект, в полном объеме реализующий полномочия владения, пользования, распоряжения указанными объектами;
· владелец информационных ресурсов, информационных систем, технологий и средств их обеспечения - субъект, осуществляющий владение и пользование указанными объектами и реализующий полномочия распоряжения в пределах, установленных законом;
· пользователь (потребитель) информации - субъект, обращающийся к информационной системе или посреднику за получением необходимой ему информации и пользующийся ею.
Статья 3. Обязанности государства в сфере формирования информационных ресурсов и информатизации.
1. Государственная политика в сфере формирования информационных ресурсов и информатизации направлена на создание условий для эффективного и качественного информационного обеспечения решения стратегических и оперативных задач социального и экономического развития Российской Федерации. (Об основах государственной политики в сфере информатизации см. Указ Президента РФ от 20 января 1994 г. № 170.)
2. Основными направлениями государственной политики в сфере информатизации являются:
· обеспечение условий для развития и защиты всех форм собственности на информационные ресурсы;
· формирование и защита государственных информационных ресурсов;
· создание и развитие федеральных и региональных информационных систем и сетей, обеспечение их совместимости и взаимодействия в едином информационном пространстве Российской Федерации;
· создание условий для качественного и эффективного информационного обеспечения граждан, органов государственной власти, органов местного самоуправления, организаций и общественных объединений на основе государственных информационных ресурсов;
· обеспечение национальной безопасности в сфере информатизации, а также обеспечение реализации прав граждан, организаций в условиях информатизации;
· содействие формированию рынка информационных ресурсов, услуг, информационных систем, технологий, средств их обеспечения;
· формирование и осуществление единой научно-технической и промышленной политики в сфере информатизации с учетом современного мирового уровня развития информационных технологий;
· поддержка проектов и программ информатизации;
· создание и совершенствование системы привлечения инвестиций и механизма стимулирования разработки и реализации проектов информатизации;
· развитие законодательства в сфере информационных процессов, информатизации и защиты информации.
ГЛАВА 2. ИНФОРМАЦИОННЫЕ РЕСУРСЫ
Статья 4. Основы правового режима информационных ресурсов.
1. Информационные ресурсы являются объектами отношений физических, юридических лиц, государства, составляют информационные ресурсы России и защищаются законом наряду с другими ресурсами.
2. Правовой режим информационных ресурсов определяется нормами, устанавливающими:
-порядок документирования информации;
· право собственности на отдельные документы и отдельные массивы документов, документы и массивы документов в информационных системах;
· категорию информации по уровню доступа к ней; порядок правовой защиты информации.
Статья 10. Информационные ресурсы по категориям доступа.
1. Государственные информационные ресурсы Российской Федерации являются открытыми и общедоступными. Исключение составляет документированная информация, отнесенная законом к категории ограниченного доступа. (О степенях секретности сведений см.: Закон РФ от 21 июля 1993 г. № 5485-1 «О государственной тайне», постановление Правительства РФ от 4 сентября 1995 г. № 870.)
2. Документированная информация с ограниченным доступом по условиям ее правового режима подразделяется на информацию, отнесенную к государственной тайне, и конфиденциальную.
3. Запрещено относить к информации с ограниченным доступом:
· законодательные и другие нормативные акты, устанавливающие правовой статус органов государственной власти, органов местного самоуправления, организаций, общественных объединений, а также права, свободы и обязанности граждан, порядок их реализации;
· документы, содержащие информацию о чрезвычайных ситуациях, экологическую, метеорологическую, демографическую, санитарно-эпидемиологическую и другую информацию, необходимую для обеспечения безопасного функционирования населенных пунктов, производственных объектов, безопасности граждан и на селения в целом;
· документы, содержащие информацию о деятельности органов государственной власти и органов местного самоуправления, об использовании бюджетных средств и других государственных и местных ресурсов, о состоянии экономики и потребностях населения, за исключением отнесенных к государственной тайне;
· документы, накапливаемые в открытых фондах библиотек и архивов, информационных системах органов государственной власти, органов местного самоуправления, общественных объединений, организаций, представляющие общественный интерес или необходимые для реализации прав, свобод и обязанностей граждан.
· 4. Отнесение информации к государственной тайне осуществляется в соответствии с Законом Российской Федерации «О государственной тайне».
· 5. Отнесение информации к конфиденциальной осуществляется в порядке, установленном законодательством Российской Федерации, за исключением случаев, предусмотренных статьей 11 настоящего Федерального закона.
ГЛАВА 3. ПОЛЬЗОВАНИЕ ИНФОРМАЦИОННЫМИ РЕСУРСАМИ
Статья 12. Реализация права на доступ к информации из информационных ресурсов.
1. Пользователи - граждане, органы государственной власти органы местного самоуправления, организации и общественные объединения - обладают равными правами на доступ к государственным информационным ресурсам и не обязаны обосновывать перед владельцами этих ресурсов необходимость получения запрашиваемой ими информации. Исключение составляет информация с ограниченным доступом.
Доступ физических и юридических лиц к государственным им формационным ресурсам является основой осуществления общественного контроля за деятельностью органов государственном власти, органов местного самоуправления, общественных, политических и иных организаций, а также за состоянием экономики экологии и других сфер общественной жизни.
2. Владельцы информационных ресурсов обеспечивают пользователей (потребителей) информацией из информационных ресурсом на основе законодательства, уставов указанных органов и организаций, положений о них, а также договоров на услуги по информационному обеспечению. (См. Федеральный закон от 19 июля IW8 г. № 113-03 «О гидрометеорологической службе» и Положение об информационных услугах в области гидрометеорологии и мониторинга загрязнения окружающей природной среды, утвержденное постановлением Правительства РФ от 15 ноября 1997 г. № 1425.)
Информация, полученная на законных основаниях из государственных информационных ресурсов гражданами и организациями, может быть использована ими для создания производной информации в целях ее коммерческого распространения с обязательной ссылкой на источник информации.
Источником прибыли в этом случае является результат вложенных труда и средств при создании производной информации, но не исходная информация, полученная из государственных ресурсов.
3. Порядок получения пользователем информации (указание места, времени, ответственных должностных лиц, необходимых процедур) определяет собственник или владелец информационных ресурсов с соблюдением требований, установленных настоящим Федеральным законом.
Перечни информации и услуг по информационному обеспечению, сведения о порядке и условиях доступа к информационным ресурсам владельцы информационных ресурсов и информационных систем предоставляют пользователям бесплатно.
4. Органы государственной власти и организации, ответственные за формирование и использование информационных ресурсов, обеспечивают условия для оперативного и полного предоставления пользователю документированной информации в соответствии с обязанностями, установленными уставами (положениями) этих органов и организаций.
5. Порядок накопления и обработки документированной информации с ограниченным доступом, правила ее защиты и порядок доступа к ней определяются органами государственной власти, ответственными за определенные вид и массивы информации, и соответствии с их компетенцией либо непосредственно ее собственником в соответствии с законодательством.
Статья 13. Гарантии предоставления информации.
I. Органы государственной власти и органы местного самоуправления создают доступные для каждого информационные ресурсы по вопросам деятельности этих органов и подведомственных им организаций, а также в пределах своей компетенции осуществляют массовое информационное обеспечение пользователей по вопросам прав, свобод и обязанностей граждан, их безопасности и другим вопросам, представляющим общественный интерес.
2. Отказ в доступе к информационным ресурсам, предусмотренным в пункте 1 настоящей статьи, может быть обжалован в суд.
3. Комитет при Президенте Российской Федерации по политике информатизации организует регистрацию всех информационных ресурсов, информационных систем и публикацию сведений о них для обеспечения права граждан на доступ к информации. (О государственном учете и регистрации баз и банков данных см. постановление Правительства РФ от 28 февраля 1996 г. № 226.)
4. Перечень информационных услуг, предоставляемых пользователям из государственных информационных ресурсов бесплатно или за плату, не возмещающую в полном размере расходы на услуги, устанавливает Правительство Российской Федерации.
Расходы на указанные услуги компенсируются из средств федерального бюджета и бюджетов субъектов Российской Федерации.
Статья 14. Доступ граждан и организаций к информации о них.
1. Граждане и организации имеют право на доступ к документированной информации о них, на уточнение этой информации в целях обеспечения ее полноты и достоверности, имеют право знать, кто и в каких целях использует или использовал эту информацию. Ограничение доступа граждан и организаций к информации о них допустимо лишь на основаниях, предусмотренных федеральными законами.
2. Владелец документированной информации о гражданах обязан предоставить информацию бесплатно по требованию тех лиц, которых она касается. Ограничения возможны лишь в случаях, предусмотренных законодательством Российской Федерации.
3. Субъекты, представляющие информацию о себе для комплектования информационных ресурсов на основании статей 7 и 8 настоящего Федерального закона, имеют право бесплатно пользоваться этой информацией.
4. Отказ владельца информационных ресурсов субъекту в доступе к информации о нем может быть обжалован в судебном порядке.
Статья 15. Обязанности и ответственность владельца информационных ресурсов.
1. Владелец информационных ресурсов обязан обеспечить соблюдение режима обработки и правил предоставления информации пользователю, установленных законодательством Российской Федерации или собственником этих информационных ресурсов, в соответствии с законодательством.
2. Владелец информационных ресурсов несет юридическую ответственность за нарушение правил работы с информацией в порядке, предусмотренном законодательством Российской Федерации.
ГЛАВА 4. ИНФОРМАТИЗАЦИЯ, ИНФОРМАЦИОННЫЕ СИСТЕМЫ, ТЕХНОЛОГИИ И СРЕДСТВА ИХ ОБЕСПЕЧЕНИЯ
Статья 16. Разработка и производство информационных систем, технологий и средств их обеспечения.
1. Все виды производства информационных систем и сетей, технологий и средств их обеспечения составляют специальную отрасль экономической деятельности, развитие которой определяется государственной научно-технической и промышленной политикой информатизации.
2. Государственные и негосударственные организации, а также граждане имеют равные права на разработку и производство информационных систем, технологий и средств их обеспечения.
3. Государство создает условия для проведения научно-исследовательских и опытно-конструкторских работ в области разработки и производства информационных систем, технологий и средств их обеспечения.
Правительство Российской Федерации определяет приоритетные направления развития информатизации и устанавливает порядок их финансирования.
4. Разработка и эксплуатация федеральных информационных систем финансируются из средств федерального бюджета по статье расходов «Информатика» («Информационное обеспечение»).
5. Органы государственной статистики совместно с Комитетом при Президенте Российской Федерации по политике информатизации устанавливают правила учета и анализа состояния отрасли экономической деятельности, развитие которой определяется государственной научно-технической и промышленной политикой информатизации.
Статья 17. Право собственности на информационные системы, технологии и средства их обеспечения.
I. Информационные системы, технологии и средства их обеспечения могут быть объектами собственности физических и юридических лиц, государства.
2. Собственником информационной системы, технологии и средств их обеспечения признается физическое или юридическое лицо, на средства которого эти объекты произведены, приобретены или получены в порядке наследования, дарения или иным законным способом.
3. Информационные системы, технологии и средства их обеспечения включаются в состав имущества субъекта, осуществляющего права собственника или владельца этих объектов. Информационные системы, технологии и средства их обеспечения выступают в качестве товара (продукции) при соблюдении исключительных прав их разработчиков.
Собственник информационной системы, технологии и средств их обеспечения определяет условия использования этой продукции.
Статья 18. Право авторства и право собственности на информационные системы, технологии и средства их обеспечения.
Право авторства и право собственности на информационные системы, технологии и средства их обеспечения могут принадлежать разным лицам. (О защите авторских и смежных прав см. также Закон РФ от 9 июля 1993 г. № 5351-1 «Об авторских правах».)
Собственник информационной системы, технологии и средств их обеспечения обязан защищать права их автора в соответствии с законодательством Российской Федерации.
Статья 19. Сертификация информационных систем, технологий, средств их обеспечения и лицензирование деятельности по формированию и использованию информационных ресурсов.
1. Информационные системы, базы и банки данных, предназначенные для информационного обслуживания граждан и организаций, подлежат сертификации в порядке, установленном Законом Российской Федерации «О сертификации продукции и услуг».
2. Информационные системы органов государственной власти Российской Федерации и органов государственной власти субъектов Российской Федерации, других государственных органов, организаций, которые обрабатывают документированную информацию с ограниченным доступом, а также средства защиты этих систем подлежат обязательной сертификации. Порядок сертификации определяется законодательством Российской Федерации.
3. Организации, выполняющие работы в области проектирования, производства средств защиты информации и обработки персональных данных, получают лицензии на этот вид деятельности. Порядок лицензирования определяется законодательством Российской Федерации.
4. Интересы потребителя информации при использовании импортной продукции в информационных системах защищаются таможенными органами Российской Федерации на основе международной системы сертификации.
ГЛАВА 5. ЗАЩИТА ИНФОРМАЦИИ И ПРАВ СУБЪЕКТОВ В ОБЛАСТИ ИНФОРМАЦИОННЫХ ПРОЦЕССОВ И ИНФОРМАТИЗАЦИИ
Статья 23. Защита прав субъектов в сфере информационных процессов и информатизации.
1. Защита прав субъектов в сфере формирования информационных ресурсов, пользования информационными ресурсами, разработки, производства и применения информационных систем, технологий и средств их обеспечения осуществляется в целях предупреждения правонарушений, пресечения неправомерных действий, восстановления нарушенных прав и возмещения причиненного ущерба.
2. Защита прав субъектов в указанной сфере осуществляется судом, арбитражным судом, третейским судом с учетом специфики правонарушений и нанесенного ущерба.
3. За правонарушения при работе с документированной информацией органы государственной власти, организации и их должностные лица несут ответственность в соответствии с законодательством Российской Федерации и субъектов Российской Федерации.
Для рассмотрения конфликтных ситуаций и защиты прав участников в сфере формирования и использования информационных ресурсов, создания и использования информационных систем, технологий и средств их обеспечения могут создаваться временные и постоянные третейские суды.
Третейский суд рассматривает конфликты и споры сторон в порядке, установленном законодательством о третейских судах.
4. Ответственность за нарушения международных норм и правил и в области формирования и использования информационных ресурсов, создания и использования информационных систем, технологий и средств их обеспечения возлагается на органы государственной власти, организации и граждан в соответствии с договорами, заключенными ими с зарубежными фирмами и другими партнерами с учетом международных договоров, ратифицированных Российской Федерацией.
Статья 24. Защита права на доступ к информации.
1. Отказ в доступе к открытой информации или предоставление пользователям заведомо недостоверной информации могут быть обжалованы в судебном порядке.
Неисполнение или ненадлежащее исполнение обязательств по договору поставки, купли-продажи, по другим формам обмена информационными ресурсами между организациями рассматриваются арбитражным судом.
Во всех случаях лица, которым отказано в доступе к информации, и лица, получившие недостоверную информацию, имеют право на возмещение понесенного ими ущерба.
2. Суд рассматривает споры о необоснованном отнесении информации к категории информации с ограниченным доступом, иски о возмещении ущерба в случаях необоснованного отказа в предоставлении информации пользователям или в результате других нарушений прав пользователей.
3. Руководители, другие служащие органов государственной власти, организаций, виновные в незаконном ограничении доступа к информации и нарушении режима защиты информации, несут ответственность в соответствии с уголовным, гражданским законодательством и законодательством об административных правонарушениях.
Статья 25. Вступление в силу настоящего Федерального закона.
1. Настоящий Федеральный закон вступает в силу со дня его официального опубликования
2. Предложить Президенту Российской Федерации привести в соответствие с настоящим Федеральным законом изданные им правовые акты.
3. Поручить Правительству Российской Федерации:
· привести в соответствие с настоящим Федеральным законом изданные им правовые акты;
· подготовить и внести в Государственную Думу в трехмесячный срок в установленном порядке предложения о внесении изменений и дополнений в законодательство Российской Федерации в связи с принятием настоящего Федерального закона;
· принять нормативные правовые акты, обеспечивающие реализацию настоящего Федерального закона.
Задание 2. Линейные алгоритмы
Задание
Выполнение
Дана формула для выполнения задания:
Для удобства программирования некоторые части функции представим в виде функций:
,
Программа для указанного варианта имеет следующий вид:
program Task2;
uses
Crt; {Подключение графического модуля}
Var
x:real; {переменные для ввода данных}
m,k,z:real;
begin
ClrScr;
Write('Введите исходные данные (x): ');
ReadLn(x);
m:=4.187+Pi*Pi+sin(x*Pi/7);
k:=tan(3*Pi/4+x*Pi);
z:=m/k;
WriteLn('Исходные данные:');{Вывод на экран исходных данных}
WriteLn('x=',x:3:2);
WriteLn;
Write('Результат: ');{Вывод на экран результат}
WriteLn(' z=',z:3:2);
Readln;
end.
Рис. 1. Примерный вид исходных данных и результатов на экране
Задание 3. Алгоритмы ветвления
Написать программу, определяющую принадлежит ли точка с заданными координатами ( x,y) заштрихованной области на прилагаемом в соответствии с вариантом графике: см. рис. 2.
Рис. 2. График к заданию 3
Выполнение
Рассмотрим условия, при которых точка (x,y) может принадлежать заштрихованной области, для чего выделим 2 функции.
Область ограничена первой функцией: , осью абсцисс и осью ординат. Следовательно, координаты точки должны удовлетворять условию:
.
Также область ограничена второй функцией: , осью абсцисс и осью ординат.
Следовательно, координаты точки должны удовлетворять условию.
.
Оба эти условия могут быть записаны в виде логических выражений, истинность которых будет означать, что данная точка принадлежит заданной фигуре. Можно записать в терминах алгебры логики следующим образом:
Программа для указанного варианта имеет следующий вид:
Program Task3;
Uses
Crt;{Подключаеммодульграфики}
Var
x,y:real;{переменные, координаты заданной точки}
f1,f2,f:Boolean;{переменные, хранения значений функций}
Begin
ClrScr;{Очистка экрана}
Write('Введите значения X и Y: ');
ReadLn(x,y);{Ввод координат точки}
f1:=(x<=0)and(y>=0)and(Sqrt(x*x+y*y)<=4);{Ограничиваем функцию осью асцисс и осью ординат}
f2:=(x<=0)and(y<=0)and(Sqrt(x*x+y*y)<=6);
f:=f1 and f2;
If f then{проверка условия принадлежности области}
WriteLn('Заданная точка принадлежит заданной области')
else
WriteLn('Заданная точка не принадлежит заданной области');
ReadKey;
end.
В результате работы программы на дисплей будет выведено соответствующее сообщение: см. рис. 3.
Рис. 3. Вид выполнения программы по заданию 3
Задание 4. Алгоритмы обработки массивов
Задание. В одномерном массиве, содержащем положительные, отрицательные элементы и нули, найти первый отрицательный элемент. Вывести на экран исходный массив и порядковый номер первого отрицательного элемента.
Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным. Вывести на экран исходный и результирующий массивы.
Выполнение
Алгоритм решения задачи состоит из следующих шагов:
1. ввести исходное количество элементов массива;
2. ввести элементы массива по одному в строке;
3. найти первый отрицательный элемент;
4. последовательно вывести на экран исходный и номер первого отрицательного элемента.
Программа для указанного варианта имеет следующий вид:
Program Task4;
Uses
Crt;{Подключаеммодульграфики}
Var
n,i,j, otr :integer;{переменные}
m:real;{переменная для хранения минимального значения}
a:Array [1..20] of real;{одномерный массив, вещественных чисел}
Begin
ClrScr;{Очистка экрна}
Write('Количество элементов исходного массива? ');
ReadLn(n);{Ввод количества элементов массива}
For i:=1 to n Do{Цикл для ввода элементов массива}
begin
Write('Введите ',i,' элемент массива: ');
ReadLn(a[i]);
end;
For i:=1 to n Do{Циклдляпроверкиминимальныхэлементов}
If a[i]<0 then otr:=i;WriteLn('Исходныймассив:');
For i:=1 to n Do{Вывод на экран исходного массива}
Write(a[i]:3:2,' ');
WriteLn;
WriteLn;
WriteLn('Номер первого отрицательного элемента:');{Вывод на экран номера отрицательного элемента}
Write(otr,' ');
ReadKey;{Задержка. Ожидание нажатия клавиши}
end.
Рис. 4. Примерный вид исходных данных и результата на экране по заданию 4
Задание 5. Алгоритмы обработки сложных структур
линейный алгоритм дисплей одномерный
Задание
Информация о движении междугороднего автобуса содержит следующие данные: название остановки, время прибытия (часы, минуты), время стоянки (минуты), стоимость проезда из начального пункта.
Написать программу, в которой:
· обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;
· организовать выборку из типизированного файла информации об остановках, стоянка на которых выше средней по маршруту, вывод данных о них на экран и сохранение в текстовом файле.
Выполнение
Алгоритм решения задачи должен содержать следующие шаги:
1) организация структуры данных для одного компьютера;
2) циклический ввод данных и сохранение их в типизированном файле;
3) завершение ввода при соответствующем подтверждении путем нажатия клавиш «Y» или «y»;
4) ввод значения средней стоянки по маршруту;
5) выборка и вывод на экран данных по остановкам, стоянка на которых выше средней по маршруту.
Структура данных о компьютере должна содержать следующие поля:
- текстовое поле – название остановки;
- поле целого числа – время прибытия (часы, минуты);
- поле целого числа – время стоянки;
- поле вещественного числа – стоимость проезда из начального пункта .
В результате работы программы в текущем каталоге будут образованы два файла: MGTS.DAT с введенными исходными данными и MGTS.TXT с результатами выборки данных, информация второго файла будет продублирована на дисплее
Программа для указанного варианта имеет следующий вид:
Program Task5;
Uses
Crt;{Подключаеммодульграфики}
type
{структура данных}
t_mgts=record
ost:string; {название остановки}
timeh,timem, min:integer; {время прибытия (часы, минуты), время стоянки}
price:real;{стоимость проезда}
end;
var
m:t_mgts;{переменная для хранения данных}
f:file of t_mgts;{файл для хранения данных}
ft:text;{файл для хранения результатов обработки}
ans:char;{переменная для подтверждения конца ввода}
zmin:real;{заданная средняя продолжительность стоянки }
begin
{создать MGTS.DAT для хранения данных}
ClrScr; {очистка экрана}
assign(f,'mgts.dat');
rewrite(f);
{начать цикл ввода данных и сохранение их в файле}
repeat
{объявить работу с записью t}
with t do
begin
{заполнение полей переменной t данными с клавиатуры}
write('Остановка?');readln(tip);
write('Времяприбытия?');read(timeh); readln(timem);
write('Времястоянки?');readln(min);
write('Стоимостьпроезда?');readln(price);
end;
{запись значений переменной t в файл MGTS.DAT}
write(f,t);
{ввести ответ на запрос об окончании набора данных}
write('Вводзакончен?');
readln(ans);
{закончить цикл ввода при положительном ответе}
until(ans='Y') or (ans='y');
{закрытьфайл MGTS.DAT}
close(f);
{ввести заданную название остановки}
write('Остановка?');readln(zmhz);
{установить файл MGTS.DAT на начало чтения}
ClrScr; {очистка экрана}
reset(f);
{создать файл MGTS.TXT для хранения результатов обработки}
assign(ft,'mgts.txt');
rewrite(ft);
{проверить достижение конца файла MGTS.DAT}
while not eof(f) do
begin
{считать очередную запись файла MGTS.DAT}
read(f,t);
{если номер остановки больше, то сохраняем запись}
if (t.zmin>m.zmin) then
m:=t;
s:=s+m.min;
{вычислить среднее время стоянки}
s:= s/n;
{создать файл mgts.txt для хранения результатов выборки}
assign(ft, 'mgts.txt');
rewrite(ft);
{установить файл mgts.dat на начало для чтения}
reset(f);
{проверить достижения конца файла mgts.dat }
while not eof(f) do
{пока не достигнут конец файла выполнять}
begin
{счтитать очередную запись файла mgts.dat }
read( f, m);
{объявить работу с переменной m}
with m do
if (m=mz) and (min*price>s) then
{если время стоянки выше средней}
begin
{вывести информацию о найденном разговоре на экран}
writeln( ost, timeh, timem, min, price);
{сохранить информацию о найденной остановке в файле mgts.txt }
writeln( ft, ost, timeh, timem, min, price);
end;
end;
{закрыть файл mgts.txt }
close( ft);
end.
1. Алексеев Е.Р., Чеснокова О.В. Турбо Паскаль 7.0. / Е.Р. Алексеев, О.В. Чеснокова. - М.: НТ Пресс, 2007. - 270 с.
2. Безручко В.Т. Компьютерный практикум по курсу «Информатика»: учебное пособие. 3-е изд., перераб. и доп. / В.Т. Безручко. - М.: Форум, 2006. - 368 с.
3. Информатика: учебник/под ред. Н.В. Макаровой. - М.: Финансы и статистика, 2005. - 768 с.
4. Фаронов В.В. Иллюстрированный самоучитель по Турбо Паскалю // http://borlpasc.narod.ru/docym/Faronov/.