Menu
Coddy logo textTech

Повторение — Вектор цен

Часть раздела Основы путешествия по R на Coddy — урок 60 из 78.

challenge icon

Задание

Легко

Вы получите две строки входных данных:

  1. Список исходных цен, разделенных запятыми (например, 100,200,150,80)
  2. Процент скидки в виде целого числа (например, 20 для 20%)

Выполните следующие операции:

  1. Создайте вектор из цен, разделенных запятыми
  2. Менеджер магазина заметил, что на третий товар была установлена неверная цена. Измените ее на 125
  3. Примените скидку ко всем ценам (умножьте на (100 - discount) / 100)
  4. Выведите вектор цен со скидкой
  5. Выведите общую сумму всех цен со скидкой, используя sum()
  6. Выведите среднюю цену со скидкой, используя mean()

Например, если входные данные:

100,200,150,80
20

Выходные данные должны быть:

[1]  80 160 100  64
[1] 404
[1] 101

Объяснение: Третья цена изменяется на 125, затем применяется скидка 20% (умножение на 0.8), в результате чего получаются цены 80, 160, 100 и 64.

Попробуйте сами

# Чтение входных данных
con <- file("stdin", "r")
prices_input <- suppressWarnings(readLines(con, n = 1))
discount <- suppressWarnings(readLines(con, n = 1))
close(con)

# Преобразование входных данных
original_prices <- as.numeric(unlist(strsplit(prices_input, ",")))
discount_percent <- as.numeric(discount)

# TODO: Напишите ваш код ниже
# 1. Измените третий элемент на 125
# 2. Примените скидку ко всем ценам
# 3. Выведите вектор цен со скидкой
# 4. Выведите общую сумму, используя sum()
# 5. Выведите среднее значение, используя mean()

Все уроки раздела Основы