home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 05 / texte / bild3.abb < prev    next >
Encoding:
Text File  |  1989-01-02  |  1.4 KB  |  28 lines
  1. ┌──────────────────────────────────────────────────┐
  2. │ Fakultaet                                        │
  3. │ ┌─┬─┬─────┬─────────────────────────────────┬────┤
  4. │ │ │ │     │         readln (Zahl)           │    │
  5. │ │ │ ├─────┴─────────────────────────────────┴────┤
  6. │ │ │ │ Zahl < 0  ?                                │
  7. │ │ │ │    ──┬─────┬──────────────────────────┬────┤
  8. │ │ │ │ ja   │     │   writeln ('Fehler')     │    │
  9. │ │ │ └──────┴─────┴──────────────────────────┴────┤
  10. │ │ │ (Zahl >= 0)                                  │
  11. │ │ ├──────────────────────────────────────────────┤
  12. │ │ │                    i := 2                    │
  13. │ │ ├──────────────────────────────────────────────┤
  14. │ │ │                 Produkt := 1                 │
  15. │ │ ├──────────────────────────────────────────────┤
  16. │ │ │ i <= Zahl                                    │
  17. │ │ │ ┌────────────────────────────────────────────┤
  18. │ │ │ │           Produkt := Produkt * i           │
  19. │ │ │ ├────────────────────────────────────────────┤
  20. │ │ │ │                 i := i + 1                 │
  21. │ │ ├─┴───┬───────────────────────────────────┬────┤
  22. │ │ │     │writeln ('Fakultaet : ', Produkt)  │    │
  23. │ │ └─────┴───────────────────────────────────┴────┤
  24. │ │ Zahl = 0                                       │
  25. │ └────────────────────────────────────────────────┤
  26. │                                                  │
  27. └──────────────────────────────────────────────────┘
  28.