|
|||||
| 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) |
|||||