_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

FAK

FILE INFORMATION

FILENAME(S): FAK

FILE TYPE(S): SEQ

FILE SIZE: 508b

FIRST SEEN: 2025-11-30 21:13:11

APPEARS ON: 1 disk(s)

FILE HASH

935478c48ff02a899178a3b16d6caf1e729ddf84c921326cc5c7a45c33d19ce3

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
AUSGABE 9 86 FAK SEQ DuncanTwain 30 17 ⚠ CORRUPT
DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 70 72 6F 67 72 61 6D 20  66 61 6B 75 6C 74 61 65  |program fakultae|
00000010: 74 3B 0D 76 61 72 20 6E  3A 69 6E 74 65 67 65 72  |t;.var n:integer|
00000020: 3B 0D 66 75 6E 63 74 69  6F 6E 20 72 65 6B 75 72  |;.function rekur|
00000030: 73 69 76 28 6E 3A 69 6E  74 65 67 65 72 29 3A 69  |siv(n:integer):i|
00000040: 6E 74 65 67 65 72 3B 0D  62 65 67 69 6E 0D 20 20  |nteger;.begin.  |
00000050: 20 69 66 20 6E 3D 30 20  74 68 65 6E 20 72 65 6B  | if n=0 then rek|
00000060: 75 72 73 69 76 3A 3D 31  0D 20 20 20 20 20 20 65  |ursiv:=1.      e|
00000070: 6C 73 65 20 72 65 6B 75  72 73 69 76 3A 3D 72 65  |lse rekursiv:=re|
00000080: 6B 75 72 73 69 76 28 6E  2D 31 29 2A 6E 0D 65 6E  |kursiv(n-1)*n.en|
00000090: 64 3B 0D 66 75 6E 63 74  69 6F 6E 20 69 74 65 72  |d;.function iter|
000000A0: 61 74 69 76 28 6E 3A 69  6E 74 65 67 65 72 29 3A  |ativ(n:integer):|
000000B0: 69 6E 74 65 67 65 72 3B  0D 76 61 72 20 69 2C 66  |integer;.var i,f|
000000C0: 3A 69 6E 74 65 67 65 72  3B 0D 62 65 67 69 6E 0D  |:integer;.begin.|
000000D0: 20 20 20 66 3A 3D 31 3B  0D 20 20 20 66 6F 72 20  |   f:=1;.   for |
000000E0: 69 3A 3D 32 20 74 6F 20  6E 20 64 6F 20 66 3A 3D  |i:=2 to n do f:=|
000000F0: 66 2A 69 3B 0D 20 20 20  69 74 65 72 61 74 4A 00  |f*i;.   iteratJ.|
00000100: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000110: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000120: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000130: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000140: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000150: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000160: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000170: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000180: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
00000190: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
000001A0: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
000001B0: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
000001C0: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
000001D0: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
000001E0: 29 A5 4A 00 29 A5 4A 00  29 A5 4A 00 29 A5 4A 00  |).J.).J.).J.).J.|
000001F0: A5 A5 4A 00 A5 4A 4A 00  A5 4A 07 29              |..J..JJ..J.)    |

PROGRAM FAKULTAET;.VAR N:INTEGER;.FUNCTI
ON REKURSIV(N:INTEGER):INTEGER;.BEGIN.  
 IF N=0 THEN REKURSIV:=1.      ELSE REKU
RSIV:=REKURSIV(N-1)*N.END;.FUNCTION ITER
ATIV(N:INTEGER):INTEGER;.VAR I,F:INTEGER
;.BEGIN.   F:=1;.   FOR I:=2 TO N DO F:=
F*I;.   ITERATJ.).J.).J.).J.).J.).J.).J.
).J.).J.).J.).J.).J.).J.).J.).J.).J.).J.
).J.).J.).J.).J.).J.).J.).J.).J.).J.).J.
).J.).J.).J.).J.).J.).J.).J.).J.).J.).J.
).J.).J.).J.).J.).J.).J.).J.).J.).J.).J.
).J.).J.).J.).J.).J.).J.).J.).J.).J.).J.
).J.).J.).J.).J...J..JJ..J.)
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL