Лева_2.0 / Lab06_vb

Вариант 24

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

,

где – количество товара в тоннах, – налоговая ставка.

Виды подакцизных товаров	Налоговая ставка, руб. на 1 тонну
Автомобильный бензин	3629,00
Дизельное топливо	1080,00
Моторные масла	2951,00
Прямогонный бензин	2657,00

Тест 1.  На 95 тонн автомобильного бензина налог составит 344 755 руб.

Тест 2.  На 85 тонн дизельного топлива налог составит 91 800 руб.

Вариант 25

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

Цена иска	Государственная пошлина
До 50 000 руб.	4 % цены иска, но не менее 500 руб.
50 001 – 100 000 руб.	2 000 руб. + 3 % суммы, превышающей 50 000 руб.
100 001 – 500 000 руб.	3 500 руб. + 2 % суммы, превышающей 100 000 руб
500 001 – 1 000 000 руб.	11 500 руб. + 1 % суммы, превышающей 500 000 руб/
Свыше 1 000 000 руб.	16 500 руб. + 0,5 % суммы, превышающей 1 000 000 руб.

Тест 1.  При цене иска 12 000 руб. государственная пошлина составит 500 руб.

Тест 2.  При цене иска 13 000 руб. государственная пошлина составит 520 руб.

Тест 3.  При цене иска 2 000 000 руб. государственная пошлина составит 21 500 руб.

Задание 3. Циклические задачи

Предприятие «Все дороги, ОАО» выполняет заявки по перевозке грузов и ведёт учёт выполнения заявок на рабочем листе Excel.

Количество записей на листе постоянно меняется, то есть заранее неизвестно, сколько строк будет в таблице. Необходимо составить программу, которая ответит на три вопроса (по варианту):

подсчитать количество,

вычислить сумму,

найти минимум или максимум.

Примерный вид формы см. ниже.

Вычислить общее количество выполненных заявок [16 шт.].

Вычислить суммарную стоимость перевозок по заявкам двух клиентов «Артель Амур, ЗАО» и «ТрансСнаб, ООО» [293600.86 руб.].

Вычислить перевозку на самое дальнее расстояние. Вывести её расстояние и вес груза [3300 км, 1000 тонн].

Вычислить количество выполненных заявок по клиенту «АвиаМаг, ОАО» [4 шт.].

Вычислить суммарную стоимость перевозок по заявкам двух клиентов «Кудрявцев, ИП» и «АвиаМаг, ОАО» [230584,15 руб.].

Вычислить заявку на перевозку самого большого веса. Вывести вес груза по этой заявке и расстояние [2000 тонн, 200 км].

Вычислить количество выполненных заявок по клиенту «ТрансСнаб, ООО» [3 шт.].

Вычислить суммарный вес перевезённого груза по заявкам клиента «АвиаМаг, ОАО» [4015 тонн].

Вычислить заявку с наибольшей стоимостью перевозки. Вывести вес груза по этой заявке и стоимость [1250 тонн, 155860,50 руб.].

Вычислить количество выполненных заявок по клиенту «Кудрявцев, ИП» [3 шт.].

Вычислить суммарное расстояние по всем заявкам клиента «АвиаМаг, ОАО» [8067 тонн].

Вычислить перевозку на самое ближнее расстояние. Вывести её расстояние и вес груза [100 км, 1000 км].

Вычислить количество выполненных заявок по клиенту «МегаСбыт, ЗАО» [2 шт.].

Вычислить суммарный вес перевезённого груза по заявкам клиента «Кудрявцев, ИП» [2500 тонн].

Вычислить заявку на перевозку самого малого веса. Вывести вес груза по этой заявке и расстояние [500 тонн, 500 км].

Вычислить количество выполненных заявок по клиенту «Артель Амур, ЗАО» [4 шт.].

Вычислить суммарную стоимость перевозок по заявкам клиента «АвиаМаг, ОАО» [199516,99 руб.].

Вычислить заявку с наименьшей стоимостью перевозки. Вывести вес груза по этой заявке и стоимость [1000 тонн, 4437,07 руб.].

Вычислить количество выполненных заявок с весом, превышающим 1000 тонн [8 шт.].

Вычислить суммарную стоимость перевозок по заявкам клиента «Артель Амур, ЗАО» [246170,80 руб.].

Вычислить клиента, заказавшего перевозку на самое дальнее расстояние. Вывести расстояние и название клиента [3300, «АвиаМаг, ОАО»].

Вычислить количество выполненных заявок с весом, не превышающим 1000 тонн [8 шт.].

Вычислить суммарную стоимость перевозок по заявкам двух клиентов «ТрансСнаб, ООО» и «МегаСбыт, ЗАО» [332966,06 руб.].

Вычислить заявку с наибольшей стоимостью перевозки. Вывести название клиента по этой заявке и стоимость [«АвиаМаг, ОАО», 155860,50 руб.].

Вычислить количество выполненных заявок с весом, превышающим 1500 тонн [3 шт.].

Вычислить суммарный вес перевезённого груза по заявкам клиента «ТрансСнаб, ООО» [5234 тонн].

Вычислить заявку на перевозку самого большого веса. Вывести вес груза по этой заявке и стоимость [2000 тонн, 15405,20 руб.].

Вычислить количество выполненных заявок с весом, не превышающим 1500 тонн [13 шт.].

Вычислить суммарную стоимость перевозок по заявкам клиента «ТрансСнаб, ООО» [47430,06 руб.].

Вычислить заявку с наибольшей стоимостью перевозки. Вывести расстояние по этой заявке и стоимость [3000 км, 155860,50 руб.].

Вычислить количество выполненных заявок на расстояние, превышающее 1000 км. [7 шт.]

Вычислить суммарное расстояние по всем заявкам клиента «ТрансСнаб, ООО» [721 км].

Вычислить клиента, заказавшего перевозку на самое ближнее расстояние. Вывести расстояние и название клиента [100 км, «Кудрявцев, ИП»].

Вычислить количество выполненных заявок на расстояние, не превышающее 1000 км [9 шт.].

Вычислить суммарный вес перевезённого груза по заявкам клиента «МегаСбыт, ЗАО» [2800 тонн].

Вычислить заявку на перевозку самого малого веса. Вывести вес груза по этой заявке и стоимость [550 тонн, 71381,25 руб.].

Вычислить количество выполненных заявок на расстояние, превышающее 2000 км [5 шт.].

Вычислить суммарную стоимость перевозок по заявкам двух клиентов «АвиаМаг, ОАО» и «Артель Амур, ЗАО» [445687,79 руб.].

Вычислить заявку с наименьшей стоимостью перевозки. Вывести расстояние по этой заявке и стоимость [1000 км, 4437,07 руб.].

Вычислить количество выполненных заявок на расстояние, не превышающее 2000 км [11 шт.].

Вычислить суммарную стоимость перевозок по всем заявкам клиента «Артель Амур, ЗАО» [246170,80 руб.].

Вычислить клиента, заказавшего перевозку самого большого веса. Вывести вес груза по этой заявке и наименование клиента [2000 тонн, «ТрансСнаб, ООО»].

Вычислить количество выполненных заявок, стоимость которых превышает 100000 руб. [3 шт.]

Вычислить суммарный вес перевезённого груза по заявкам клиента «Артель Амур, ЗАО» [4500 тонн].

Вычислить заявку с наименьшей стоимостью перевозки. Вывести название клиента по этой заявке и стоимость [«Кудрявцев, ИП», 4437,07 руб.].

Вычислить количество выполненных заявок, стоимость которых не превышает 50000 руб. [11 шт.].

Вычислить суммарное расстояние по всем заявкам клиента «Кудрявцев, ИП» [2500 км].

Вычислить перевозку на самое дальнее расстояние. Вывести расстояние и стоимость перевозки [3300 км, 14517,47 руб.].

Вычислить количество выполненных заявок, стоимость которых превышает 50000 руб. [5 шт.]

Вычислить суммарную стоимость перевозок по заявкам клиента «Кудрявцев, ИП» [31067,16 руб.].

Вычислить клиента, заказавшего перевозку самого малого веса. Вывести вес груза по этой заявке и наименование клиента [500 тонн, «Кудрявцев, ИП»].

Вычислить количество выполненных заявок, стоимость которых не превышает 100000 руб. [13 шт.]

Вычислить суммарное расстояние по всем заявкам клиента «МегаСбыт, ЗАО» [5200 км].

Вычислить перевозку на самое ближнее расстояние. Вывести расстояние и стоимость [100 км, 4437,07 руб.].

Вычислить средний вес груза по всем заявкам [1191 тонн].

Вычислить суммарную стоимость перевозок по всем заявкам [ 809721,01 руб.].

Вычислить заявку с наибольшей стоимостью перевозки. Вывести название клиента по этой заявке и стоимость [«АвиаМаг, ОАО», 155860,50 руб.].

Вычислить среднюю стоимость перевозки по всем заявкам [50607,56 руб.].

Вычислить суммарное расстояние по всем заявкам [20688 км].

Вычислить клиента, заказавшего перевозку самого большого веса. Вывести вес груза по этой заявке и наименование клиента [2000 тонн, «ТрансСнаб, ООО»].

Вычислить среднее расстояние перевозки по всем заявкам [1293 км].

Вычислить суммарную стоимость перевозок по заявкам клиента «МегаСбыт, ЗАО» [285536,00 руб.].

Вычислить клиента, заказавшего перевозку на самое дальнее расстояние. Вывести расстояние и название клиента [3300 км, «АвиаМаг, ОАО»].

Вычислить суммарное количество выполненных заявок по клиентам «АвиаМаг, ОАО» и «Артель Амур, ЗАО» [445687,79 руб.].

Вычислить суммарный вес перевезённого груза по всем заявкам [19049 тонн].

Вычислить клиента, заказавшего перевозку самого малого веса. Вывести вес груза по этой заявке и наименование клиента [500 тонн, «Кудрявцев, ИП»].

Вычислить количество выполненных заявок на расстояние, превышающее 1000 км. [7 шт.]

Вычислить суммарное расстояние по всем заявкам клиента «ТрансСнаб, ООО» [721 км].

Вычислить клиента, заказавшего перевозку на самое ближнее расстояние. Вывести расстояние и название клиента [100 км, «Кудрявцев, ИП»].

Вычислить количество выполненных заявок на расстояние, не превышающее 1000 км [9 шт.].

Вычислить суммарный вес перевезённого груза по заявкам клиента «МегаСбыт, ЗАО» [2800 тонн].

Вычислить заявку на перевозку самого малого веса. Вывести вес груза по этой заявке и стоимость [550 тонн, 71381,25 руб.].

Вычислить количество выполненных заявок на расстояние, превышающее 2000 км [5 шт.].

Вычислить суммарную стоимость перевозок по заявкам двух клиентов «АвиаМаг, ОАО» и «Артель Амур, ЗАО» [445687,79 руб.].

Вычислить заявку с наименьшей стоимостью перевозки. Вывести расстояние по этой заявке и стоимость [1000 км, 4437,07 руб.].

28