FAK
FILE INFORMATION
FILENAME(S): FAK
FILE TYPE(S): SEQ
FILE SIZE: 337b
FIRST SEEN: 2025-11-30 01:12:35
APPEARS ON: 1 disk(s)
FILE HASH
d86ec828461a68a23ea151b68979f26a398470ce9d71d0bc6000e3975f46ef1e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 9 86 64 | FAK | SEQ | C64er | 8 | 8 | 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 69 76 |f*i;. iterativ| 00000100: 65 3A 3D 66 0D 65 6E 64 3B 0D 62 65 67 69 6E 0D |e:=f.end;.begin.| 00000110: 20 20 20 6E 3A 3D 33 3B 0D 20 20 20 77 72 69 74 | n:=3;. writ| 00000120: 65 6C 6E 28 72 65 6B 75 72 73 69 76 65 28 6E 29 |eln(rekursive(n)| 00000130: 29 3B 0D 20 20 20 77 72 69 74 65 6C 6E 28 69 74 |);. writeln(it| 00000140: 65 72 61 74 69 76 65 28 6E 29 29 0D 65 6E 64 2E |erative(n)).end.| 00000150: 0D |. |
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;. ITERATIVE:=F.END;.BEGIN. N:=3; . WRITELN(REKURSIVE(N));. WRITELN(IT ERATIVE(N)).END..
> CLICK IMAGE PREVIEW FOR FULL MODAL