Система программирования Pascal

Размещено на http://www.allbest.ru

Концерн БелЛегПром Республики Беларусь

УО «Барановичский государственный колледж легкой промышленности

им. В. Е.Чернышева»

Отчёт по учебной практике

по программированию

Специальности: 2-40 01 01 «Программное обеспечение информационных технологий»

Место прохождения практики: УО «БГКЛП им. В. Е. Чернышева»

Руководитель практики

от колледжа

Герасимова Е.А.

Учащийся

Сокол Н.Н.

Барановичи

2013 г.



Содержание

Введение

Краткая характеристика места прохождения практики

Состав и назначение программного и технического оснащения рабочего места

Значение и применение персонального компьютера и программного обеспечения в профессиональной деятельности

Перечень и содержание работы в системе программирования Pascal и Delphi

Заключение

Список используемой литературы

Приложения



Введение

Я, учащийся 423 группы дневного отделения БГКЛП имени В. Е. Чернышева, Сокол Николай Николаевич, проходил учебную практику по дисциплине “ Основы алгоритмизации и программирование ” в кабинете № 28, в период с 11.05.2013 по 28.05.2013 года.

Данной практикой руководила преподаватель, Герасимова Елена Алексеевна.

Цели учебной практики:

более углубленное изучение среды программирования, основ алгоритмической структуры, графических возможностей на языках Pascal и Delphi.

освоение азбуки программирования, научиться решать задачи из разных предметных областей и сфер человеческой деятельности.

умение свободно владеть основными навыками программирования на языках Pascal и Delphi.

Обобщение и совершенствование знаний и практических навыков на языках программирования Pascalи Delphi.

Задачи учебной практики:

расширение границ применения языков Pascal и Delphi при создании приложений профессионального цикла;

разработка алгоритма;

разработка интерфейса;

развитие самостоятельности при решении конкретных задач, чувства ответственности, добросовестности, инициативе в работе, как важнейших элементов профессионализма.



1.Краткая характеристика места прохождения практики

Барановичский техникум лёгкой промышленности был образован в июле 1960 года. Развивающаяся текстильная промышленность Беларуси испытывала необходимость во всё большем количестве специалистов в области лёгкой промышленности. С целью удовлетворения этой потребности и был создан техникум, первым директором которого был Циреня Юрий Александрович. В 1970 году техникуму было присвоено имя Василия Ефимовича Чернышёва. С 16 января 1997 года техникум возглавил Лис Александр Александрович. С 1 ноября 1999 года техникуму был присвоен статус колледжа.За годы существования колледж подготовил и выпустил свыше 26480 человек. Сегодня на дневном и заочном отделениях занимается примерно 2675 учащихся. Выпускники колледжа работают руководителями предприятий, начальниками цехов, отделов и участков предприятий в различных городах нашей республики.

В колледже имеются следующие специальности:

программное обеспечение обработки экономической и деловой информации;

технология швейного производства;

машины и аппараты в легкой промышленности и бытового обслуживания;

товароведение;

прядение хлопка;

экономика и организация производства;

технология тканей и тканых изделий;

моделирование и конструирование швейных изделий;

бухгалтерский учет, анализ и контроль

Колледж сотрудничает со многими предприятиями не только в городе Барановичи, но и с предприятиями, в таких городах как Брест, Кобрин, Жодино, Минск, Бобруйск, Новогрудок, Мозырь и многими другими.

Первые самостоятельные шаги учащиеся делают в мастерских, лабораториях и кабинетах, оборудование которых имитирует многие производственные процессы. Более 40 кабинетов и лабораторий оснащенными станками и приборами, наглядными пособиями. Выполнение данных заданий осуществлялось на личном ноутбуке

2. Состав и назначение программного и технического оснащения рабочего стола

Программное обеспечение - это совокупность программ, позволяющих организовать решение задач пользователя на компьютере. До недавнего времени программное обеспечение отождествляли с понятием математического обеспечения. Программное обеспечение является составной частью компьютера, и некоторая его часть поставляется вместе с технической аппаратурой.

КЛАССЫ ПРОГРАММНЫХ ПРОДУКТОВ

Программные продукты можно классифицировать по различным признакам. Рассмотрим классификацию, в которой основополагающим признаком является сфера (область) использования программных продуктов:

аппаратная часть автономных компьютеров и сетей ЭВМ;

функциональные задачи различных предметных областей;

технология разработки программ.

Для поддержки информационной технологии в этих областях выделим соответственно три класса программных продуктов:

системное программное обеспечение;

пакеты прикладных программ;

инструментарий технологии программирования.

Системное программное обеспечение (System Software) - совокупность программ и программных комплексов для обеспечения работы компьютера и сетей ЭВМ.

Системное программное обеспечение направлено:

на создание операционной среды функционирования других программ;

на обеспечение надежной и эффективной работы самого компьютера и вычислительной сети;

на проведение диагностики и профилактики аппаратуры компьютера и вычислительных сетей;

на выполнение вспомогательных технологических процессов (копирование, архивирование, восстановление файлов программ и баз данных и т.д.).

Пакет прикладных программ (application program package) - комплекс взаимосвязанных программ для решения задач определенного класса конкретной предметной области.

Пакеты прикладных программ (ППП) служат программным инструментарием решения функциональных задач и являются самым многочисленным классом программных продуктов. В данный класс входят программные продукты, выполняющие обработку информации различных предметных областей.

Установка программных продуктов на компьютер выполняется квалифицированными пользователями, а непосредственную их эксплуатацию осуществляют, как правило, конечные пользователи - потребители информации, во многих случаях деятельность которых весьма далека от компьютерной области. Данный класс программных продуктов может быть весьма специфичными для отдельных предметных областей.

Краткая характеристика рабочего места ученика (РМУ):

процессор - AMD E-450 APU with Radeon (tm) HD Graphics ;

частота - 1.65 ГГц;

память - 3.00 ГБ;

дисководы - DVD-RW;

размер HDD - диск C - 48.7 Гб, диск D - 416 Гб;

наличие локальной сети (ЛС)(да/нет) - да;

название (ЛС) - сеть Microsoft Windows;

операционная система- - Microsoft Windows 8

встроенные динамики

модем - роутер М-200

Техническое описание персонального компьютера

К важнейшим техническим характеристикам персонального компьютера относятся:

1. разрядность - важнейшая характеристика компьютера, измеряется в битах; она показывает - сколько двоичных разрядов (битов) информации обрабатывается (или передается) за один такт работы микропроцессора, а также - сколько двоичных разрядов может быть использовано для адресации оперативной памяти; компьютеры могут быть соответственно 8-ю, 16-, 32- и 64-разрядными;

2. тактовая частота - сколько элементарных операций (тактов) выполняет микропроцессор в одну секунду;

3. емкость оперативной памяти, измеряется в Мбайтах и поставляется в виде модулей, имеющих 2, 4, 8, 16, 32, 64, 128, 256 и более Мбайт (разрабатываются модули емкостью 1Гбайт);

4. емкость внешней дисковой памяти, измеряется в Мбайтах, Гбайтах и Тбайтах;

5. тип дисплея и видео карты, обеспечивающих вывод графической информации в режимах:

VGA - 650 X 480 пикселей,

SVGA - 800 X 600, 1024 X 768, 1240 X 1024 и более пикселей;

6. количество цветов - монохромные (черно-белые) и цветные, обеспечивающие 16, 256, 16 млн. и более цветов;

Пиксель - это неделимая точка на экране, которая изменяет яркость и цвет (если дисплей цветной). Чем больше пикселей, тем выше качество изображения на экране дисплея.

Быстродействие - это время отклика, приходящееся на одну операцию. Для винчестеров оно составляет 8-16 и более миллисекунд, для оперативной памяти - 8-70 наносекунд.

Производительность компьютера, таким образом, определяется интегрированным показателем, включающим все указанные выше показатели составляющих узлов, и измеряется также в единицах MIPS. Требования к методике ее определения оговорены рядом международных стандартов, используемых для тестирования на стандартных задачах, включающих работу с графикой, видео, компьютерными играми.

3. Значение и применение персонального компьютера и программного обеспечения в профессиональной деятельности

В настоящее время широкую огласку получила всемирная компьютерная сеть Internet - это общемировая совокупность компьютерных сетей, связывающая между собой миллионы компьютеров. Зародышем ее была распределенная сеть ARPAnet, которая была создана по заказу Министерства обороны США для связи между собой компьютеров этого министерства.

Разработанные принципы организации сети оказались настолько удачными, что многие другие организации, особенно университеты и государственные учреждения, стали создавать собственные сети.

Простота использования этой службы привела к тому, что в Internet стал подключаться самый массовый пользователь - домохозяйки и бизнесмены, преподаватели и студенты и т.д.

Следующей сферой применения компьютеров стала промышленная индустрия. Создание высоконадежных систем управления позволило повсеместно автоматизировать процессы изготовления различных товаров, оборудования, линии сборки в автомобильной промышленности. Процессы автоматизации позволили сократить участие человека в процессе производства до минимума.

Одной из самых дорогих и трудоемких сфер использования компьютеров является военная сфера. Эта сфера, с самого начала создания компьютерных систем, шла несколько иным путем. В ней компьютер всегда выступал как оружие или, по крайней мере, как средство управления оружием. В результате этого появились системы управления и наведения ракетными комплексами, наземными и подводными видами оружия. Появились системы обнаружения, отслеживания и поражения вероятного противника.

В быту на основе компьютерных технологий появились так называемые вещи с ограниченным интеллектом. Таким интеллектом обладает почти вся бытовая аппаратура последнего поколения: стиральные машины, телевизоры, видеомагнитофоны, аудиоаппаратура, микроволновые печи и т.д.

В самих компьютерах произошли значительные изменения. Добавились различные устройства позволяющие слышать музыку, просматривать видеофильмы и т.д. Одним из последних достижений в бытовых персональных компьютерах стало создание звукового редактора текста. Если раньше текстов водился в основном с клавиатуры, то после массового выпуска этого редактора, текст можно будет вводить голосом.

Благодаря быстродействию компьютеров появились электронные переводчики, обладающие к тому же памятью на десятки тысяч слов и выражений. Такой переводчик в течение нескольких секунд может переводить тексты и выражения, облегчая общение между людьми говорящими на разных языках.

В сфере правоохранительных органов компьютер значительно облегчил идентификацию и поиск преступников. Если раньше идентификация преступника по отпечаткам пальцев занимала от нескольких часов до нескольких недель, то сейчас, благодаря компьютеризации и созданию базы данных, эта операция занимает всего несколько секунд или минут.

В киноиндустрии компьютер позволил создавать такие эффекты, о которых раньше и не задумывались.

В банковских и складских учетах применение компьютеров в проведении банковских операций - платежи, перевод денежных средств, оформление вкладов, платежи через информационные киоски по пластиковой карточке, снятие денежной наличности по пластиковой карточке в банкомате и т.д.

В архитектурной деятельности - проектирование новых зданий и сооружений, создание чертежей и трехмерных изображений, конструкций, разработка дизайна помещений, окружающего ландшафта, моделирование расстановки мебели.

Таким образом, можно с уверенностью сказать что компьютер, целиком и полностью затрагивает все аспекты жизни человека и является неотъемлемым участником в процессах развития различных сфер применения.

Сферой профессиональной деятельности специалиста являются:

проектные и научно-исследовательские институты, производственные и промышленные предприятия, производящие или эксплуатирующие средства вычислительной техники.

вычислительные центры, лаборатории, отделы учреждений и организаций, создающие и использующие в профессиональной деятельности программные средства.

Профессиональные функции специалиста:

программировать с учетом ресурсов и возможностей средств вычислительной техники.

проводить отладку и экспериментальную проверку отдельных этапов работы.

осуществлять поиск и оптимальный выбор разработанных программных средств, необходимых для создания программного обеспечения.

разрабатывать и оформлять документацию на созданные программные средства.

участвовать в планировании деятельности подразделения.

составлять и оформлять деловую документацию.

оказывать консультативные услуги по вопросам применения компьютерной техники и программных средств.

обеспечивать необходимый уровень защиты информации.

обеспечить оперативное накопление и систематизацию показателей нормативного и справочного фонда и вносить необходимые изменения в рабочую документацию.

рассчитывать длительность производственного цикла, основные нормы труда и показатели использования производственных фондов.

выполнять в процессе эксплуатации вычислительной техники требования охраны труда, пожарной безопасности, обеспечивать выполнение требований энергосбережения.



4. Перечень и содержание работы в системах программирования Pascal и Delphi

Система программирования Pascal

Язык программирования Pascal был разработан в 1968-1971 годах Никлаусом Виртом. Язык был назван в честь выдающегося французского математика и философа Блеза Паскаля (1623-1662) и первоначально создавался для обучения программированию как систематической дисциплине, однако вскоре он стал широко использоваться в профессиональном программировании.

Популярности языка Pascal среди программистов способствовали факторы:

Pascal отражает фундаментальные и наиболее важные концепции (идеи) алгоритмов в очевидной и легко воспринимаемой форме

Язык позволяет четко реализовать идеи структурного программирования и структурной организации данных.

Pascal сыграл большую роль в развитии методов аналитического доказательства правильности программ и позволил реально перейти от методов программ к системам автоматической проверки правильности программ.

Использование в Pascal простых и гибких структур управления: ветвлений, циклов.

Операторы циклы и модули

Оператор присваивания

Оператор присваивания (:=) предписывает выполнить выражение, заданное в его правой части, и присвоить результат переменной занести ее значение в память, идентификатор которой расположен в левой части. Переменная и выражения должны быть совместимы по типу.

Оператор присваивания выполняется следующим образом: сначала вычисляется выражение в правой части присваивания, а затем его значение присваивается переменной, указанной в левой части оператора.

Условные операторы

Условные операторы позволяют проверить некоторые условия и в зависимости от результатов проверки выполнить то или иное действие.

Оператор условия If

Оператор условия If имеет полную и краткую формы.

Полная: If<условие>then<оператор 1>

Краткая: If<условие>then<оператор >;

В качестве условия указывается некоторое логическое выражение. Если условие оказывается истинным - выполняется оператор1, в противном случае выполняется оператор2 (в полной форме) или происходит переход к следующему оператору программы (в краткой форме).

Оператор выбора Case

Caseиспользуется для реализации алгоритма имеющего более двух ветвей. Общий вид оператора Case:

Case селектор of

Список 1 значений селектора : оператор 1;

Список 2 значений селектора : оператор 2;

…

Список N значений селектора : оператор N;

Else оператор; End;

Ветвь Else оператора Case может отсутствовать.

Селектор - выражение, скалярного типа (но не вещественного). Выполнение оператора начинается с вычисления значения селектора. Затем для исполнения выбирается оператор, одна из меток которого совпадает с полученным значением. После выполнения этого оператора управление передается на оператор следующий за оператором выбора. Если значение селектора не совпало ни с одной из меток, то выполняется оператор, стоящий после слова ELSE.

Операторы цикла

Цикл позволяет многократно выполнить некоторую последовательность действий, которая задается операторами, составляющими тело цикла. В Pascale имеется несколько разновидностей оператора цикла.

Оператор цикла WHILE

Оператор цикла while или оператор цикла с предусловием имеет следующую форму:

While<условие>do

Условие - булевское выражение, тело цикла - простой или составной оператор. Перед каждым выполнением тела цикла вычисляется значение выражения условия. Если результат равен True, то тело цикла выполняется, и снова вычисляется выражение условия. Если результат равен False, происходит выход из цикла и переход к первому после while оператору.

Оператор цикла FOR

Оператор цикла с параметром используется для организации цикла с известным числом повторений. В цикле FOR, параметр цикла автоматически увеличивается на единицу, если используется конструкция for..to..do, параметр цикла уменьшается на единицу, если используется конструкция for..to..downto.

Общий вид оператора For:

For<параметр цикла>:=<S1>to<S2>do<оператор>;

Или

For<параметр цикла>:=<S1>to<S2>downto<оператор>;

Для каждого значения переменной-параметра выполняется тело цикла. Значение параметра цикла после завершения цикла считается неопределенным.

Если для цикла for ..to..do начальное значение переменной цикла больше конечного значения или для цикла for ..to..downto начальное значение переменной цикла меньше конечного значения, то тело цикла не выполнится ни разу.

Модуль CRT

В модуле CRT сосредоточены процедуры и функции, обеспечивающие управление в текстовом режиме, работой экрана. С помощью входящих модулей подпрограмм, можно перемещать курсор в произвольную позицию экрана, менять цвет и окружающий их фон, задавать окна.

Функции модуля CRT:

FunctionKeyPressed: Boolean- возвращает TRUE если на клавиатуре была нажата клавиша, возвращает FALSE в противоположном случае.

FunctionReadKey: char - читает символ с клавиатуры без эхо повтора на экране, приостанавливает выполнение программы до нажатия любой клавиши, кроме Shift, Control, Alt, CapsLock, Numlock.

FunctionWhereY: Byte - возвращает вертикальную координату текущей позиции курсора, относительно текущего окна.

ProcedureClrScr - очищает экран и помещает курсор в верхний левый угол.

ProcedureDelay (D: Word) - приостанавливает работу программы на указанное число D (мили секунды).

ProcedureGotoXY (x,y: Byte) - перемещает курсор в нужное место экрана.

Модуль GRAPH

Модуль UnitGraph представляет собой библиотеку подпрограмм обеспечивающее полное управление графическими режимами для различных адаптеров дисплея.

SetFillStyte (Pattern, Color: Word) - устанавливает новый графический режим и очищает экран.

SetColor (Color: Word) - устанавливает цвет которым выполняется рисование.

SetBkColor (Color: Word) - установка цвета фона.

Массивы

Массив - это структурированный тип данных, состоящий из фиксированного числа элементов, имеющих один и тот же тип. Массив обозначается одним именем. Доступ к конкретному элементу массива осуществляется с помощью индексов, которые указывают в квадратных скобках после имени. Если в программе используется массив, то он должен быть описан, либо в разделе переменных VAR, либо в разделе типов TYPE.

При объявлении массива вначале указывают его имя, а затем, после двоеточия и слова array, - интервал изменения индексов в квадратных скобках, ключевое слово of и указатель типа элементов в массиве.

Строки

Строка - это последовательность символов ASCII. При использовании в выражениях строка заключается в апострофы. Количество символов в строке может динамически изменяться в пределах от 0 до 255. Для определения данных строкового типа используется идентификатор string, за которым следует заключенное в квадратные скобки значение максимально допустимой длины строки данного типа. Если это значение не указывается, то по умолчанию длина строки принимается равной 255 байтам.

Действия над строками и символами реализуются с помощью стандартных процедур и функций:

Copy (st, index, count ) - функция типа String, которая из строки st копирует count символов, начиная с символа с номером index.

Delete (st, index, count) - процедура, которая удаляет count символов из строки st, начиная с символа с номером index.

Length (st ) - функция типа Integer, которая возвращает длину строки st.

Pos (subst, st) - фикция типа Integer, отыскивающая в строке st первое вхождение подстроки subst и возвращающая номер позиции, с которой она начинается; если подстрока не найдена, возвращает ноль.

Процедуры

Процедура - независимая именованная часть программы, которую можно вызвать по имени для выполнения определенных действий.

Описание процедуры включает заголовок (имя процедуры) и тело процедуры. Заголовок состоит из зарезервированного слова procedure, идентификатора (имени) процедуры и необязательного, заключения в круглые скобки, списка формальных параметров с указанием типа каждого параметра. Имя процедуры - идентификатор, уникальный в пределах программы. Тело процедуры представляет собой локальный блок, по структуре аналогичный программе.

Файлы

Файл - это именованная область данных на внешнем физическом носителе. Для того чтобы программа смогла найти нужный файл, необходимо знать путь «ведущий» к файлу. Обычно путь начинается с имени диска, которое заканчивается символом двоеточия. Последним в пути указывается имя файла:

В Pascal различают три вида файлов в зависимости от способа их организации и доступа к элементам:

текстовый файл - это файл, состоящий из строк. Примером текстового файла может служить файл исходного текста программы (расширение *.pas). Для работы с текстовым файлом должна быть описана соответствующая файловая переменная: Var F: Text.

типизированные файлы имеют строго заданную их описанием структуру, когда все элементы имеют фиксированный и одинаковый размер. Это свойство типизированных файлов позволяет получить доступ к любому компоненту файла по его порядковому номеру. Элементами такого файла являются, как правило, записи. В описании файловой переменной указывается ее тип: Var F: Fileofchar.

нетипизированный файл - это файл, в котором данные не имеют определенного типа и рассматриваются как последовательность байт. Файловая переменная объявляется: Var F: File.

Общая схема работы с файлами

Вне зависимости от файлового типа, любая программа работы с файлом должна выполнить следующие действия:

определить переменные файлового типа;

каждому из используемых физических файлов поставить в соответствие переменную файлового типа;

открыть файл - то есть сделать доступным существующий файл для ввода и вывода. В случае отсутствия файл должен быть создан;

обработать файл. Данные из файла сначала считываются в оперативную память компьютера. Чтение данных или их запись выполняются при помощи стандартных инструкций ввода \ вывода;

закрыть файл, т.е. сохранить данные на диске после окончания работы с файлами. программирование pascal оператор файл

Система программирования Delphi

Как любая подобная система, Delphi предназначена для разработки программ и имеет две характерные особенности: создаваемые с ее помощью программы могут работать не только под управлением Windows, а сама она относится к классу инструментальных средств ускоренной разработки программ.

В системе Delphi используется специализированная, постоянно совершенствуемая версия языка программирования Pascal, которая называется Delphi.

Проект программы в Delphi состоит из, собственно, файла проекта (файл с расширением .dpr), одного или нескольких файлов исходного текста (с расширением .pas), файлов с описанием окон формы (с расширением .dfm) и нескольких вспомогательных файлов.

В файле проекта находится информация о модулях, составляющих данный проект. Файл проекта автоматически создается и редактируется средой Delphi и не предназначен для редактирования.

Файл исходного текста - программный модуль (Unit) предназначен для размещения в нем программистом текстов программ на языке Pascal.

Вкладки Delphi

Standard

На вкладке Standard палитры компонентов сосредоточены стандартные для Windows интерфейсные элементы, без которых не обходится практически ни одна программа.

MainMenu -главное меню программы. Компонент способен создавать и обслуживать сложные иерархические меню.

Label - метка. Этот компонент используется для размещения в окне не очень длинных однострочных надписей.

Edit - однострочное редактируемое текстовое поле. Предназначено для ввода, отображения или редактирования одной текстовой строки.

Memo -поле предназначено для ввода, редактирования и (или) отображения достаточно длинного текста, содержащего большое количество строк.

Button - кнопка. Обработчик события OnClick этого компонента обычно используется для реализации некоторой команды.

ComboBox - комбинированный список. Представляет собой комбинацию списка и однострочного текстового поля.

Panel - панель используется в качестве контейнера для расположения других интерфейсных элементов.

Additional

На вкладке Additional имеются дополнительныt компоненты, с помощью которых можно разнообразить вид диалоговых.

StringGrid - текстовая таблица. Этот компонент обладает мощными возможностями для представления текстовой информации в табличном виде.

Image - изображения. Этот компонент предназначен для отображения рисунков, в том числе значков и метафайлов.

Bevel - кромка. Служит для выделения отдельных частей окна трехмерными рамками или полосами. Компонент предназначен для выделения группы элементов или отделения их друг от друга.

ColorBox - список выбора цвета. Специальный вариант компонента ComboBox для выбора одного из системных цветов.

BitBtn - командная кнопка, которая помимо текста может содержать графическое изображение. Растровое изображение определяется с помощью свойства Glyph.

SpeedButton - пиктографическая кнопка используется для быстрого доступа к тем или иным опциям главного меню(может фиксироваться в утопленном состоянии).

Win32

Компоненты страницы Win32 предназначены для разработки программ с усложненным интерфейсом.

TabControl- набор вкладок.

Tabs - определяет названия и количество закладок.

TAnimate - отображение анимации - представляет собой проигрыватель видеоклипов формата AVI. Компонент воспроизводит видеочасть файла AVI и игнорирует его звуковое сопровождение.

TDateTimePicker - ввод и отображение даты/времени.

TrichEdit - ввод и отображение .rtfтекста. Хранит дополнительную служебную информацию, управляющую свойствами каждого абзаца и сменой шрифта по ходу текста.

System

На вкладке System представлены компоненты, которые имеют различное функциональное назначение, в том числе компоненты, поддерживающие стандартные для Windows технологии межпрограммного обмена данными OLE(ObjectLinkingandEmbedding- связывание и внедрение объектов) и

DDE (DynamicDataExchange - динамический обмен данными).

Например:

PaintBox - окно для рисования. Создает прямоугольную область, предназначенную для прорисовки графических изображений.

MediaPlayer - медиаплейеер. С помощью этого компонента можно управлять различными мультимедийными устройствами.Timer - таймер. Этот компонент служит для отсчета интервалов реального времени.



Заключение

Компьютер занял прочное место в нашей жизни. Без него сейчас практически не может обходиться ни один человек. Компьютер стал верным помощником, который помогает облегчить работу, разнообразить досуг, стал незаменимым источником информации и её хранителем.

Мир изменяется так быстро, что многие за этим не поспевают. Люди, жившие сто лет назад, вряд ли могли себе представить нынешние технологические достижения. Автомобили, самолеты, телефоны, телевизоры, компьютеры - мы воспринимаем как должное. Технологии будут изменять общество еще глубже и быстрее, чем можно вообразить.

Подводя итоги учебной практики по дисциплине «Основы алгоритмизации и программирования», можно сделать вывод о том, что поставленные цели и задачи были успешно выполнены: были обобщены и усовершенствованы теоретические знания и практические навыки. Практические знания еще раз подтвердили необходимость использования компьютера в повседневной жизни.

Непосредственно, компьютер в профессии техник-программист нужен для построения графиков функций, выполнение расчётов, организаций экспериментов, ведение диалога, обучение и контроль знаний и др.



Список использованных источников

1.Компьютерные технологии обработки информации. Под ред.С. В. Назарова - М.: Финансы и статистика, 1995.

2.Фленов М. Е. Библия Delphi. - 2-е изд., перераб. и доп. - СПб.: БХВ-Петербург, 2008. - 800 с.: ил.

3. Кузнецов Е. Ю., Осман В. М. Персональные компьютеры и программируемые микрокалькуляторы: Учеб. пособие для ВТУЗов - М.: Высш. шк. -1991 г. 160 с

4.Кэнту М. Delphi 7:Для профессионалов - СПб.:Питер,2004. - 1101с.: ил.

5. Жигарев А. Н. Основы компьютерной грамоты -Л. Машиностроение. Ленинг. отд-ие, 1987 г. - 255 с.

6.Программирование алгоритмов в среде Delphi: Лабораторный практикум по курсам «Программирование» и «Основы алгоритмизации и программирование» для студентов 1- 2 курсов всех специальностей БГУИР в двух частях 1/ А.В.Гуревич, В.Е.Карцев, С.В.Колосов, А.А.Лавренов, А.А.Навроцкий, А.К.Синицын, А.В.Щербаков; Под общ.ред. А.К.Синицина - Мн.: БГУИР, 2002. - 80с.: ил.

7.Бобровский С. И. Delphi 7. Учебный курс - СПб.:Питер,2004. - 736с.:



Приложение А

Дано 3-ёхзначное число. В нём зачеркнули последнюю цифру справа и приписали её в начало. Найти полученное число.

Program z_2

Var x,a,c,p :integer;

begin

writeln ('Введите число');

readln(x);

a:=x div 10;

c:=x mod 10;

p:=c*100+a;

writeln('Число равно',p);

end.

Дано 3-ёх значное число. Проверить будет ли хотя бы одна цифра числа кратна 5-ти.

Program z_4

Var a,b,c,d,x,y,z :integer;

begin

readln(d);

a:=d div 100;

b:=d div 10;

c:=d mod 10;

r:=a mod 5;

y:=b mod 5;

z:=c mod 5;

if (x=0) or (y=0) or (z=0) then

writeln('Кратно')else

writeln(Не кратно);

end.

Дано 3-ёхзначное число.

A. Верно ли, что все его цифры одинаковы.

B. Определить, есть ли среди его цифр одинаковые.

Programz_5a

Var w, d, c, b, a :integer;

begin

writeln ('введите числоa=');

readln(a);

c:=a div 100;

b:=a div 10;

w:=b mod 10;

d:=a mod 10;

if (c=w)and(c=d)and(w=d) then

writeln('одинаковые')

else writeln ('разные');

if (с=w) or (c=d) or (w=d) then

writeln ('есть одинаковые')

else writeln ('Нет одинаковых');

end

В подъезде жилого дома имеется n квартир, пронумерованных подряд, начиная с номера A. Определить, является ли сумма номеров всех квартир чётным числом.

Program z_7

Uses crt;

Var n, a, s, i :integer;

begin

clrscr

writeln('всего квартир');

read(n);

writeln('первая квартира');

readln(a);

i=1;

s:=a

while i<n do

begin

i:=i+1;

a:=4+1;

s:=s+a;

end;

writeln (s);

if (sr mod 2=0) then writeln('чётное число')else write('нечётное число');

end.

Дано натуральное число n (n<=9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя цифрами, как, например, числа 3363, 4844, 0300 и т.п.

Program z_8

Uses crt;

Var n, a, b, c, d :integer;

f:boolean;

begin

clrser;

readln(n);

a:=n div 1000;

b:=(n div 100) mod 10;

c:=(n div 10)mod 10;

d:=n mod 10;

f:=False

if(a=b) and (b=c) then b:=true;

if(a=c) and (b=d) then d:=true;

if(a=c) and (c=d) then b:=true;

if(b=c) and (c=d) then b:=true;

if b=truewriteln ('Число содержацее три одиноковые цифры')

end.

Даны четыре целых числа. Определить, сколько из них отрицательных.

Program z_9

usescrt;

var n:integer;

a,b,c,d:real;

n:integer;

begin

clrscr;

n:=0;

readln (a);

readln (b);

readln (c);

readln (d);

if a<0 then n:=n+1;

if b<0 then n:=n+1;

if c<0 then n:=n+1;

if d<0 then n'=n+1;

writeln('Кол-во отрицательных чисел=',n);

end.

Игральным картам условно присвоены следующие порядковые номера: "Пики"-1, "Трефы"-2, "Бубны"-3, "Червы"-4. По заданному номеру масти m (1<=m<=4) определить название соответствующей масти.

Program z_10

Var n: integer;

begin

writeln('Введите цифру');

readln(n);

if (n<1) or (n>4) then

writeln ('Нет такой масти');

else

case n of

1: writeln('Пики');

2:writeln('Трефы');

3:writeln('Бубна');

4:writeln('Червы');

end.

readln;

end.

Даны вещественные положительные числа a, b, c. Выяснить, существует ли треугольник со сторонами a, b, c.

Program z_6

Uses crt

Var a, b, c :veal;

begin

read(a);

read(b);

read(c);

if not ((a+b>c)and (a+c>b)and(c+b>a)

then writeln ('несуществует')

else if (sqr(a)+sqr(b)=sqr(c))or

if sqr (c)+sqr(b)=sqr(a))or (sqr(a)+sqr(c)=sqr(b)) then

writeln ('прямоугольный треугольник')

else writeln('существует');

end.

Дано целое число большее 99. Проверить, будет ли чётной цифрой 3-тья от конца цифра числа.

Program z_3;

Var a, b, c, x: integer;

begin

repeat readln n(x) until x>99;

a:=x div 100;

b:=x mod 2;

if b <> 0 then

writeln('Нечётное');

if b =0 then

writeln ('чётное');

writeln (a);

end.

Из трёхзначного числа X вычли его последнюю цифру. Когда результат разделили на 10,а к частному слева приписали последнюю цифру числах X, то получилось число 423.Найти число X.

Program z_1

Var chastnoe, cifra ,x ,y :integer;

begin

y=423;

cifra:=(y div 100);

chastnoe:=(y mod 100);

x:=chastnoe *10+cifra;

writeln(x);

end.



Приложение 2

Разработать приложение, позволяющее воспроизводить звуковые файлы различных форматов, приложение должно выводить информацию о длине звукового файла, времени воспроизведения и времени, которое осталось до конца звучания файла.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, MPlayer, jpeg;

type

TForm1 = class(TForm)

MediaPlayer1: TMediaPlayer;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Timer1: TTimer;

OpenDialog1: TOpenDialog;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

Function MusicToStr(n: longint): string;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}procedure TForm1.FormActivate(Sender: TObject);

begin

label1.Font.Color := clGreen; Label2.Font.Color := clGreen;

LabeL3.Font.Color := clGreen; Label4.Font.Color := clGreen;

Label1.Caption := '00:00'; Label2.Caption := 'no file...';

LabeL3.Caption := '00:00'; LabeL4.Caption := '00:00';

OpenDialog1.Filter := 'Mp3 files (*.mp3)|*.MP3';

end;

procedure TForm1.Button1Click(Sender: TObject);

var leng, posit, remain: longint;

begin

If OpenDialog1.Execute=true Then

Begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open; // открываем файл

Label1.Font.Color := clRed; // включаем индикатор

Label2.Font.Color := clGreen;

LabeL3.Font.Color := clRed;

Label4.Font.Color := clRed;

leng := MediaPlayer1.Length;

posit := MediaPlayer1.Position;

remain := leng - posit;

Label1.Caption := MediaPlayer1.FileName;

Label2.Caption := MusicToStr(posit);

Label3.Caption := MusicToStr(leng);

Label4.Caption := MusicToStr(remain);

Timer1.Enabled:=True;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

If mpCanPlay in MediaPlayer1.Capabilities Then MediaPlayer1.Play;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

If mpCanPlay in MediaPlayer1.Capabilities Then

Begin

MediaPlayer1.Stop;

MediaPlayer1.Position := 0;

End;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

If mpCanPlay in MediaPlayer1.Capabilities Then MediaPlayer1.Pause;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

If mpCanPlay in MediaPlayer1.Capabilities Then

Begin

If (MediaPlayer1.Position+10000)<=MediaPlayer1.Length Then

MediaPlayer1.Position := MediaPlayer1.Position + 10000

Else

MediaPlayer1.Position := MediaPlayer1.Length;

MediaPlayer1.Play;

End;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

If mpCanPlay in MediaPlayer1.Capabilities Then

Begin

If MediaPlayer1.Position>=10000 then

MediaPlayer1.Position := MediaPlayer1.Position -10000

Else

MediaPlayer1.Position := 0;

MediaPlayer1 .Play;

end;

end;

Function TForm1.MusicToStr(n: longint): string;

Var

s: string;

min, sec: Longint;

Begin

sec := trunc(n/1000);

min := trunc(sec/60);

sec := sec - min*60;

s := IntToStr(min);

If sec<10 Then

s := s + ':0' + IntToStr(sec)

Else

s := s + ':' + IntToStr(sec);

MusicToStr := s;

End;

procedure TForm1.Timer1Timer(Sender: TObject);

var leng, posit, remain: longint;

begin

leng := MediaPlayer1.Length;

posit := MediaPlayer1.Position;

remain := leng - posit;

Label1.Caption := MusicToStr(posit);

Label2.Caption := MediaPlayer1.FileName;

Label3.Caption := MusicToStr(leng);

Label4.Caption := MusicToStr(remain);

end;

end.



Создать приложение для построения графика функции F(x)=2sinx*ex/5.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm1 = class(TForm)

procedureFormPaint(Sender: TObject);

procedureFormResize(Sender: TObject);

procedureFormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function f(x:real):real;

begin

f:=2*sin(x)*exp(x/5);

end;

procedure groffunc;

Var

x1,x2:real;

y1,y2:real;

x:real;

y:real;

dx:real;

l,b:integer;

w,h:integer;

mx,my:real;

x0,y0:integer ;

begin

l:=10;

b:=form1.ClientHeight-20;

h:=form1.ClientHeight-40;

w:=form1.Clientwidth-40;

x1:=0;

x2:=25;

dx:=0.01;

y1:=f(x1);

y2:=f(x1);

x:=x1;

repeat

y:=f(x);

if y<y1 then y1:=y;

if y>y2 then y2:=y;

x:=x+dx;

until (x>=x2);

my:=h/abs(y2-y1);

mx:=w/abs(x2-x1);

x0:=l;

y0:=b-abs(round(y1*my));

with form1.Canvas do

begin

moveto(l,b);lineto(l,b-h);

moveto(x0,y0);lineto(x0+w,y0);

textout(l+5,b-h,floattostrf(y2,ffgeneral,6,3));

textout(l+5,b,floattostrf(y1,ffgeneral,6,3));

x:=x1;

repeat

y:=f(x);

pixels[x0+round(x*mx),y0-round(y*my)]:=clred;

x:=x+dx;

until(x>=x2);

end;

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

groffunc;

end;

procedure TForm1.FormResize(Sender: TObject);

begin

form1.Canvas.FillRect(rect(0,0,clientwidth,clientheight));

groffunc;

end;



Составить приложение «Справочник городов»

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, Menus, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

Panel1: TPanel;

FindEdit: TEdit;

procedure N6Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure FindEditChange(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses DataModuleUnit, TownBookUnit1, EditFormUnit1;

{$R *.dfm}

procedure TForm1.N6Click(Sender: TObject);

begin

TownBookForm.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

DataModule2.BookTable.Insert;

EditFormUnit.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

EditFormUnit.ShowModal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

If

Applcation.MessageBox(PChar('Вы_действительно_хотите_удалить'+DataModule2.BookTableDSDesigner.AsString), 'Внимание!!!', MB_OkCancel)=id_Ok then DataModule2.BookTable.Delete;

end;

procedure TForm1.FindEditChange(Sender: TObject);

begin

if Length(FindEdit.Text)>0 then

DataModule2.BookTable.Filtered:=true

Else DataModule2.BookTable.Filtered:=false;

DataModule2.BookTable.Filter:='Фамилия>'''+FindEdit.Text+'''';

end;

procedure TForm1.N10Click(Sender: TObject);

begin

DataModule2.BookTable.IndexFieldNames:='Телефон';

end;

procedure TForm1.N11Click(Sender: TObject);

begin

DataModule2.BookTable.IndexFieldNames:='Фамилия';

end;

end.

Размещено на www.allbest.ru