Электронный помощник преподавателя дисциплины "Математические методы". Задача управления запасами - Программирование, компьютеры и кибернетика дипломная работа
Главная
Программирование, компьютеры и кибернетика
Электронный помощник преподавателя дисциплины "Математические методы". Задача управления запасами
Облегчение работы преподавателям, при проверке практических работ студентов. Возможности объектно-ориентированного программирования. Определение оптимальной производственной программы. Минимальные требования к системе и ПК. Руководство пользователя.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Министерство науки и образования Российской Федерации
Федеральное агенство по образованию Российской Федерации
ГОУ СПО «Миасский геологоразведочный колледж»
Тема: «Электронный помощник преподавателя дисциплины «Математические методы». Задача управления запасами»
Специальность 230105.51: «Программное обеспечение вычислительной техники и автоматизированных систем»
Данная дипломная работа представляет собой программный продукт, который является электронным помощником преподавателя дисциплины математические методы. Он предназначен для решения задачи управления запасами, и нужен для помощи преподавателю при проверке практических работ. Благодаря этой программе преподаватель тратит значительно меньше времени на проверку и, так как результаты выдаются точными, то их не нужно перепроверять, а благодаря тому, что здесь предусмотрена выдача полного решения, то преподаватель может наблюдать, где именно допущена студентом ошибка.
Данная программа реализована в среде Delphi 7, которая имеет практичный интерфейс, позволяющий быстро и удобно совершить те или иные действия.
4. Руководство системного программиста
6. Интерпретация и анализ результатов решения
8. Расчет себестоимости информационной системы
8.1 Расчёт себестоимости информационной системы
8.2 Расчёт отпускной цены информационной системы
8.3 Рекомендации по снижению себестоимости информационной системы
9. Техника безопасности и охрана труда
Целью создания данного программного продукта являлось облегчение работы преподавателям, при проверке практических работ студентов. Эта программа позволяет быстро и правильно решить задачу управления запасами, а благодаря тому, что в программе предусмотрена выдача решения по шагам, то преподаватель может полностью сравнить решение студента с данным решением и обнаружить, где именно совершена ошибка, если она есть. Также благодаря данной программе преподаватель тратит значительно меньше времени и сил на проверку, что позволяет проверить практические работы всей группы за более короткий срок. А благодаря тому, что в программе предусмотрено сохранение результатов в файле, то преподаватель может при необходимости просматривать их.
Данная дипломная работа реализована в среде Delphi 7, которая имеет практичный интерфейс, позволяющий быстро и удобно совершить те или иные действия, находить ошибки и оперативно исправлять их, отлаживать и выполнять отлаженную программу, применять расширенные возможности объектно-ориентированного программирования. Borland Delphi - одно из самых популярных средств визуальной разработки приложений. Этот продукт является логическим развитием Borland Pascal.
Необходимо разработать календарный план выпуска некоторого вида изделий на плановый период, состоящий из N отрезков, для какой-либо фирмы. Предполагается , что для каждого из этих отрезков имеется точный прогноз спроса на выполненную продукцию. Время изготовления партии (t) изделий настолько мало, что им можно пренебречь. Соответственно, продукция, изготавливаемая в течении отрезка t, может быть использована для полного или частичного удовлетворения спроса в течении этого отрезка. Для разных отрезков спрос может быть неодинаковым. Кроме того, на экономические показатели производства влияют размеры изготавливаемых партий. Также фирме нередко бывает выгодно изготавливать в течении некоторого месяца продукцию в объеме, превышающем спрос в пределах этого месяца и хранить излишки, используемые для удовлетворения спроса на последующих отрезках. Вместе с тем хранение, возникающих пи этом запасов связано с определенными затратами. Эти затраты необходимо учитывать при разработке плана выпуска.
Цель фирмы - разработать такой план, при котором общая сумма затрат на производство и на создание запасов минимизируется при условии полного и своевременного удовлетворения спроса на продукцию.
Данный программный продукт предусматривает два режима:
Выбор задачи из файла. Решение, выбранной задачи, выдается по шагам, либо сразу конечный результат.
Ввод задачи вручную. Решение, выбранной задачи, выдается по шагам, либо сразу конечный результат.
Данный программный продукт реализован в среде Delphi, которая обладает удобным и практичным интерфейсом, позволяющим быстро и удобно совершать те или иные действия, находить ошибки и оперативно исправлять их, отлаживать и выполнять отлаженную программу, а благодаря создаваемым диалоговым окнам, программа весьма легка и проста в применении.
Вычислительный процесс будет строиться от конечного состояния к исходному. Здесь конечным состоянием будет начало последнего отрезка планового периода, а исходным начало первого отрезка, то есть индекс 1 соответствует конечному, а N- начальному состоянию. Также применим следующие обозначения: dn - спрос на продукцию на отрезке, состоящем то конца планового периода на N отрезков, Сn (Xn , j) - затраты на отрезке n, связанные с выпуском X единиц продукции и содержанием запасов, уровень которых на конец отрезка j единиц. В этой системе обозначений d1=Dn , dn = D1 , C1(X, j)=CN(X,j).
Берем следующее обозначение fn(i) - стоимость, отвечающая стратегии минимальных затрат на n оставшихся отрезках, при начальном уровне запасов i, Xn (i) - выпуск, обеспечивающий достижение fn(i).
Согласно третьему ограничению уровень запасов на конец планового периода равна 0, f0(0)=0 (n=0).
Перейдем к n=1. Начальный уровень запасов может определяться некоторым неотрицательным целым числом, не большим, чем d1 . Независимо от i полного удовлетворения потребности в пределах последнего отрезка объем выпуска должен быть равен d1- i, . Следовательно f1=C1(d1-i, 0), i=0,1…,d1.
Перейдем к n=2. Общие затраты для второго месяца составляют C2(X, i+X-d2)+f1(i+X-d2), причем предполагается, что выбранная стратегия для n=1 является оптимальной. i+X-d2- уровень запасов на конец отрезка 2. i- некоторое целочисленное неотрицательное значение, не превышающее d1+ d2. При заданном значении i d2-id1+d2-i, так как конечный запас должен быть равен 0, то оптимальному объем у выпуска соответствует такое значение Х, при котором минимизируется указанная выше сумма. Выполненный нами анализ n=2 можно выразить следующим общим выражением
f2(i)=min[ C2(X, i+X-d2)+f1(i+X-d2)],
Значения f3(i), если известно значение f2(i) и т.д.
Общее рекурентное соотношение строится по формуле:
fn(i)=min[ Cn(X, i+X-dn)+fn-1(i+X-dn)], где i=0,1…,d1+ d2,+…+dn
Для отыскания оптимальной производственной программы определим какой объем выпуска Xn(0) позволяет достичь полученного значения fn(0). Соответствующее решение о выпуске является оптимальным решением для начального отрезка планового периода. Уровень запасов пна начало следующего отрезка будет i0+ Xn(0)-dN. Затем найдем объем выпуска, позволяющий достичь полученного нами значения fn-1(i+ Xn(i0)-dN) и т.д.
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
CreateRgnFromBitmap - процедура отображения заставки;
Расчет задачи - главная форма программы;
4. РУКОВОДСТВО СИСТЕМНОГО ПРОГРАММИСТА
Настоящий программный продукт поставляется на CD-диске.
Для правильного функционирования необходимо соблюдать следующие минимальные требования к системе и компьютеру:
Операционная система Windows 95 и выше;
Оперативная память - не менее 16 Мб;
Жёсткий диск (HDD) - размер не менее объема дискового пространства, занимаемого операционной системой, плюс размер программного продукта;
CD-Rom для установки программы на HDD;
программирование производственный пользователь
Для того, чтобы начать работать с данной программой необходимо запустить файл econom.exe, который хранится в папке econom. В этом случае на экране появится окно, которое будет запрашивать пароль:
После ввода пароля появляется заставка:
Затем появится окно, которое будет иметь вид:
Для того, чтобы решить задачу, нужно либо выбрать ее из файла, для этого нужно выбрать в пункте меню «задания» Открыть:
Тогда появится окошко, которое будет иметь вид:
Где нужно выбрать файл из которого вы хотите извлечь задачу. В данном случае задачи хранятся в файле test.txt. Для того, чтобы извлечь нужную вам задачу нужно ввести номер нужной задачи, в специальное поле:
И нажать на кнопку «открыть». Если же вы хотите удалить задачу, то нажать кнопку «удалить». Также можно решить все задачи, которые находятся в файле для этого нужно из пункта меню Сохранить выбрать Результаты из файла:
Тогда появится диалоговое окно в котором нужно будет создать или выбрать файл в котором вы хотите сохранить результаты.
Также можно внести значения вручную, для чего нужно заполнить соответствующие поля, например:
Задачу, введенную вручную можно записать в файл для этого нужно выбрать в пункте меню «Задания» Записать текущее:
Дальше мы видим на форме имеются такие кнопки, как «расчет», «дальше», «результат» и «сохранить»:
Для того, чтобы сразу получить конечный результат необходимо нажать кнопку «результат», тогда появится форма, которая будет иметь вид:
Причем в поле ,которое находится в левом верхнем углу (1 месяц) всегда будут отражаться расчеты за первый месяц, в поле, которое находится посередине будут отражаться расчеты за остальные месяцы, в поле, которое находится в правом верхнем углу будет отображаться общая таблица, со значениями Xt(i) и ft(i) за все месяцы, и в нижнем с названием «результат», будет отображаться конечный результат, т.е. программа выпуска изделий на какой-либо плановый период.
Если же мы хотим, просмотреть расчет по шагам, то нужно нажать кнопку «расчет», появятся расчеты за первые 2 месяца, затем при нажатии на кнопку «дальше» будут появляться расчеты за остальные месяцы:
Расчет закончится тогда, когда в правой части формы появится надпись «расчет окончен»:
Также результаты расчетов можно сохранить, для этого нужно в пункте меню «сохранить» выбрать Сохранить полностью или Только результат:
В которой нужно выбрать вид сохранения задачи, после чего появится диалоговое окно:
Где можно будет выбрать, где именно вы хотите сохранить результаты, а также назвать свой файл. Затем нужно нажать на кнопку «сохранить».
Также можно вывести результаты на печать для этого также нужно выбрать в пункте меню «Печать» Печать решения или Печать результата :
Где нужно выбрать, в каком виде вы хотите вывести на печать задачу.
Сведения о программе и помощь можно получить в пункте меню «Справка»:
Также программа предусматривает изменение пароля, для этого нужно нажать кнопку «изменить пароль», в этом случае появится форма:
В нее нужно будет ввести старый пароль, а затем два раза новый и нажать ок или отмену, если передумали менять пароль.
Для выхода из программы нужно выбрать пункт меню «выход»:
6. ИНТЕРПРЕТАЦИЯ И АНАЛИЗ РЕЗУЛЬТАТОВ
При запуске программы появляется главная форма:
Результатом будет решение задачи управления запасами, то есть программа выпуска продукции на какой-либо плановый период, выдаваться он будет в виде таблицы. При нажатии на кнопку «результат», будет сразу выдаваться конечный результат:
Также можно будет просмотреть решение задачи по шагам, с помощью кнопок «расчет» и «дальше»:
Определение требований к уровню обеспечения информационной безопасности
Сведения, хранящиеся на компьютере нуждаются в защите, так как они подвергаются различным угрозам. Под угрозой информации здесь понимают меру возможности возникновения на каком-либо этапе жизнедеятельности системы такого явления или события, следствием которого могут быть нежелательные воздействия на информацию: нарушения физической целостности, несанкционированная модификация информации, несанкционированное получение информации, несанкционированное разложение.
Возможными источниками возникновения таких угроз информационной безопасности являются различные вирусы, случайные пользователи, злоумышленники, стихийные бедствия, колебания электроэнергии в сети, поломка, выход из строя ПК и т.д.
Для надежного противостояния угрозам необходимо обеспечить достаточный уровень безопасности, который должен включать комплекс мер, направленных на предупреждение возникновения условий, благоприятствующих появлению угроз информационной безопасности, обнаружение появившихся угроз и ликвидацию последствий воздействия на информацию. К таким мерам относятся создание резервных копий программы, разграничение доступа, использование сложных паролей, соблюдение персоналом техники безопасности, а также требования конфиденциальности и внимательности, регулярный контроль поддержания необходимого уровня информационной безопасности.
Для обеспечения информационной безопасности необходимо предусмотреть защиту следующих объектов:
Документация, представленная настоящей пояснительной запиской;
Для того, чтобы защитить программный продукт от несанкционированного доступа, нужно обеспечить защиту информации с помощью использования паролей и разграничения уровней доступа.
Виды мер обеспечения информационной безопасности
Меры обеспечения информационной безопасности классифицируются следующим образом:
Правовые меры - это совокупность существующих в стране НПА, регулирующих сферу информационных отношений в обществе.
Морально-этические меры - сложившиеся в обществе нравственные устои и нормы поведения, а также угрызения совести, которые испытывает человек, уничтожающий труд других людей.
Организационно-административные меры - правила, установки, рекомендации, существующие в организации, всесторонне регламентирующие деятельность ее персонала, включая требования конфиденциальности и соблюдения техники безопасности.
Физические меры - отключение компьютеров от сети Internet и создание прочих препятствий на пути взломщиков.
Технические меры - применение технических, механических, электронных и программных средств.
В моем программном продукте основным защитным механизмом информационной безопасности является парольная защита, то есть при запуске программы запрашивается пароль.
8. РАСЧЕТ СЕБЕСТОИМОСТИ ИНФОРМАЦИОННОЙ СИСТЕМЫ
В этой части дипломного проекта необходимо определить себестоимость и цену разработки информационной системы «Электронный помощник преподавателя».
Себестоимость - это сумма затрат в денежном выражении на производство и реализацию продукции.
Цена - это экономическая категория, которая позволяет установить связь между производителем и покупателем.
Калькуляция - это себестоимость единицы продукции в денежном выражении.
Стоимость - это экономическая категория, выражающая отношения между людьми по поводу воплощённого в товаре и овеществлённого в нём общественного труда товаропроизводителей.
Прибыль - разница между доходами и расходами.
Для того, чтобы определить себестоимость необходимо определить трудоёмкость работ.
Таблица 1 Перечень работ для создания информационной системы
Изучение материалов для создания данного информационного продукта
Изучение конкретных программных продуктов
Работа по оформлению информационной системы
Проверка работоспособности информационной системы
Разработка инструкции по эксплуатации
Обучение персонала работе с информационной системой
8.1 Расчёт себестоимости информационной системы
Затраты на электроэнергию на технологические цели
С учётом отработанного времени Системный блок - 0,21 * 122 = 25,62 кВт
Общая мощность рассчитывается по формуле:
где Мсб - мощность системного блока за отработанное время;
Мм - мощность монитора за отработанное время;
Мп - мощность принтера за отработанное время.
Мобщ.= 25,62+17,568 + 0,058 = 43,246 кВ
Стоимость электроэнергии за отработанное время рассчитывается по формуле:
Она определяется по количеству затраченного времени на создание информационной системы:
Количество затраченного времени: 163 часов.
РК= 15% * Оклад = 0,15*2499,39 = 374,909 руб.
Оклад с РК = 2499,39+374,909 = 2874,299 руб.
Количество рабочих часов месяц: 168 часов
Стоимость одного часа работы: 2874,299/168 = 17,109 руб./час
Заработная плата основная рассчитывается по формуле:
где tзатр - количество затраченного времени;
Счас - стоимость одного часа работы.
Она равна 13% от заработной платы основной и рассчитывается по формуле:
где ЗПосн - заработная плата основная.
ДЗП= (0,13*2788,767)/1 = 362,54 руб.
Единый социальный налог составляет 26% от полной заработной платы, он рассчитывается по формуле:
где ЗПосн - заработная плата основная;
ДЗП - дополнительная заработная плата.
ЕСН = 0,26*(2788,767+362,54)/1 = 819,34 руб.
Арендная плата не предусматривается, так как разработка программного продукта производилась в домашних условиях.
Вычислим суммарную амортизацию за год по формуле:
Рабочих дней в 2007 году - 248 дней
Рабочих часов в 2007 году - 1984 часа
Стоимость амортизации 1 часа работы рассчитывается по формуле:
где Агод - суммарная амортизация за год;
Ф - годовой полезный фонд работы оборудования.
Амортизация за отработанное время рассчитывается по формуле:
где Ачас - стоимость амортизации 1 часа;
tзатр - количество затраченного времени.
Всего амортизационные отчисления составляют -
348,82 +88,02+7,824+22,82+48,9 = 516,384 руб.
Составляют 100% от заработанной платы основной - 2788,767 руб.
Таблица 3 Калькуляция себестоимости услуг по созданию информационной системы
8.2 Расчёт отпускной цены информационной системы
Отпускная цена рассчитывается по формуле:
где Сп - полная себестоимость информационной системы;
НДС - налог на добавленную стоимость.
Прибыль равна 30% от полной себестоимости и рассчитывается по формуле:
где Сп - полная себестоимость информационной системы.
Налог на добавленную стоимость равен 18% от суммы полной себестоимости и прибыли и рассчитывается по формуле:
Где Сп - полная себестоимость информационной системы;
НДС= (7836,007+2350,8)*0,18 = 1833,63 руб.
Рассчитывается отпускная цена информационного продукта:
Цотп.= 7836,007+2350,8 +1833,63 = 12020,437 руб.
Расчёт отпускной цены даёт возможность для составления договора с заказчиком.
8.3 Рекомендации по снижению себестоимости информационной системы
Для повышения конкурентоспособности программного продукта на рынке сбыта, необходимо стремиться к снижению себестоимости информационной системы, в нашем случае этого можно достичь, снизив прибыль и затраты на материалы.
Расчёт себестоимости информационной системы
Затраты на электроэнергию на технологические цели
Арендная плата не предусматривается, так как разработка программного продукта производилась в домашних условиях.
Амортизационные расходы Всего амортизационные отчисления составляют - 516,384 руб. Прочие расходы
Составляют 100% от заработанной платы основной - 2788,767 руб.
Таблица 2 Калькуляция себестоимости услуг по созданию информационной системы
Расчёт отпускной цены информационной системы
Отпускная цена рассчитывается по формуле:
где Сп - полная себестоимость информационной системы;
НДС - налог на добавленную стоимость.
Прибыль равна 20% от полной себестоимости и рассчитывается по формуле:
где Сп - полная себестоимость информационной системы.
Налог на добавленную стоимость равен 18% от суммы полной себестоимости и прибыли и рассчитывается по формуле:
Где Сп - полная себестоимость информационной системы;
НДС= (7773,174+1554,635)*0,18 = 1679,006 руб.
Рассчитывается отпускная цена информационного продукта:
Цотп.= 7773,174+1554,635+1679,006 = 1106,815 руб.
Расчёт отпускной цены даёт возможность для составления договора с заказчиком. В данном случае мы видим, что отпускная цена изменилась с 12020,437 рублей на 11006,815 рублей, то есть стоимость информационного продукта снизилась на 1013,622 рубля, следовательно, повысилась конкурентоспособность программного продукта на рынке.
9. ТЕХНИКА БЕЗОПАСНОСТИ И ОХРАНА ТРУДА
К работе с ПЭВМ допускаются лица, обученные работе на них, прошедшие вводный инструктаж и первичный инструктаж по охране труда на рабочем месте.
Включить компьютеры и проверить стабильность и чёткость изображения на экранах.
При работе на компьютере расстояние от глаз до экрана должно быть 0,6 - 0,7 метров, уровень глаз должен приходится на центр экрана или на 2/3 его высоты.
При работе на компьютере пользователи должны соблюдать правила поведения, установленные режимы труда и отдыха.
Кабинет должен быть укомплектован медаптечкой с набором необходимых медикаментов и перевязочных средств для оказания первой помощи при травмах или плохом самочувствии.
При работе в кабинете за компьютером необходимо соблюдать правила пожарной безопасности, знать места расположения первичных средств пожаротушения. Кабинет должен быть оснащён двумя углекислотными огнетушителями.
При неисправности оборудования прекратить работу и сообщить о неисправностях руководителю.
В процессе работы с компьютерами пользователи должны соблюдать порядок проведения работ, содержать в чистоте рабочее место.
При плохом самочувствии, появлении головной боли, головокружения и пр. прекратить работу.
При поражении электрическим током немедленно отключить компьютеры, оказать первую помощь пострадавшему, при необходимости отправить его в ближайшее лечебное учреждение и сообщить об этом администрации учреждения.
При окончании работы выключить компьютеры и привести в порядок рабочее место.
Тщательно проветрить и провести влажную уборку кабинета.
Благодаря данному программному продукту преподаватель тратит значительно меньше времени и сил на проверку, что позволяет проверить практические работы всей группы за более короткий срок.
Для создания данного программного продукта были выполнены следующие действия: поставлена задача, разработана информационная модель, построена логическая структура программы, написан код программы на языке Delphi, произведено технико-экономическое обоснование, произведены интерпретация и анализ результатов решения
Достоинствами данного программного продукта являются: возможность решения большого числа задач, возможность сохранения и печати результатов, легкость в применении, возможность видеть полное решение задачи.
В моей программе можно также предусмотреть вывод конечных результатов всех задач, которые хранятся в файле.
1. Архангельский А.Я. «Delphi 5 справочное пособие» ЗАО «Издательство БИНОМ», Москва 2001 г.
2. Семакин И.Г., Шестаков А.П. «Основы программирования» изд.центр «Академия», Москва 1999 г.
3. Фаронов В.В. «Delphi 4 учебный курс» - М.: «Ноллидж», 1999 г.
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure SavAllDialogCanClose(Sender: TObject; var CanClose: Boolean);
procedure SavResDialogCanClose(Sender: TObject;
procedure SavAllClick(Sender: TObject);
procedure SavResClick(Sender: TObject);
procedure savTaskClick(Sender: TObject);
procedure SavTask1CanClose(Sender: TObject; var CanClose: Boolean);
procedure openTaskClick(Sender: TObject);
procedure OpTaskCanClose(Sender: TObject; var CanClose: Boolean);
procedure exit1Click(Sender: TObject);
procedure PrintAllClick(Sender: TObject);
procedure PrintResClick(Sender: TObject);
procedure editTaskClick(Sender: TObject);
procedure deleteTaskClick(Sender: TObject);
procedure SavResAllClick(Sender: TObject);
procedure SavResAllDialogCanClose(Sender: TObject; var CanClose: Boolean);
const mont:array[1..12]of string=('янв','фев','мар','апр','май','июн','июл','авг','сен','окт','ноя','дек');
t:array[1..50,0..50,0..50] of integer;
d,xmax,imax,a,b,x,m,col,colEnd:integer;
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button2Click(Sender: TObject);
{---------------step1----------------}
t[1,2,j]:=d-t[1,1,j]; str(t[1,2,j],s2);
t[1,3,j]:=a*t[1,2,j]+b*t[1,1,j]; str(t[1,3,j],s3);
{-------------запись первой таблицы----------}
sav[col]:=' '+label9.caption; inc(col);
for e:=1 to 4-(leng div 2) do s1:=' '+s1+' ';
{-----------------step2--------------}
{---------------заголовки таблиц----------------}
begin str(k,s); month2.Cells[0,k+1]:=s;end;
begin str(k,s); month2.Cells[k+1,0]:=s;end;
month2.Cells[Xmax+2,0]:='x2'; month2.Cells[Xmax+3,0]:='f2';
begin str(k,s); integra.Cells[0,k+1]:=s;end;
{-----------------------------------------------}
if (j+k>d-1) and (j+k-dd-1) and (j+k-dd-1) and (j+k-dd-1) and (j+k-dt[turn,j,k] then
str(t[turn,Xmax+1,k],s); month2.Cells[Xmax+2,k+1]:=s; integra.Cells[turn*2,k+2]:=s;
str(t[turn,Xmax+2,k],s); month2.Cells[Xmax+3,k+1]:=s; integra.Cells[turn*2-1,k+2]:=s;
{-------------запись остальных таблиц----------}
sav[col]:=' '+label10.caption; inc(col);
for e:=1 to 3-(leng div 2) do s1:=' '+s1+' ';
{------------------------------------------}
begin finish.Caption:='Расчет окончен'; began:=false;
{------------вывод результатов---------------}
begin str(j,s); ende.Cells[0,j]:=s; end;
ende.Cells[Xmax+1,0]:='Общ стоим'; ende.Cells[Xmax+2,0]:='Cреднемес';
{------------первое значение---------------}
str(t[1,3,D],s1); str(t[1,3,D],s2);
str(t[1,3,iNow],s1);str(t[1,3,iNow],s2);
{---------------остальные------------------}
str(t[j+1,Xmax+1,D],s1); s2:=floattostr(t[j+1,Xmax+1,D]/(j+1));
str(t[j+1,Xmax+1,iNow],s1); s2:=floattostr(t[j+1,Xmax+1,iNow]/ (j+1));
str(t[j+1,Xmax+2,D],s); iNow:=iNow-D;
{-------------запись общей таблицы----------}
sav[col]:=' '+label11.caption; inc(col);
for e:=1 to 3-(leng div 2) do s1:=' '+s1+' ';
{-------------запись итоговой таблицы----------}
sav[col]:=' '+label12.caption; inc(col);
for e:=1 to 3-(leng div 2) do s1:=' '+s1+' ';
{------------------------------------------}
procedure TForm1.Button4Click(Sender: TObject);
procedure TForm1.SavAllDialogCanClose(Sender: TObject;
assignFile(F,savalldialog.filename{+SavAllDialog.DefaultExt});
procedure TForm1.SavResDialogCanClose(Sender: TObject;
assignFile(F,SavResDialog.filename{+SavResDialog.DefaultExt});
procedure TForm1.SavAllClick(Sender: TObject);
procedure TForm1.SavResClick(Sender: TObject);
procedure TForm1.savTaskClick(Sender: TObject);
procedure TForm1.SavTask1CanClose(Sender: TObject; var CanClose: Boolean);
if fileexists(SavTask1.filename) then append(F)
writeln(F,'--------------------------- ');
writeln(F,label1.caption+'='+edit1.text);
writeln(F,label2.caption+'='+edit2.text);
writeln(F,label3.caption+'='+edit3.text);
writeln(F,label7.caption+'='+edit4.text);
writeln(F,label8.caption+'='+edit5.text);
writeln(F,label5.caption+edit6.text);
writeln(F,label6.caption+edit7.text);
procedure TForm1.openTaskClick(Sender: TObject);
procedure TForm1.OpTaskCanClose(Sender: TObject; var CanClose: Boolean);
readln(f,s); j:=length(s); s:=copy(s,8,j-7); edit1.text:=s;
readln(f,s); j:=length(s); s:=copy(s,8,j-7); edit2.text:=s;
readln(f,s); j:=length(s); s:=copy(s,7,j-6); edit3.text:=s;
readln(f,s); j:=length(s); s:=copy(s,18,j-17); edit4.text:=s;
readln(f,s); j:=length(s); s:=copy(s,18,j-17); edit5.text:=s;
readln(f,s); j:=length(s); s:=copy(s,3,j-2); edit6.text:=s;
readln(f,s); j:=length(s); s:=copy(s,3,j-2); edit7.text:=s;
procedure TForm1.exit1Click(Sender: TObject);
procedure TForm1.PrintAllClick(Sender: TObject);
procedure TForm1.PrintResClick(Sender: TObject);
procedure TForm1.editTaskClick(Sender: TObject);
readln(f,s); j:=length(s); s:=copy(s,8,j-7); edit1.text:=s;
readln(f,s); j:=length(s); s:=copy(s,8,j-7); edit2.text:=s;
readln(f,s); j:=length(s); s:=copy(s,7,j-6); edit3.text:=s;
readln(f,s); j:=length(s); s:=copy(s,18,j-17); edit4.text:=s;
readln(f,s); j:=length(s); s:=copy(s,18,j-17); edit5.text:=s;
readln(f,s); j:=length(s); s:=copy(s,3,j-2); edit6.text:=s;
readln(f,s); j:=length(s); s:=copy(s,3,j-2); edit7.text:=s;
procedure TForm1.deleteTaskClick(Sender: TObject);
renamefile('temp',OpTask.filename);
procedure TForm1.SavResAllClick(Sender: TObject);
procedure TForm1.SavResAllDialogCanClose(Sender: TObject;
assignFile(F1,SavResAllDialog.filename);
if w=1 then rewrite(F1) else append(f1);
{--------------чтение очередного задания----------}
readln(f,s); j:=length(s); s:=copy(s,8,j-7); edit1.text:=s;
readln(f,s); j:=length(s); s:=copy(s,8,j-7); edit2.text:=s;
readln(f,s); j:=length(s); s:=copy(s,7,j-6); edit3.text:=s;
readln(f,s); j:=length(s); s:=copy(s,18,j-17); edit4.text:=s;
readln(f,s); j:=length(s); s:=copy(s,18,j-17); edit5.text:=s;
readln(f,s); j:=length(s); s:=copy(s,3,j-2); edit6.text:=s;
readln(f,s); j:=length(s); s:=copy(s,3,j-2); edit7.text:=s;
{----------------------------------------------------}
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
procedure TForm6.Button2Click(Sender: TObject);
procedure TForm6.Button1Click(Sender: TObject);
if not FileExists(GetCurrentDir+'\ira.dat') then
AssignFile(f,GetCurrentDir+'\ira.dat');
tmps:=tmps+chr((ord(text[i]))xor(ord(key[j])));
AssignFile(f,GetCurrentDir+'\ira.dat');
tmps:=tmps+chr((ord(text[i]))xor(ord(key[j])));
ShowMessage('Вы ввели неправильный па
Электронный помощник преподавателя дисциплины "Математические методы". Задача управления запасами дипломная работа. Программирование, компьютеры и кибернетика.
Лекция На Тему Хіх Століття – Золотий Фонд Світового Мистецтва
Пособие по теме Анализ показателей ряда динамики
Практическое задание по теме Конструированный рисунок человека из геометрических фигур
Контрольная работа: Микропроцессорные информационно-управляющие системы и устройства. Скачать бесплатно и без регистрации
Реферат: Роль отца в охране здоровья и развитии ребенка в антенатальный период и период раннего детства
Курсовая работа по теме Влияние родительского отношения на самооценку детей старшего дошкольного возраста
Контрольная Работа Наречие 7
Курсовая работа по теме Половая дифференциация
Экологические Проблемы Мирового Океана Реферат
Сочинение 11 Класс Егэ Структура
Контрольная работа по теме Безопасность в адвокатской деятельности с точки зрения протектологии
Реферат: Культура эпохи Возрождения 5
Реферат На Тему Жизненный Цикл Инновационного Проекта
Реферат На Тему Биография И Творческий Путь Сальвадора Дали
Методы Активной Социально Психологической Работы Практического Психолога
Реферат По Истории Гто
Реферат: Усть-Каменогорск вики
Курсовая Особенности Лечебного Массажа На Сердечно Сосудистую
Реферат: Анархизм о государстве и власти
Реферат по теме Общая характеристика и типы взаимодействия людей
Организация PR-деятельности компании (на примере корпорации "Amway") - Маркетинг, реклама и торговля дипломная работа
Modal verbs need - Иностранные языки и языкознание презентация
Оценка состояния учета и анализ денежных средств ЗАО "Маргарита" - Бухгалтерский учет и аудит дипломная работа