Файл: Практических заданий по дисциплине информационные технологии в экономике.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 08.11.2023
Просмотров: 211
Скачиваний: 9
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Центр электронных торгов B2b-center
Это система электронных торговых площадок, созданная в 2002 г. АО «Центр развития экономики» для осуществления корпоративных продаж и закупок.
Центр электронных торгов B2B-Center позволяет проводить 43 вида торговых процедур, как на закупку, так и на продажу товаров и услуг. Система объединяет закупки различных отраслей экономики: энергетики, нефтехимии, металлургии, автомобильной промышленности и многих других отраслей.
Преимуществами системы B2B-Center являются: стабильная и надежная работа, большое количество заказчиков, удобный и понятный интерфейс, настройка автоматической рассылки тендеров.
Сайт площадки – http://www.b2b-center.ru/
Торговый портал «Фабрикант»
На этой площадке производят электронные закупки крупнейшие российские и зарубежные компании. На площадке представлен широкий спектр тарифных планов, как для участников, так и для организаторов торгов. Некоторые тарифные планы не требуют аккредитации на площадке.
Сайт площадки – https://www.fabrikant.ru/
Отраслевая и межрегиональная электронная торговая площадка «Аукционный Конкурсный Дом»
Это компания, оказывающая широкий спектр юридических, консалтинговых и правовых услуг в области торгов и является одним из лидеров в Российской Федерации по количеству проведенных аукционов по закупкам товаров, работ и услуг.
Основные виды деятельности:
-
организация и проведение торгов в форме аукционов и конкурсов разного уровня сложности и ответственности (проведение торгов в электронной форме, конкурсов по подбору инвесторов, аукционов по реализации имущества и т.д.); -
осуществление функций официальной отраслевой электронной торговой площадки Государственной корпорации Росатом.
Сайт площадки – http://www.a-k-d.ru/
Функции электронных площадок
Электронные площадки выполняют следующие важные функции:
размещение информации о закупках;
-
поиск информации о проводимых закупках по различным критериям; -
поиск информации об организациях, работающих на ЭТП; -
просмотр документации о закупке; -
личный счет для обеспечения заявок на участие в торговых процедурах; -
управление денежными средствами на счете; -
проведение электронных закупочных процедур (аукционов, конкурсов, запросов предложений и т.д.); -
подача запросов, подписание договоров; -
анализ различных показателей деятельности организаций; -
защита информации (использование электронной подписи).
Преимущества работы на электронных площадках
Преимущества для заказчиков:
Экономия рабочего времени, т.к. проведение электронных процедур значительно проще нежели проведение бумажных;
Сокращение расходов на организацию и проведение закупок;
Прозрачность и открытость процесса закупок в связи со снижением влияния человеческого фактора;
Честная конкуренция, исключающая работу недобросовестных сотрудников со «своими» поставщиками.
Преимущества для поставщиков:
Быстрый и удобный поиск информации о проведении новых закупок;
Расширение рынка сбыта своих товаров, работ или услуг;
Прозрачность и открытость процесса закупок;
Здоровая конкуренция, исключающая неценовые методы ведения борьбы;
Сокращение затрат времени и средств на подготовку и подачу заявки;
Возможность участия в торгах из любой точки мира (при наличии компьютера и доступа в интернет).
Выводы
Таким образом, можно сделать следующий вывод. На рынке России существует достаточно большое количество тендерных площадок под любые цели и задачи. Электронные площадки для тендеров способствуют упрощению работы, как для заказчиков, так и для поставщиков. Заказчики могут минимизировать свои издержки на проведение закупочных процедур и найти поставщика с наиболее выгодными условиями. Увеличивается прозрачность и открытость процесса закупки, минимизируются коррупционные риски.
Практическое занятие 8
Задание 1
Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору – v2 км/ч, под гору – v3 км/ч и в подъем – v4 км/ч. Время движения соответственно t1, t2, t3 и t4 ч. Какой путь прошел пешеход?
Задание:
Написать алгоритм и программу.
Текстовый алгоритм:
1. Ввести v1, v2, v3, v4, t1, t2, t3,t4.
2. S1 := v1*t1.
3. S2 := v2*t2.
4. S3 := v3*t3.
5. S4 := v4*t4.
5. S := S1 + S2 + S3 + S4.
6.Вывести значение S.
7.Конец.
Листинг программы
Sub rasstojanie()
Dim v1, v2, v3, v4, t1, t2, t3, t4, s1, s2, s3, s4, s As Double
v1 = Worksheets("Лист1").Cells(2, 2)
v2 = Worksheets("Лист1").Cells(3, 2)
v3 = Worksheets("Лист1").Cells(4, 2)
v4 = Worksheets("Лист1").Cells(5, 2)
t1 = Worksheets("Лист1").Cells(2, 4)
t2 = Worksheets("Лист1").Cells(3, 4)
t3 = Worksheets("Лист1").Cells(4, 4)
t3 = Worksheets("Лист1").Cells(5, 4)
s1 = v1 * t1
s2 = v2 * t2
s3 = v3 * t3
s4 = v4 * t4
s = s1 + s2 + s3 + s4
Worksheets("Лист1").Cells(6, 2) = s
End Sub
Задание 2
Вычислить значение функции:
Задание:
Написать алгоритм и программу.
Текстовый алгоритм:
1.Ввести х.
2.Если х <= -10, то у := -х2.
3.Иначе, если x<0, то y := x4+1.
4.Иначе y := x+2.
5.Вывести у.
6.Конец.
Листинг программы
Sub uravnenie()
Dim x, y as Double
x = WorkSheets("Лист1").Cells(8,2)
if x <= -10 Then
y = -x*x
ElseIf x<0 Then
y = x^4+1
Else
y = x+2
End If
WorkSheets("Лист1").Cells(9,2) = y
End Sub
Задание 3
Найти максимум из пяти введенных чисел
Задание:
Написать алгоритм и программу.
Текстовый алгоритм:
1.Ввести числа a, b, c, d, e.
2.max := 0.
3.Сравнить a, b, c, d и e. Если a >= b и a >= c и a >= d и a >= t, то max := a.
4.Иначе, если b >= c и b >= d и b >= e,то max := b.
5. Иначе, если c >= d и c >= e,то max := c.
6. Иначе, если d >= e, то max := d.
7. Иначе max := e.
Вывести max.
Конец.
Листинг программы
Sub max()
Dim a, b, c, d, e, max As Double
a = Worksheets("Лист1").Cells(11, 2)
b = Worksheets("Лист1").Cells(11, 4)
c = Worksheets("Лист1").Cells(11, 6)
d = Worksheets("Лист1").Cells(11, 8)
e = Worksheets("Лист1").Cells(11, 10)
If a >= b And a >= c And a >= d And a >= e Then
max = a
ElseIf b >= c And b >= d And b >= e Then
max = b
ElseIf c >= d And c >= e Then
max = c
ElseIf d >= e Then
max = d
Else
max = e
End If
Worksheets("Лист1").Cells(12, 2) = max
End Sub0>