---
title: "SML201 Precept 1, Spring 2020"
output:
  html_document:
    df_print: paged
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

### Problem 1: Creating and saving `R` files

Create and save the file `p1.R` on your computer. All your work should be in `p1.R`. You must work with one partner. You should work collaboratively. Both partners are responsible for being able to explain the work that's been done to the preceptor. 

### Problem 2: Variables and Conditionals

#### Problem 2(a)

Write code to store the value `98` in a variable named `my.score`. Then, write code to output the value of `my.score` to the console.

#### Problem 2(b)

Suppose we'd like to adjust the score by multiplying it by 1.2, but making it so that the adjusted score is never above 100. So if `my.score` is e.g., 60, the adjusted score would be 60*1.2=72, but if `my.score` is 90, the adjusted score would be 100, since $108=1.2\times 90$ is over 100. Write code to compute the adjusted score and store it in a variable named `adj.score`.



### Problem 3: Function and using functions

Write a function named `compute.adj.score` which computes the adjusted score, as in 2(b). Write code that uses this function to display the results of adjusting the scores 60, 70, 80, 90, and 100
 
### Problem 4: Functions and Conditionals

#### Problem 4(a)

Write a function named `disc` which computes $b^2 - 4ac$ for the inputs `a`, `b`, and `c`. The first line of your solution code should look like

`disc <- function(a, b, c){`

Now use this function to compute the [discriminant](https://en.wikipedia.org/wiki/Discriminant) of two quadratic equations.

#### Problem 4(b)


Write a function named `num.solns` which returns the number of unique real solutions of the quadratic equation $ax^2 + bx + c$. 

#### Problem 4(c)

Write a function `qaud.roots` which prints the solutions (if any) of a quadratic equation.
