I am new to programming and I have a program to tell me my grade percentage. It is as follows:

Prompt A,B

100(A/B)->P

Disp P

How do I change this to also tell me my grade based on my percentage?

what do you mean by based on your percentage. Like yourquestions correct?

*The Silver Phantom welcomes you*

As in, you wish it to tell you what grade you need to make in order to make some other grade?

Also, could you tell us specifically what you are giving it and what you need? For example, you could give it your first term's average and what grade you want, and it will tell you what you need to make in order to make the grade you want.

If you mean an A,B,C,D,F, for example, you can try this complicated bit of code:

```
Prompt A,B
sum(A/B<{.9,.8,.7,.65
Disp sub("ABCDF",Ans+1,1
```

47%? Take a look and try to imagine how cool 100% will be. This has won zContest 2011 and made news on TICalc. This compromise between Assembly and BASIC parses like BASIC and is fast like assembly. Grammer 2

if you want the semester grade, than you need to make a database or record of previous grade avg

```
prompt A,B
100(A/B)→ C
Input "is it a test/quiz/homework/project/(etc)",str1
if Str1="test"
(∟GRADE(1)+C)/2→∟GRADE(1)
if Str1="quiz"
(∟GRADE(2)+C)/2→∟GRADE(2)
if Str1="hw"
(∟GRADE(3)+C)/2→∟GRADE(3)
if Str1="project"
(∟GRADE(4)+C)/2→∟GRADE(4)
(etc)
.45((∟GRADE(1)+∟GRADE(2))/2) :now, this is where you have to change the grading system if its like 50%test and 40%projects or something else.
.2∟GRADE(3)+ans :for this, it'll be 45% tests/quiz, 20% homework, 35% project
.35∟GRADE(4)+ans
ans*100→G
Disp C
Disp "your grade is",G
```

*I may not be accurate about the first part

*The Silver Phantom welcomes you*

This will also work, but it won't work for either 100% or anything below 50%:

```
Prompt A,B
Disp sub("FDCBA",int(10(A/B)-4),1
```

ClrHome

2→B

Lbl 0

Menu("Assignment:","Homework",1,"Test",2,"Extra Credit",3,"Exit",4

Lbl 1

Input "Grade:",A

A→L₁(B

Lbl 2

Input "Grade:",A

A→L₂ (B

[eccetera…]

Input "Again?", Str 1

If Str 1="Yes":Then

B+1→B

Goto 1:End

If Str 1="No":Then

SetUpEditor

0→L₁(1

If sum(L1)[does not equal]0

0→C

[eccetera]

If C=1 and D=1 and E=1

1→C

If C=1 and d=1 and E=0

2→C

[eccetera]

If C=1:Then

((L₁*_)+(L₂*_)+(L₃*_))/3→L₄(1

[eccetera]

ClrHome

Disp L₄(1

There is a little optimizing that can be done, though…

Coffee + Radiohead = ^^

An add on…

If Str1[does not equal sign]"Yes" and Str1[does not equal]"No":Then

ClrDraw

Text(0,0,"Whoops!

Text(6,0,Str1

Text(12,0,"is not an answer type.

Text(18,0,"(Try "Yes" or "No.") :)

Pause

ClrDraw

Goto 0

Last night, I was in a hurry…

Coffee + Radiohead = ^^