home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 05 / texte / bild2.abb < prev    next >
Encoding:
Text File  |  1989-01-02  |  692 b   |  43 lines
  1.   Das Programm :
  2.  
  3.   program Fakultaet;
  4.   begin
  5.     repeat
  6.       repeat
  7.         readln (Zahl);
  8.         if Zahl < 0
  9.           then writeln ('Fehler');
  10.       until (Zahl >= 0);
  11.       i := 2;
  12.       Produkt := 1;
  13.       while i <= Zahl do
  14.       begin
  15.         Produkt := Produkt * i;
  16.         i := i + 1;
  17.       end;
  18.       writeln ('Fakultaet : ', Produkt);
  19.     until Zahl = 0;
  20.   end.
  21.  
  22.  
  23.   und die Struktur-Datei :
  24.  
  25.   P Fakultaet
  26.   R
  27.   R
  28.   U readln (Zahl)
  29.   I Zahl < 0
  30.   T
  31.   U writeln ('Fehler')
  32.  #I
  33.  #R (Zahl >= 0)
  34.   A i := 2
  35.   A Produkt := 1
  36.   W i <= Zahl
  37.   A Produkt := Produkt + 1
  38.   A i := i + 1
  39.  #W
  40.   U writeln ('Fakultaet : ', Produkt)
  41.  #R Zahl = 0
  42.  #P
  43.