="justify"> До З=БК * Т З/FК, руб. (23)
До З=1500000 * 0,07/2 050=51,2 руб.
Термін повернення інвестицій визначається за формулою (24):
Т В=К О/П У=(До З + Ц ПР)/П У (24)
Т В=(51,2 + 2404900)/2363887=1 рік
Результати розрахунку зводяться в таблицю 8.
Таблиця 8 - Техніко-економічні показники проекту
Найменування показателяВаріантиручноймашінний1 Трудомісткість рішення задачі, час50,062 Періодичність рішення задачі, раз/год3003003 Річні поточні витрати, пов'язані з вирішенням завдання, руб. 33000001055564 Відпускна ціна програми, руб.- 24049005 Приріст умовного прибутку, руб.- 23638876 Річний економічний ефект, руб.- 17626627 Термін повернення інвестицій, років - 1
Приймаємо вартість програми 2404900 рублів. Термін повернення інвестицій складе 12 місяців.
Автоматизоване проектування натяжних стель
Текст програми
Модуль MainUnit - Головне вікно програми:
unit MainUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, MMSystem, jpeg, StdCtrls, XPMan, IniFiles, ComCtrls,;=class (TForm): TImage;:TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TXPManifest ;: TGroupBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TGroupBox ;: TLabel ;: TGroupBox ;: TCheckBox ;: TLabel ;: TImage ;: TImage ;: TCheckBox ;: TLabel; CloseBtnClick (Sender: TObject); MinBtnClick (Sender: TObject); AboutBtnClick (Sender: TObject); FormCreate (Sender: TObject); HelpBtnClick (Sender:TObject); OptBtnClick (Sender: TObject); CalcBtnClick (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); LogFileChBoxClick (Sender: TObject); ClearLogLblClick (Sender: TObject); CalcAreaBtnClick (Sender: TObject) ; CalcPriceBtnClick (Sender: TObject); MainBtnClick (Sender: TObject); SoundsChBoxClick (Sender: TObject); OptSaveLblClick (Sender: TObject);
{Private declarations}
{Public declarations}; EnableFog; ??DisableFog; ??FormAppear; FormDisappear; EventLog (Event: String) ;: TMainForm ;: Real ;: Real ;: String;// Змінна, що зберігає поточну дату
Time: String;// Змінна, що зберігає поточний час
ErrorString: String ;: Boolean ;: Boolean ;: Boolean ;: Boolean ;: Boolean ;: Boolean ;: Boolean ;: Byte ;: Boolean ;: TIniFile;// INI-файл програми
LogFile: TextFile;// Текстовий лог-файл дій користувача: Boolean;// Змінна, що зберігає стан лог-файлу: Byte;// Перкменная, що зберігає розмір лог-файлу: Boolean;// Змінна, що зберігає стан звукового супроводу: Boolean;// Змінна, що зберігає стан меню Розрахунок raquo ;: array [1.151] of Char=(laquo;qraquo;,laquo;wraquo;,laquo;eraquo;,laquo;rraquo;,laquo;traquo;,laquo;yraquo;,laquo;uraquo;,laquo;iraquo;,laquo;oraquo;,// Масив для захисту від некоректного введення
laquo;praquo;,laquo;araquo;,laquo;sraquo;,laquo;draquo;,laquo;fraquo;,laquo;graquo;,laquo;hraquo;,laquo;jraquo;,laquo;kraquo;,
laquo;lraquo;,laquo;zraquo;,laquo;xraquo;,laquo;craquo;,laquo;vraquo;,laquo;braquo;,laquo;nraquo;,laquo;mraquo;,laquo;йraquo;,
laquo;цraquo;,laquo;уraquo;,laquo;кraquo;,laquo;еraquo;,laquo;нraquo;,laquo;гraquo;,laquo;шraquo;,laquo;щraquo;,laquo;зraquo;,
laquo;хraquo;,laquo;ъraquo;,laquo;фraquo;,laquo;ыraquo;,laquo;вraquo;,laquo;аraquo;,laquo;пraquo;,laquo;рraquo;,laquo;оraquo;,
laquo;лraquo;,laquo;дraquo;,laquo;жraquo;,laquo;эraquo;,laquo;яraquo;,laquo;чraquo;,laquo;сraquo;,laquo;мraquo;,laquo;иraquo;,
laquo;тraquo;,laquo;ьraquo;,laquo;ьraquo;,laquo;бraquo;,laquo;юraquo;,laquo;ёraquo;,laquo;Qraquo;,laquo;Wraquo;,laquo;Eraquo;,
laquo;Rraquo;,laquo;Traquo;,laquo;Yraquo;,laquo;Uraquo;,laquo;Iraquo;,laquo;Oraquo;,laquo;Praquo;,laquo;Araquo;,laquo;Sraquo;,
laquo;Draquo;,laquo;Fraquo;,laquo;Graquo;,laquo;Hraquo;,laquo;Jraquo;,laquo;Kraquo;,laquo;Lraquo;,laquo;Zraquo;,laquo;Xraquo;,
laquo;Craquo;,laquo;Vraquo;,laquo;Braquo;,laquo;Nraquo;,laquo;Mraquo;,laquo;Йraquo;,laquo;Цraquo;,laquo;Уraquo;,laquo;Кraquo;,
laquo;Еraquo;,laquo;Нraquo;,laquo;Гraquo;,laquo;Шraquo;,laquo;Щraquo;,laquo;Зraquo;,laquo;Хraquo;,laquo;Ъraquo;,laquo;Фraquo;,
laquo;Ыraquo;,laquo;Вraquo;,laquo;Аraquo;,laquo;Пraquo;,laquo;Рraquo;,laquo;Оraquo;,laquo;Лraquo;,laquo;Дraquo;,laquo;Жraquo;,
laquo;Эraquo;,laquo;Яraquo;,laquo;Чraquo;,laquo;Сraquo;,laquo;Мraquo;,laquo;Иraquo;,laquo;Тraquo;,laquo;Ьraquo;,laquo;Бraq...
