Alexander Romero Assignments Set 1

1. 🧱 Weird Wall Builder You are building a wall that uses 4 bricks per square foot. If the wall is 10 feet long and 7 feet high, subtract 3 bricks lost to damage. Then, take the square root of the total to estimate effort required. Use at least +, -, *, sqrt().

# Wall dimensions
length <- 10
height <- 7

# Bricks per square foot
bricks_per_sqft <- 4

# Damaged bricks
damaged <- 3

# Total bricks calculation
area <- length * height
total_bricks <- area * bricks_per_sqft
usable_bricks <- total_bricks - damaged

# Effort estimation using square root
effort <- sqrt(usable_bricks)

# Output the result
print(paste("Effort estimate:", round(effort, 2)))

[1] "Effort estimate: 16.64"

2. 🧠 Einstein’s Brain Teaser Define mass <- 2, speed <- 3. Calculate: energy = mass * (speed^2) + 10 - 2 / speed, then print the result and its square root.

# Define variables
mass <- 2
speed <- 3

# Calculate energy using the formula
energy <- mass * (speed^2) + 10 - 2 / speed

# Print the energy
print(paste("Energy:", round(energy, 2)))

[1] "Energy: 27.33"

# Print the square root of the energy
print(paste("Square root of energy:", round(sqrt(energy), 2)))

[1] "Square root of energy: 5.23"

3. 🧃 Juice Mix Madness You mix 250 ml of orange juice, 300 ml of pineapple juice, subtract 75 ml accidentally spilled, divide the total by 2 (you share with a friend), and then raise that result to the power of 0.5. Print the final amount per person.

# Initial juice amounts (in ml)
orange_juice <- 250
pineapple_juice <- 300
spilled <- 75

# Total juice after spill
total_juice <- orange_juice + pineapple_juice - spilled

# Divide between two people
juice_per_person <- total_juice / 2

# Raise to the power of 0.5 (square root)
final_amount <- juice_per_person^0.5

# Print the result
print(paste("Final amount per person (sqrt):", round(final_amount, 2)))

[1] "Final amount per person (sqrt): 15.41"

4. 🎢 Rollercoaster Force Force is calculated as mass * acceleration. Define mass = 80, acceleration = 9.8. Subtract 25 for wind resistance. Then take the square root of the result and raise it to the power of 1.2. Print all steps.

# Define variables
mass <- 80
acceleration <- 9.8
wind_resistance <- 25

# Step 1: Calculate force
force <- mass * acceleration
print(paste("Initial Force:", round(force, 2)))

[1] "Initial Force: 784"

# Step 2: Subtract wind resistance
adjusted_force <- force - wind_resistance
print(paste("After Wind Resistance:", round(adjusted_force, 2)))

[1] "After Wind Resistance: 759"

# Step 3: Take square root
sqrt_force <- sqrt(adjusted_force)
print(paste("Square Root of Adjusted Force:", round(sqrt_force, 2)))

[1] "Square Root of Adjusted Force: 27.55"

# Step 4: Raise to the power of 1.2
final_result <- sqrt_force^1.2
print(paste("Final Result (Raised to 1.2):", round(final_result, 2)))

[1] "Final Result (Raised to 1.2): 53.47"

5. 🍕 Pizza Math A pizza has a radius of 7. Area is pi * r^2. Assume pi = 3.14. Multiply by 1.2 for crust thickness, subtract 5% for burned edge (use /), then take the square root of the result to “estimate deliciousness.”

# Define variables
radius <- 7
pi_val <- 3.14

# Step 1: Calculate area
area <- pi_val * radius^2
print(paste("Base Area:", round(area, 2)))

[1] "Base Area: 153.86"

# Step 2: Multiply by 1.2 for crust thickness
crust_adjusted <- area * 1.2
print(paste("After Crust Thickness:", round(crust_adjusted, 2)))

[1] "After Crust Thickness: 184.63"

# Step 3: Subtract 5% for burned edge
burned_edge_adjusted <- crust_adjusted / 1.05
print(paste("After Burned Edge Adjustment:", round(burned_edge_adjusted, 2)))

[1] "After Burned Edge Adjustment: 175.84"

# Step 4: Take square root to estimate deliciousness
deliciousness <- sqrt(burned_edge_adjusted)
print(paste("Estimated Deliciousness:", round(deliciousness, 2)))

[1] "Estimated Deliciousness: 13.26"