Рисование узора в R

Опубликовано: 15 Сентября, 2022

Каждый нашел простой способ печати шаблонов на других языках программирования. Но это сложная задача с использованием языка R. В этой статье основное внимание уделяется рисованию различных шаблонов с использованием языка R и его конструкций.

Подход

Начать первый цикл для количества строк
Запустить второй цикл для отображения элемента
Распечатать элемент
Увеличивайте второй цикл, пока не будет достигнуто условие
Увеличивайте первый цикл до тех пор, пока условие не станет истинным
Продолжайте в том же духе

Программа 1: Рисование треугольника цифрами

R

stars = c()
  
for(i in 1:5){
  for(j in 1:i+1){
     stars = c(stars, i)
  }
    
  print(stars)
  stars = c()
}

Выход:

[1] 1
[1] 2 2
[1] 3 3 3
[1] 4 4 4 4
[1] 5 5 5 5 5

Программа 2: Рисование треугольника с *

R

#creating a empty list to store
stars = c()
  
for(i in 1:5){
   for(j in 1:i+1){
      stars = c(stars, "*")
   }
  # line by line printing
  print(stars)
  stars = c()
}

Выход:

[1] "*"
[1] "*" "*"
[1] "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*" "*" "*"

Программа 3: Нарисуйте перевернутый треугольник

R

starsrev = c()
i=1
j=5
  
while(i<=5){
  for(j in 1:j){
     starsrev = c(starsrev, "*")
   }
    
  print(starsrev)
    
  starsrev = c()
  
  i=i+1
  j=j-1
}

Выход:

[1] "*" "*" "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*"
[1] "*" "*"
[1] "*"

Программа 4: Рисование как перевернутого, так и обычного треугольника

R

i=1
stars = c()
  
while(i<=5){
  for(j in 1:i+1){
     stars = c(stars, "*")
  }
  
  print(stars)
  stars = c()
  i=i+1
}
  
starsrev = c()
i=1
j=5
  
while(i<=5){
  for(j in 1:j){
    starsrev = c(starsrev, "*")
  }
    
  print(starsrev)
  starsrev = c()
  i=i+1
  j=j-1
}

Выход:

[1] "*"
[1] "*" "*"
[1] "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*" "*" "*"
[1] "*" "*" "*" "*" "*"
[1] "*" "*" "*" "*"
[1] "*" "*" "*"
[1] "*" "*"
[1] "*"

R язык

Рисование узора в R

R

R

R

R

РЕКОМЕНДУЕМЫЕ СТАТЬИ