Курсовая работа: Программирование в Delphi
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:[email protected]?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 |
К-во Просмотров: 580
Бесплатно скачать Курсовая работа: Программирование в Delphi
|