Tijmen1o1

Untitled

Jun 19th, 2019
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. ClrHome
  2. Disp "Gegevens?"
  3. Prompt A,B,C
  4. ClrHome
  5. B^2-4AC
  6. Disp "D is",Ans
  7. If Ans<0:Disp "Geen oplossing"
  8. If not(Ans:Disp "1 oplossing:",~B/2/A
  9. While Ans>0:Disp "2 oplossingen:",A^^-1mean({~B,sqrt(Ans:Disp A^^-1mean(~{B,sqrt(Ans
Add Comment
Please, Sign In to add comment