48245 (Программирование в Delphi), страница 4
Описание файла
Документ из архива "Программирование в Delphi", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48245"
Текст 4 страницы из документа "48245"
sg1.Cells[1,k]:=inttostr(Mzap[n].onng);
sg1.Cells[2,k]:=inttostr(Mzap[n].plan);
sg1.Cells[3,k]:=inttostr(Mzap[n].onkg);
sg1.Cells[5,k]:=floattostr(Mzap[n].svocep);
k:=k+1;
cleanedit(Sender); //вызов очистки эдитов
end;
n:=n+1;
until n>=200;
autorachet(sender);
end;
procedure TForm1.sg1Click(Sender: TObject);
begin
edit1.Text:=sg1.Cells[0,sg1.Row];
edit2.Text:=sg1.Cells[1,sg1.Row];
edit3.Text:=sg1.Cells[2,sg1.Row];
edit4.Text:=sg1.Cells[3,sg1.Row];
edit5.Text:=sg1.Cells[5,sg1.Row];
memo1.Lines.Insert(0,DateTimeToStr(Now)+' - Запись № '+inttostr(sg1.Row)+ ' выбрана');
end;
procedure TForm1.N8Click(Sender: TObject);
begin
ShellExecute(form1.Handle, nil,PChar('mailto:ultrix@tut.by?Subject=EcoInfo'),'','', 0);
end;
procedure TForm1.N5Click(Sender: TObject);
begin
halt;
end;
end.
8. Результаты проведенных расчетов и их анализ.
В данной курсовой работе нам необходимо было рассчитать объем реализации и стоимость в оптовых ценах всего объема реализации продукции за плановый период. Для расчетов нам были даны исходные данные о выручке от реализации продукции за плановый период (Табл. 1).
Таблица1. Сведения о выручке от реализации продукции за плановый период.
Наименование продукции | Остатки на начало года | План выпуска | Остатки на конец года | Объем реализации, шт. | Стоимость в оптовых ценах единицы продукции, руб. | Стоимость в оптовых ценах всего объема реализации, тыс. руб. |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
Яблоко | 711 | 40000 | 500 | 200000 | ||
Апельсин | 236 | 80000 | 100 | 500150 | ||
Ананас | 348 | 60000 | 200 | 400000 | ||
Мандарин | 117 | 90000 | 50 | 550000 | ||
Грейпфрут | 284 | 50000 | 150 | 450000 | ||
Банан | 173 | 70000 | 300 | 350000 | ||
Абрикос | 513 | 95000 | 450 | 300000 | ||
Персик | 286 | 65000 | 600 | 250000 | ||
Виноград | 482 | 85000 | 300 | 600000 | ||
Груша | 136 | 40000 | 150 | 650000 |
Расчеты производились следующим образом:
-
Рассчитаем объем реализации продукции за плановый период. Объем реализации, в нашем, случае равен сумме остатков на начало года с планом выпуска за вычетом остатков на конец года по каждому виду реализованной продукции (Табл. 2).
Таблица2. Сведения о выручке от реализации продукции за плановый период.
Наименование продукции | Остатки на начало года | План выпуска | Остатки на конец года | Объем реализации, шт. | Стоимость в оптовых ценах единицы продукции, руб. | Стоимость в оптовых ценах всего объема реализации, тыс. руб. |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
Яблоко | 711 | 40000 | 500 | 40211 | 200000 | |
Апельсин | 236 | 80000 | 100 | 80136 | 500150 | |
Ананас | 348 | 60000 | 200 | 60148 | 400000 | |
Мандарин | 117 | 90000 | 50 | 90067 | 550000 | |
Грейпфрут | 284 | 50000 | 150 | 50134 | 450000 | |
Банан | 173 | 70000 | 300 | 69873 | 350000 | |
Абрикос | 513 | 95000 | 450 | 95063 | 300000 | |
Персик | 286 | 65000 | 600 | 64686 | 250000 | |
Виноград | 482 | 85000 | 300 | 85182 | 600000 | |
Груша | 136 | 40000 | 150 | 39986 | 650000 |
-
Зная стоимость в оптовых ценах единицы продукции, мы можем рассчитать стоимость в оптовых ценах всего объема реализации произведением объема реализации и стоимости в оптовых ценах единицы продукции (Табл. 3).
Таблица3. Сведения о выручке от реализации продукции за плановый период.
Наименование продукции | Остатки на начало года | План выпуска | Остатки на конец года | Объем реализации, шт. | Стоимость в оптовых ценах единицы продукции, руб. | Стоимость в оптовых ценах всего объема реализации, тыс. руб. |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
Яблоко | 711 | 40000 | 500 | 40211 | 200000 | 8042200 |
Апельсин | 236 | 80000 | 100 | 80136 | 500150 | 40080020,4 |
Ананас | 348 | 60000 | 200 | 60148 | 400000 | 24059200 |
Мандарин | 117 | 90000 | 50 | 90067 | 550000 | 49536850 |
Грейпфрут | 284 | 50000 | 150 | 50134 | 450000 | 22560300 |
Банан | 173 | 70000 | 300 | 69873 | 350000 | 24455550 |
Абрикос | 513 | 95000 | 450 | 95063 | 300000 | 28518900 |
Персик | 286 | 65000 | 600 | 64686 | 250000 | 16171500 |
Виноград | 482 | 85000 | 300 | 85182 | 600000 | 51109200 |
Груша | 136 | 40000 | 150 | 39986 | 650000 | 25990900 |
Анализируя данные расчета мы можем сказать, что наиболее выгодно для продавца производить и реализовывать по цене 600000 руб. виноград т.к. этот продукт наиболее востребован покупателем и производитель получит за него наибольшую прибыль (51109200 тыс. руб.). Также будет выгодно производить и реализовывать по цене 500150 и 550000 руб. апельсины и мандарины соответственно т.к. за реализацию этих продуктов производитель получит высокую прибыль (40080020,4 и 49536850 соответственно). При производстве таких продуктов как ананасы (400000 руб.), грейпфрут (22560300 руб.), банан (24455550 руб.), абрикос (28518900 руб.), персик (16171500 руб.), груша (25990900 руб.), производитель будет получать хорошую прибыль, но при разных объемах и цене от реализации, подстраиваясь под потребности покупателя. Эти продукты можно было производить под заказ для реализации сторонним покупателем в не основной деятельности. Не выгодным продуктом для производства и реализации по цене 200000 руб. и объеме 40000 шт. является яблоко т.к. этот продукт не приносит хорошей прибыли.
В результате анализа мы можем сделать вывод, что наиболее выгодно для предприятия производить и реализовывать виноград, апельсины и мандарины т.к. эти продукты наиболее востребованы потребителем и влечет большие прибыли для предприятия.
Все расчеты производились в созданной нами программе на алгоритмическом языке ObjectPascal в визуальной среде Delphi. Для удобства расчета и просматривания результатов все наименование товара автоматически располагается в алфавитном порядке. Наибольшую прибыль и результат расчета мы можем видеть в поле memo куда эти данные также заносятся автоматически (рис. 5).