Векторы и операции с ними
Написать программу получения вектора из N случайных символов русского алфавита. Использовать функцию sample().
В начале скрипла, для правильного отображения кириллицы сменим локаль
## [1] "Russian_Russia.1251"v1<-c("А","Б","В","Г","Д","Е","Ё","Ж","З","И","Й","К","Л","М","Н","О","П","Р","С","Т","У","Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я")
# Более краткий вариант внесения букв русского алфавита в вектор
v1<-unlist(strsplit("АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ",""),use.names = F)
# Ещё один вариант с конвейером команд (потребовался пакет magrittr)
library(magrittr)
"АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" %>% strsplit("") %>% unlist(use.names = F)->v1
for (i in 1:length(v1)) {
N<-sample(1:length(v1), 1)
v2<-sample(v1,size = N,replace=FALSE)
print((N))
print(v2)
}## [1] 18
## [1] "Т" "Г" "Б" "И" "С" "А" "К" "Ё" "В" "Ц" "Э" "Х" "Ш" "Ь" "З" "Я" "Е"
## [18] "Ж"
## [1] 1
## [1] "Я"
## [1] 20
## [1] "Й" "К" "Ш" "Ж" "Ю" "Б" "Р" "Н" "Ц" "О" "У" "Л" "Т" "З" "С" "И" "М"
## [18] "П" "Ч" "А"
## [1] 23
## [1] "В" "Х" "Ё" "Л" "Э" "Ш" "У" "А" "Ж" "К" "З" "Е" "Ф" "П" "Ъ" "Ь" "Г"
## [18] "Ы" "О" "Р" "Т" "Д" "И"
## [1] 28
## [1] "О" "Я" "Б" "Е" "Ч" "Ж" "П" "И" "С" "Л" "Х" "Р" "Д" "Ы" "Г" "Ф" "Ъ"
## [18] "Ь" "Щ" "Н" "Ю" "А" "Ш" "М" "Ё" "Й" "К" "Т"
## [1] 15
## [1] "П" "Ч" "У" "С" "Ы" "Д" "Ж" "З" "К" "Х" "Л" "Ё" "Г" "Щ" "В"
## [1] 31
## [1] "М" "У" "К" "О" "Ф" "Ъ" "Н" "Ш" "И" "Ч" "З" "Х" "Я" "Т" "Д" "Б" "Е"
## [18] "Й" "Э" "Щ" "Ё" "Ь" "Л" "Ю" "Ц" "П" "Ы" "Ж" "С" "Р" "Г"
## [1] 30
## [1] "Ш" "Я" "Ц" "В" "А" "Л" "С" "М" "Ж" "П" "К" "Г" "Ф" "Щ" "Б" "Х" "Е"
## [18] "Ь" "Д" "У" "Н" "Ч" "О" "Ю" "Т" "Ы" "И" "Э" "З" "Ё"
## [1] 10
## [1] "Т" "Ъ" "Ф" "Л" "Я" "Е" "Й" "Г" "Ж" "Н"
## [1] 32
## [1] "Г" "О" "Л" "Р" "У" "Ы" "С" "Н" "Д" "З" "Ю" "Ъ" "Й" "В" "Ж" "Я" "Щ"
## [18] "Х" "П" "Т" "Е" "Ч" "Э" "И" "М" "Ш" "Ь" "Ц" "К" "Б" "А" "Ф"
## [1] 15
## [1] "А" "Т" "Д" "П" "К" "Ы" "Ц" "И" "Е" "Л" "Ш" "Ъ" "Н" "Ж" "Й"
## [1] 6
## [1] "Ь" "Л" "Д" "Х" "Ц" "Ч"
## [1] 2
## [1] "Е" "Л"
## [1] 19
## [1] "Й" "Щ" "Н" "Ё" "Ю" "Д" "Э" "П" "Ч" "Ш" "Я" "Ы" "М" "Ф" "Г" "У" "Е"
## [18] "В" "К"
## [1] 31
## [1] "У" "Ы" "В" "Ъ" "К" "А" "Ш" "С" "Д" "Я" "Н" "П" "Ч" "Ь" "Й" "И" "Ж"
## [18] "Л" "Ц" "М" "Г" "Ф" "З" "Р" "Т" "Б" "Э" "Х" "Е" "Щ" "Ё"
## [1] 12
## [1] "М" "О" "У" "Э" "В" "Щ" "Б" "Я" "З" "Ъ" "П" "Ш"
## [1] 14
## [1] "Ь" "Ы" "И" "Щ" "Э" "Ч" "П" "Т" "Ш" "Е" "У" "Ю" "Б" "З"
## [1] 24
## [1] "Р" "К" "С" "Г" "Д" "В" "Ж" "Ф" "Л" "Х" "Н" "Ш" "Ъ" "Ц" "Й" "Ю" "Ы"
## [18] "У" "О" "И" "З" "А" "Б" "Щ"
## [1] 24
## [1] "Э" "И" "В" "Х" "Щ" "Р" "Ь" "Я" "Ч" "Ш" "М" "Ъ" "У" "К" "Ё" "Д" "Ц"
## [18] "Ю" "Й" "Ф" "Л" "П" "Т" "Ж"
## [1] 5
## [1] "З" "Ц" "Ы" "Д" "П"
## [1] 6
## [1] "Щ" "Е" "З" "Ы" "В" "А"
## [1] 15
## [1] "Ш" "С" "Ф" "Ж" "К" "Й" "Щ" "Д" "Ю" "Ъ" "Л" "Я" "Э" "Т" "Е"
## [1] 13
## [1] "Г" "Д" "О" "Й" "Ц" "Н" "Ч" "Ж" "М" "Ё" "Ш" "Щ" "Л"
## [1] 29
## [1] "Г" "Ё" "Р" "Ж" "В" "Д" "А" "П" "Ш" "Ь" "Щ" "К" "Э" "Ц" "Я" "Ф" "З"
## [18] "Б" "И" "С" "У" "О" "Н" "Й" "Ю" "Ъ" "Е" "Л" "Ч"
## [1] 25
## [1] "Ф" "Э" "Я" "Щ" "У" "П" "З" "Б" "Й" "Ч" "О" "Т" "Ж" "Х" "Е" "Л" "Ю"
## [18] "Ё" "В" "Ъ" "И" "Г" "Ц" "Д" "Н"
## [1] 24
## [1] "Ъ" "О" "П" "Н" "Б" "С" "Ч" "В" "Т" "Ы" "Е" "Ё" "К" "У" "Э" "А" "Х"
## [18] "Д" "М" "Ц" "И" "Г" "Ю" "Л"
## [1] 7
## [1] "П" "Ю" "Ы" "Э" "Г" "Ц" "Б"
## [1] 4
## [1] "З" "Ъ" "Х" "А"
## [1] 12
## [1] "Ф" "Н" "Ж" "Й" "З" "С" "Ь" "Л" "О" "Ы" "Ъ" "В"
## [1] 29
## [1] "Й" "Г" "Ш" "З" "Ъ" "Ы" "Д" "Р" "Щ" "Э" "С" "Е" "К" "Ч" "П" "Ф" "У"
## [18] "Т" "А" "В" "Х" "Ь" "Н" "Ж" "М" "Б" "Ё" "Ц" "Л"
## [1] 3
## [1] "Ё" "И" "К"
## [1] 22
## [1] "З" "Й" "Ы" "Р" "Н" "Щ" "Б" "О" "В" "Э" "А" "Е" "М" "Ъ" "Ж" "Ю" "Г"
## [18] "К" "Л" "Я" "И" "Ч"
## [1] 26
## [1] "Я" "Ю" "Ъ" "Г" "О" "Л" "Х" "Т" "Б" "Ё" "Р" "И" "Ь" "Д" "М" "Ш" "З"
## [18] "У" "Ч" "А" "С" "Щ" "Й" "Е" "Ы" "Ц"Вариант с буквами латинского алфавита
## [1] "t" "a" "c" "u" "n" "i" "k" "l" "d" "v" "m" "h" "g" "z" "p" "y" "o"
## [18] "f" "r" "j" "b" "s" "w" "q" "e" "x"Пусть вектор w создан из значений разного типа. Выяснить правило, по которому выполняется преобразование данных разных типов, хранящихся в векторе. Для этого последовательно создать вектора с данными одного типа, двух типов, трех типов и т.д. Перебрать все возможные сочетания типов.
## [1] 173 191 159 352 180# Создаём вектор чисел типа Integer и Double, получаем весь вектор типа Double
v2 <- c(173,191,159, 352, 180.9)
v2## [1] 173.0 191.0 159.0 352.0 180.9# Создаём вектор чисел типа Integer, Double и Character, получаем весь вектор типа Character
v3 <- c(173,191,159, "трям", 180.9)
v3## [1] "173" "191" "159" "трям" "180.9"# Создаём вектор чисел типа Integer и Logical, все значения Logical преобразуются в Integer
v4 <- c(173,191,159, T, FALSE)
v4## [1] 173 191 159 1 0# Создаём вектор чисел типа Integer, Double и Logical, все значения Integer и Logical преобразуются в Double
v5 <- c(173,191,159.3, T, FALSE)
v5## [1] 173.0 191.0 159.3 1.0 0.0# Создаём вектор чисел типа Integer, Double, Character и Logical=>
# все значения Integer, Double и Logical преобразуются в Character
v6 <- c(173,"трям",159.3, T, FALSE)
v6## [1] "173" "трям" "159.3" "TRUE" "FALSE"Закончим перебор
Используя скрипты, написать программы, в которых требуется:
Указания:
{
# Здесь лучше было бы использовать приведение к типу numeric, а не integer
x<- as.integer(readline("x= "))
y<- as.integer(readline("y= "))
}## x=
## y=Результаты вычисления \(x^y\), \(y^x\), \(x/y\), \(x/0\):
## [1] x = 3 y = 8 x^y = 6561## [1] y^x = 512## [1] x/y = 0.375## [1] x/0 = Inf## [1] 512;0.375;6561;InfДля задания № 4 из Лабораторной работы № 2 написать программы, в которых Пользователь с клавиатуры вводит значения двух переменных разных типов, которые затем сравниваются между собой. Использовать функции readline(), print() и функции преобразования типов.