FACT
FILE INFORMATION
FILENAME(S): FACT
FILE TYPE(S): SEQ
FILE SIZE: 303b
FIRST SEEN: 2025-11-30 16:59:30
APPEARS ON: 1 disk(s)
FILE HASH
367df1a438c86ae5411d84ce37a95f0a33eb1bb90a1bbee20a3ca7a878a02910
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KMMM PASCAL | FACT | SEQ | High Voltage Complete C64 Collection | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 50 52 4F 47 52 41 4D 20 46 41 43 54 4F 52 49 41 |PROGRAM FACTORIA|
00000010: 4C 28 49 4E 50 55 54 2C 4F 55 54 50 55 54 29 3B |L(INPUT,OUTPUT);|
00000020: 0D 0D 43 4F 4E 53 54 20 43 4C 53 3D 24 39 44 3B |..CONST CLS=$9D;|
00000030: 0D 0D 0D 56 41 52 20 4E 3A 49 4E 54 45 47 45 52 |...VAR N:INTEGER|
00000040: 3B 0D 0D 46 55 4E 43 54 49 4F 4E 20 46 41 43 54 |;..FUNCTION FACT|
00000050: 28 4E 3A 49 4E 54 45 47 45 52 29 3A 49 4E 54 45 |(N:INTEGER):INTE|
00000060: 47 45 52 3B 0D 0D 42 45 47 49 4E 0D 49 46 20 4E |GER;..BEGIN.IF N|
00000070: 3D 31 0D 20 20 54 48 45 4E 20 46 41 43 54 3A 3D |=1. THEN FACT:=|
00000080: 31 0D 20 20 45 4C 53 45 20 46 41 43 54 3A 3D 4E |1. ELSE FACT:=N|
00000090: 2A 46 41 43 54 28 4E 2D 31 29 0D 45 4E 44 3B 0D |*FACT(N-1).END;.|
000000A0: 0D 42 45 47 49 4E 0D 20 20 57 52 49 54 45 4C 4E |.BEGIN. WRITELN|
000000B0: 28 43 4C 53 29 3B 0D 20 20 4E 3A 3D 31 3B 0D 20 |(CLS);. N:=1;. |
000000C0: 20 57 48 49 4C 45 20 4E 3E 30 20 44 4F 20 42 45 | WHILE N>0 DO BE|
000000D0: 47 49 4E 0D 20 20 20 20 57 52 49 54 45 28 27 49 |GIN. WRITE('I|
000000E0: 4E 50 55 54 20 41 4E 20 49 4E 54 45 47 45 52 27 |NPUT AN INTEGER'|
000000F0: 29 3B 0D 20 20 20 20 52 45 41 44 4C 4E 28 4E 29 |);. READLN(N)|
00000100: 3B 0D 20 20 20 20 4E 3A 3D 46 41 43 54 28 4E 29 |;. N:=FACT(N)|
00000110: 3B 0D 20 20 20 20 57 52 49 54 45 4C 4E 28 4E 29 |;. WRITELN(N)|
00000120: 0D 20 20 45 4E 44 0D 45 4E 44 2E 0D 0D 0D 03 |. END.END..... |
PROGRAM FACTORIAL(INPUT,OUTPUT);..CONST
CLS=$9D;...VAR N:INTEGER;..FUNCTION FACT
(N:INTEGER):INTEGER;..BEGIN.IF N=1. THE
N FACT:=1. ELSE FACT:=N*FACT(N-1).END;.
.BEGIN. WRITELN(CLS);. N:=1;. WHILE N
>0 DO BEGIN. WRITE('INPUT AN INTEGER'
);. READLN(N);. N:=FACT(N);. WR
ITELN(N). END.END.....
> CLICK IMAGE PREVIEW FOR FULL MODAL