h.hofstede (h.hofstede@hogeland.nl)

 
1. PROGRAM: ABC
: ClrHome
: Prompt  A, B, C
: If A = 0
: Then  -C/B
X
: Disp: "lineair X = ", X
: STOP

: Else
:       B^2-4AC
D
:       If  D < 0
:       Then  Disp "geen oplossing"
:       Else
:               If  D = 0
:               Then  -B/(2A)
X
:               Disp  "1 oplossing",X
:               Else
:    
          (-B - (D))/(2A)
  X
:               (-B +
(D))/(2A)
Y
:               Disp "2 oplossingen", X, Y
:               End
:       End
: End
       
2. PROGRAM SORTEER
:  ClrHome
:  Input "geef drie getallen",  A, B, C
:  If A > B
:  Then
:        If B > C
:        Then
:        Disp A, B, C
:        Else
:               If A > C
:               Then 
:               Disp  A, C, B
:               Else
:               Disp  C, A, B
:               End
:        End
:  Else
:        If B > C
:        Then
:               If   A > C
:               Then
:               Disp  B, A, C
:               STOP
:               Else
:               Disp  B, C, A
:               End 
:        Else
:        Disp  C, B, A
:        End
: End
       
3. PROGRAM  RECHTHOEKIG

: ClrHome
: INPUT "zijden?", A, B, C
: If  C^2 = A^2+ B^2
: Then
: Disp"JA"
: Else
:     If  B^2 = A^2 + C^2
:     Then
:     Disp"JA"
:     Else
:            If  A^2 = B^2 + C^2
:            Then
:            Disp"JA"
:            Else
:            Disp"NEE"
:            End
:     End
: End            
       
       

h.hofstede (h.hofstede@hogeland.nl)