Файл: Практических заданий по дисциплине информационные технологии в экономике.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>