Question

1. Use a for or while loop to assign ID numbers for each student. To make it simple, ID numbers should range from 1 to 18.

2. .Write another loop with if-statement(s) nested inside, to place the students from Problem 1 into 6 groups of three (e.g. Students with ID numbers 1,7 and 13 go into one group, ID numbers 2,8 and 14 go into a second group, etc.).

3.

Write a function that outputs the area of a geometric shape. The function should accept three variables. The first variable tells you whether the shape is a triangle or rectangle, the second variable tells you the height of the shape and the third variable tells you the base of the shape.

The output should look something like:

> ZC_Shape_Area("Tri",10,3)
[1] "Area = 15"
>

Can you please provide solution in R programming.

Answer 1

Here are the answers for your questions in R Programming Language.

Kindly upvote if you find the answer helpful.

Question No. 1

NOTE : I have used a vector to assign student id's, each element in the vector represents each student's ID.

CODE :

#Create an empty vector to store student Id's studentId <- c() #For loop that loops for 18 times for( i in seq(1, 18, by = 1)){ #Assigns value of i to vector each time #Value of i is from 1 to 18 and increases by 1 #each time the loop executes studentId[[i]] <- i } #prints the id's of students print(studentId)

SCREENSHOTS :

Please see the screenshots of the code below for the indentations of the code.

1 #Create an empty vector to store student Id's 2 studentId <- c() 3 4 #For Loop that loops for 18 times for( i in seq(1, 18, by = 1)){ 6 7 #Assigns value of i to vector each time 8 #Value of i is from 1 to 18 and increases by 1 9 #each time the Loop executes studentId[[i]] <- i 11 } 12 13 #prints the id's of students 14 print(studentId)|| 10

OUTPUT :

$Rscript main.r [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Question No. 2:

NOTE : This code is continuation of question no.1's code

CODE :

#Create an empty vector to store student Id's studentId <- c() #For loop that loops for 18 times for( i in seq(1, 18, by = 1)){ #Assigns value of i to vector each time #Value of i is from 1 to 18 and increases by 1 #each time the loop executes studentId[[i]] <- i } #prints the id's of students print(studentId) #Vector that stores groups of students groups <- c() #for loop that loops for 6 times for(i in seq(1, 6, by = 1)){ #Store value of i in j j <- i #Create a new vector i.e., this represents a group newGroup <- c() #Assign value of j to new group newGroup[[1]] <- j #Increment j value by 6 j = j + 6 newGroup[[2]] <- j j = j + 6 newGroup[[3]] <- j #Assign new group to groups groups[[i]] <- newGroup } #print groups print(groups)

SCREENSHOTS :

1 2 3 4 9 12 #Create an empty vector to store student Id's studentId <- c() #For Loop that loops for 18 times 5 for(i in seq(1, 18, by = 1)){ 6 7 #Assigns value of i to vector each time 8 #Value of i is from 1 to 18 and increases by 1 #each time the loop executes 10 studentId[[i]] <- il 11 } 13 #prints the id's of students 14 print (studentId) 16 #Vector that stores groups of students 17 groups <-c() 18 19 #for loop that loops for 6 times for(i in seq(1, 6, by = 1)){ #Store value of i inj 23 j <- i 24 25 #Create a new vector i.e., this represents a group 15 21 22

newGroup <- c() #Assign value of j to new group newGroup[[1]] <- j 26 27 28 29 30 31 32 33 34 35 36 37 38 39} #Increment j value by 6 j = j + 6 newGroup[[2]] <- j j - j + 6 newGroup[[3]] < j #Assign new group to groups groups [[i]] <- newGroup 40 41 #print groups 42 print(groups)

OUTPUT :

$Rscript main.r [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 [[1]] [1] 1 7 13 [[2]] [1] 2 8 14 [[3]] [1] 3 9 15 [[4]] [1] 4 10 16 [[5]] [1] 5 11 17 [[6]] [1] 6 12 18

Question No. 3

CODE :

#Function with name ZC_Shape_Area #That takes 3 parameters name and two dimension values ZC_Shape_Area = function(name, x, y){ #if the name is equal to 'Tri' if(all(name == "Tri")){ #Prints area of triangle cat("Area = ",(x*y)/2) } #if the name is equal to 'Rect' else if(all(name == "Rect")){ #Prints area of triangle cat("Area = ",(x*y)) } #if the name is neither 'Rect' nor 'Tri' else{ #Prints the shape is invalid print("Invalid shape name") } } #Function call ZC_Shape_Area("Tri",10,3)

SCREENSHOTS :

Please see the screenshots of the code below for the indentations of the code.

} 1 #Function with name ZC_Shape_Area 2 #That takes 3 parameters name and two dimension values 3 ZC_Shape_Area function(name, x, y){ 4 #if the name is equal to 'Tri' 5 if(all(name == "Tri")){ 6 #Prints area of triangle 7 cat("Area = ", (x*y)/2) 8 9 #if the name is equal to 'Rect' 10 else if(all(name "Rect")){ 11 #Prints area of triangle 12 cat("Area = ",(x*y)) 13 14 #if the name is neither 'Rect' nor 'Tri' 15 else{ #Prints the shape is invalid 17 print("Invalid shape name") 18 } 19} 20 #Function call 21 ZC_Shape_Area ("Tri",10,3) 22 } 16

OUTPUT :

$Rscript main.r Area = 15

Any doubts regarding this can be explained with pleasure :)